回答受付が終了しました

ID非公開

2020/9/25 0:28

22回答

accessで入力フォームの1フィールドに文を合成して入れる入力補助を作ろうとしてます。

accessで入力フォームの1フィールドに文を合成して入れる入力補助を作ろうとしてます。 コンボボックス1 a,b,c 選択できる様に準備 コンボボックス2 い、ろ、は 選択できる様に準備 コンボボックス1で aを選択 コンボボックス2で ろを選択 テキストボックス1に「a ろ」と合成される テキストボックス2(任意)にそれを代入する vbaを使えば出来そうな気がするのですがわかりません。 不明な所に● テーブル1作成 フィールド1に a,b,c テーブル2作成 フィールド2に い、ろ、は 入力補助フォーム作成 コンボボックス1 配置(テーブル1連結) コンボボックス2配置(テーブル2連結) ●テキストボックス1配置(合成文が入力される予定) ●ボタン1配置(入力したいテキストボックスを選択してクリックすると合成文が入力される予定) ●大元の入力フォームの上端に入力補助フォームを表示

回答(2件)

1

ご質問の内容、以下のようなコードでしょうか。 Private Sub ボタン1_Click() Dim myTxt As String: myTxt = "" myTxt = IIf((Me.コンボ1 <> "" Or Not IsNull(コンボ1)), Me.コンボ1, "") myTxt = myTxt + IIf((Me.コンボ2 <> "" Or Not IsNull(コンボ2)), Me.コンボ2, "") Me.テキスト1 = myTxt End Sub IIf文については、以下の記事をご参照ください。 https://www.latest-info-system.com/access%e3%81%a7%e4%bd%9c%e3%82%8b%e8%b3%bc%e8%b2%b7%e4%bc%9d%e7%a5%a8%e3%81%ab%e3%81%a4%e3%81%84%e3%81%a6%e3%80%80%e3%81%9d%e3%81%ae%ef%bc%98%e3%80%80%e3%82%af%e3%82%a8%e3%83%aa%e4%bd%9c%e6%88%90/

1人がナイス!しています

1

Me.テキストボックス1 = Me.コンボボックス1 & Me.コンボボックス2 で出来ると思います。 もしスペースを入れたければ Me.テキストボックス1 = Me.コンボボックス1 & " " & Me.コンボボックス2 です。

1人がナイス!しています