Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1703 / 2272 ﾂﾘｰ

←次へ　｜　前へ→

▼

【5686】チェックボックスをYesにして初めてテキストボックスを入力可能に かずよ 05/7/25(月) 18:25

【5687】Re:チェックボックスをYesにして初めてテキ... かみちゃん 05/7/25(月) 22:08

【5688】Re:チェックボックスをYesにして初めてテキ... かずよ 05/7/26(火) 9:34


	【5686】チェックボックスをYesにして初めてテキス...

かずよ - 05/7/25(月) 18:25 -


	引用なし

	パスワード

はじめまして。初心者なので、基本的な質問をしますが・・・

フォーム上で、
■ﾁｪｯｸﾎﾞｯｸｽ「商品コード」　　[テキストボックスＡ]
■ﾁｪｯｸﾎﾞｯｸｽ「商品名」　　　　[テキストボックスＢ]

普段のテキストボックスは入力不可能であるが、
「商品コード」のチェックボックスをYesにすると[テキストボックスＡ]が入力可能になるようにしたいのです。
環境はAccess97です。

ご伝授お願いいたします。


	【5687】Re:チェックボックスをYesにして初めてテ...

かみちゃん - 05/7/25(月) 22:08 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>「商品コード」のチェックボックスをYesにすると[テキストボックスＡ]が入力可能になるようにしたいのです。

「商品コード」チェックボックスのクリック時イベントプロシージャに次のように記述します。

Private Sub 商品コード_Click()
　If Me.商品コード.Value Then
　　'チェックボックスにチェックをつけたとき
　　Me.テキストボックスＡ.Enabled = True
　Else
　　'チェックボックスにチェックをはずしたとき
　　Me.テキストボックスＡ.Enabled = False
　End If
End Sub

>環境はAccess97です。

Access2002で動作確認しましたが、たぶんAccess97でも動くかと思います。


	【5688】Re:チェックボックスをYesにして初めてテ...

かずよ - 05/7/26(火) 9:34 -


	引用なし

	パスワード

▼かみちゃんさん：ありがとうございます!!

Access97でも動きました！
私の説明不足だったのですが、テキストボックスＡが入力可能な時は同Ｂは、
入力不可にしたかったので、以下のようにしました。

>フォーム上で、
>■ﾁｪｯｸﾎﾞｯｸｽ「商品コード」　　[テキストボックスＡ]
>■ﾁｪｯｸﾎﾞｯｸｽ「商品名」　　　　[テキストボックスＢ]
>普段のテキストボックスは入力不可能であるが、
>「商品コード」のチェックボックスをYesにすると[テキストボックスＡ]が入力可能にな>るようにしたいのです。

テキストボックスＡ・Ｂのプロパティで「使用可能」を”いいえ”にしておき、

>Private Sub 商品コード_Click()
>　If Me.商品コード.Value Then
>　　'チェックボックスにチェックをつけたとき
>　　Me.テキストボックスＡ.Enabled = True
　　 Me.テキストボックスＢ.Enabled = false　　←テキストボックスＢ入力不可
>　Else
>　　'チェックボックスにチェックをはずしたとき
>　　Me.テキストボックスＡ.Enabled = False
>　End If
>End Sub

これを「商品名」でも書き、理想通りのものが作れました。
ありがとうございました。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1703 / 2272 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free