データベース超初心者です。VBAの知識がほとんどないので、初歩的な質問だと思いますが、よろしくお願いします。
フォームは2つ「入力」と、「コード選択」
(1)フォーム「入力」にあるテキストボックス「商品コード」をダブルクリックすると、フォーム「コード選択」を開く
(2)フォーム「コード選択」にあるリストボックス「コードリスト」をダブルクリックすると、商品コードが、フォーム「入力」のテキストボックス「商品コード」に代入される。
ちなみに、コードリストは、2列で、商品コードと商品名が表示されるようになっています。
わかりにくい質問かもしれませんが、どうぞよろしくお願いします。
No.1ベストアンサー
- 回答日時:
コード選択画面のリストボックスの値の保持の仕方によって多少変更が必要になりますが、
入力画面側で
Private Sub テキスト_DblClick(Cancel As Integer)
DoCmd.OpenForm "コード選択" '「コード選択」フォームを開く
End Sub
で「コード選択」フォームを開き、
「コード選択」フォームで
Private Sub リスト_DblClick(Cancel As Integer)
Forms![入力]!テキスト = Me.リスト.Value '.Text?
DoCmd.Close acForm, Me.Name '自分のフォームを閉じる
End Sub
こんな感じでしょうか?
ありがとうございます!!
思っていた通りの結果が出ました。
本当に助かりました。
コード選択フォームを閉じるところまで設計されていて、自分の思った以上のフォームになりました。
また機会がありましたら、ぜひよろしくお願いします。
No.2
- 回答日時:
私のテストの場合フォームを2つ作った。
フォーム9
フォーム11
ーーー
フォーム9にはテキストボックス(テキスト0)
とコマンドボタン1つ。そのコマンドボタン(コマンド2)のCaptionは[コード選択]とする。
コマンドボタンのクリックイベントに
Private Sub コマンド2_Click()
Me.Visible = False
DoCmd.OpenForm "フォーム11"
End Sub
ーー
フォーム11には
リストボックス(リスト0)を設ける。
そのクリックイベントに
Private Sub リスト0_Click()
MsgBox Forms("フォーム11").リスト0.Value
Forms("フォーム9").Visible = True
Forms("フォーム9").テキスト0.SetFocus
Forms("フォーム9").テキスト0.Text = Forms("フォーム11").リスト0.Value
Me.Visible = False
End Sub
ーーー
フォーム9を表示し、コマンドボタンをクリックするとフォーム11が開き、リストボックスのアイテムを1つクリックして選択すると、フォーム9のテキストボックスに選択したアイテムが表示された。
リストボックスは値リストで1列でテストをやりました。
クエリでアイテムを表示し1列を2列にし、テキストボックスにも
商品コードか商品をセットするよう改良してください(略)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Excelで総数量を変動させたい 2 2022/11/04 23:49
- JavaScript ソースコードは下の共有コードサイト「張り紙」にあります。 入力フォームの javascript で 1 2022/05/11 11:01
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
- JavaScript 空白で入力フォームのボタンをクリックしたら、ブラウザの上部からjavascriptで 表示されるアラ 1 2022/05/20 11:16
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
- PHP php 確認表示画面で値をSESSIONから取り出す理由の解釈は正しいでしょうか? 1 2023/06/09 17:39
- Excel(エクセル) エクセル 関数について 4 2022/08/05 11:03
- その他(買い物・ショッピング) JANコードの登録について 1 2022/07/23 14:19
- PHP php 入力画面から確認表示画面へ情報の受け渡しについて。 1 2023/06/07 18:00
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。
Visual Basic(VBA)
-
VBA。リストボックスの値を別のユーザーフォームのテキストボックスに反映したい。
Access(アクセス)
-
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
-
4
エクセルVBAリストボックスに表示された検索結果をクリックして、該当するセルをアクティブセルにしたい
Excel(エクセル)
-
5
VBA リストボックスをダブルクリックしデータを修正したいのですが…。
Visual Basic(VBA)
-
6
エクセルVBA「リストボックスで選択した値をテキストボックスで変更してシート上セルに反映したい」
Excel(エクセル)
-
7
テキストボックス(VBA)でEnterを押したときに作動するマクロ
Access(アクセス)
-
8
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
9
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
10
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
VBA リストボックス内の値を複数選択し別シートに転記するには
Visual Basic(VBA)
-
13
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
14
ExcelVBA でリストリストボックスにNULLを挿入
Access(アクセス)
-
15
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
16
エクセル VBA ユーザーフォーム リストボックスで選択した値をテキストボックスに自動表示
Visual Basic(VBA)
-
17
VBAのユーザーフォームで、テキストボックスを連携させたいのですが。
Visual Basic(VBA)
-
18
UserForm1.Showでエラーになります。
工学
-
19
Excel にて、 リストボックスのデーターを別ブックのセルに転記するVBAをご教授願います
Excel(エクセル)
-
20
【Excel VBA】検索結果セルの行をリストボックスに表示させたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでフォームのスクロールバー...
-
VBAにてメッセージボックスを最...
-
アクセスVBA フォームのス...
-
リストボックスをクリックする...
-
ディスプレイ解像度より大きな...
-
VB.net(VB)で、フォームにExcel...
-
Googleフォーム・複数人の申し...
-
accessで2つ以上のフォームを起...
-
アクセス・別フォームの新規レ...
-
Accessでフォームから別フォー...
-
サブフォームの行ごとにコンボ...
-
メッセージボックスの背景色
-
PDFフォームに本日の日付を自動...
-
子フォームから親フォームのオ...
-
csvに保存しているデータをURL...
-
AccessVBAで入力有無のチェック
-
毎日新聞「女の気持ち」匿名希...
-
ASP.NETとC#でWebフォームを呼...
-
Access:ストアドプロシージャ...
-
Accessでサブフォームの合計を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAにてメッセージボックスを最...
-
VB.net(VB)で、フォームにExcel...
-
リストボックスの選択解除
-
Googleフォーム・複数人の申し...
-
サブフォームの新規レコードに...
-
Accessでフォームから別フォー...
-
accessで2つ以上のフォームを起...
-
サブフォームの行ごとにコンボ...
-
フォーム上の全てのコントロー...
-
アクセスVBA フォームのス...
-
VBA リストボックスをダブルク...
-
サブフォームのイベント取得
-
メッセージボックスの背景色
-
PDFフォームに本日の日付を自動...
-
VBAでフォームのスクロールバー...
-
Access 無操作の場合、自動で閉...
-
アクセス フォームが存在する...
-
VBプログラムの終了
-
メインフォームからサブフォー...
-
ユーザーフォーム上にアイコン...
おすすめ情報