Access 2つのご質問　①エラー「バリアント型ではない変数にNULL値を代入しようとしました」を解決したい　②サブフォームで、2行目以降のレコードを変更するとそれまでのレコードがすべて同じように変

###やりたいこと
①エラー「バリアント型ではない変数にNULL値を代入しようとしました」を解決したい
②サブフォームで、2行目以降のレコードを変更するとそれまでのレコードがすべて同じように変わってしまうのを避けたい

なお、記述したVBAは以下のサイトを参考にしています。
■コンボボックスのリストを入力値で制限する

###詳細
Access2007-2016で勤怠管理フォームを作成しています。以下の画像のように(画像削除：2021/1/11)、メインフォーム「F_勤務時間フォーム」とサブフォーム「SF_詳細入力フォーム」が1つのフォームに表示されており、テーブルの関係は1対多です。
〇詳細入力テーブル
・詳細No:オートナンバー(主キー、フォームには非表示)
・クライアントID：数値(外部キー)
・タスクID：数値(外部キー)
・稼働時間：数値
・稼働分：数値
・コメント：テキスト

※参考
〇T_クライアントテーブル
・クライアントID：オートナンバー(主キー)
・クライアント名：テキスト

ここで、サブフォーム【詳細入力】のクライアントIDを入力するために、左から2番名に以下のようなコンボボックスを追加しています。イベント処理で、「cmb_クライアント名検索」からクライアント名を選択すると、そのクライアントのIDが、【詳細入力】のクライアントIDに入るようにしています。

※最初はクライアントID自体をコンボボックスにしようかとも考えたのですが、結局クライアントIDからでしか検索できなかったため、クライアント名で検索できるように今回の手法をとっています。

〇cmb_クライアント名検索
・コントロールソース：なし
・値集合ソース：クライアント名,クライアントID
・列数：2
・列幅：3cm,5cm

###イベント内容

Private Sub cmb_クライアント名検索_Change()
    Dim stSQL As String

    stSQL = "SELECT クライアント名 FROM T_クライアントテーブル WHERE クライアント名 Like '*" & Me.cmb_クライアント名検索.Text & "*';"
    Me.cmb_クライアント名検索.RowSource = stSQL

    If blClick Then
      blClick = False
    Else
      Me.cmb_クライアント名検索.Dropdown
    End If

　　Me.クライアントID = Me.cmb_クライアント名検索.Column(1)

End Sub

Private Sub cmb_クライアント名検索_Click()
 blClick = True
End Sub

Private Sub cmb_クライアント名検索_KeyDown(KeyCode As Integer, Shift As Integer)

 If KeyCode = vbKeyDown Or KeyCode = vbKeyUp Then
        Me.cmb_クライアント名検索.OnChange = ""
    Else
        Me.cmb_クライアント名検索.OnChange = "[イベント プロシージャ]"
    End If

End Sub

Private Sub cmb_クライアント名検索_LostFocus()

 Me.cmb_クライアント名検索.RowSource = _
        "SELECT クライアント名, クライアントID " & _
        " FROM T_クライアントテーブル ORDER BY クライアントID;"
End Sub

###やりたいこと①

ここで「cmb_クライアント名検索」からクライアント名を選択すると、「バリアント型ではない変数にNULL値を代入しようとしました」とのエラーが発生してしまいます。

おそらく変更時イベントの「Me.クライアントID = Me.cmb_クライアント名検索.Column(1)」が原因なのですが、メッセージボックスで「Me.cmb_クライアント名検索.Column(1)」を表示するときちんとクライアントIDが出てきます。なぜこのようなエラーが発生してしまうのでしょうか。

###やりたいこと②
いったん①のエラー個所をなくし、クライアントIDは手動で打ち込むものとします。
1行目のレコードを打ち込むと勝手に2行目にも同じ値が入り、
2行目のレコードを変更すると
1行目の内容も一緒に変わってしまいます。「cmb_クライアント名検索」を、1行単位で行うにはどうすればよいのでしょうか。

行動規範の内容に同意します

回答2件

ベストアンサー

コンボボックスのプロパティを下記のように設定してください。

cmb_クライアント名検索

コントロールソース：クライアントID
値集合ソース： SELECT クライアント名, クライアントID FROM T_クライアントテーブル ORDER BY クライアント名;
連結列: 1
列数： 2
列幅： 3cm;5cm

この設定で、ボックスにはクライアント名か表示されますが、コントロールソースのフィールドには 連結列：1で指定した2列目(クライアントID) の値が格納されます。

こうすれば、コンボボックスで名前を選択すれば、クライアントIDのテキストボックスには自動でIDが表示されます。

このコンボボックスの使い方が理解できれば、クライアントIDのテキストボックスもコンボボックスにして、IDでも名前でもリストから選択できるようになります。詳細は下記を参照してください。

コードでも名称でも入力できるコンボボックス - hatena chips

あとは、cmb_クライアント名検索の変更時のイベントプロシージャを下記のように変更してください。

vba
1Private Sub cmb_クライアント名検索_Change()
2    Dim stSQL As String
3
4    stSQL = "SELECT クライアント名, クライアントID FROM T_クライアントテーブル " & _
5            "WHERE クライアント名 Like '*" & Me.cmb_クライアント名検索.Text & "*' " & _
6            "ORDER BY クライアント名;"
7    Me.cmb_クライアント名検索.RowSource = stSQL
8
9    If blClick Then
10      blClick = False
11    Else
12      Me.cmb_クライアント名検索.Dropdown
13    End If
14
15’　Me.クライアントID = Me.cmb_クライアント名検索.Column(1) ←これは削除してください。
16End Sub

これでいけるはずです。

投稿2020/11/27 04:52

編集2020/11/27 05:09

hatena19

総合スコア34073

ryoya_access

2020/11/27 05:28

コントロールソースのフィールドには連結列：1で指定した2列目(クライアントID) の値が格納されます。>>>連結列:1ではなく2にしたところ、思い通りの操作を行うことが出来ました。これまで連結列という概念を理解していませんでしたが、おっしゃる通りできることの幅が広がった気がします。ありがとうございます。

行動規範の内容に同意します