Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
959 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9343】フッターの表示・非表示 まるちゃん 07/4/26(木) 13:10 質問[未読]
【9348】Re:フッターの表示・非表示 Gin_II 07/4/27(金) 17:13 回答[未読]
【9355】Re:フッターの表示・非表示 まるちゃん 07/4/28(土) 10:27 お礼[未読]
【9343】フッターの表示・非表示
質問  まるちゃん  - 07/4/26(木) 13:10 -
引用なし
パスワード
   アクセスを始めた初心者です。
早速質問ですが、フォーム上にトグルボタンをつけ、押した状態ではフォームフッターを表示する、逆の状態ではそれを非表示にする　というコマンドを作りました。

Private Sub SF_Click()
　　If Forms(商品マスター)!SF.Value = True Then
　　　　Forms(商品マスター).WindowHeight = Me.InsideHeight + Me.フォームフッター.Height
　　　　Forms(商品マスター)!SF.Caption = "詳細を閉じる"
　　Else
　　　　Me.WindowHeight = Me.InsideHeight - Me.フォームフッター.Height
　　　　Forms(商品マスター)!SF.Caption = "もっと詳細を見る"
　　End If
End Sub

しかし、”このプロパティは読み取り専用であるため、設定できません”　とエラーが出ます。
ぶしつけながら、どこをどう変えればよいのか ご存知の方、よろしくご教授ください。
【9348】Re:フッターの表示・非表示
回答  Gin_II  - 07/4/27(金) 17:13 -
引用なし
パスワード
   > 　　　　Forms(商品マスター).WindowHeight = Me.InsideHeight + Me.フォームフッター.Height

ヘルプに、

WindowHeight、WindowWidth プロパティ
これらのプロパティは参照のみ可能で、マクロまたは Visual Basic でのみ使うことができます。

との記述がありますね。


> 早速質問ですが、フォーム上にトグルボタンをつけ、押した状態ではフォームフッターを表示する、逆の状態ではそれを非表示にする　というコマンドを作りました。

表示する・しないであれば、Visible プロパティを使えばいいのでは？

Me!フォームフッター.Visible = Me!トグルボタン名
【9355】Re:フッターの表示・非表示
お礼  まるちゃん  - 07/4/28(土) 10:27 -
引用なし
パスワード
   Gin_II様、ありがとうございます。

>Me!フォームフッター.Visible = Me!トグルボタン名

こんなに簡単だったのですね。
今までエクセルで重くなったデータをCSVに逃がすなどで販売管理等していまして、やっと会社からアクセスを購入することになりましたのでトライしてみたのです。
VBAを使うといっても、ずいぶん勝手が違うものなのですね。
もっと勉強してまいります。

本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
959 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078201
(SS)C-BOARD v3.8 is Free