常連

###やりたいこと
①エラー「バリアント型ではない変数にNULL値を代入しようとしました」を解決したい
②サブフォームで、2行目以降のレコードを変更するとそれまでのレコードがすべて同じように変わってしまうのを避けたい

 なお、記述したVBAは以下のサイトを参考にしています。
■[コンボボックスのリストを入力値で制限する](https://hatenachips.blog.fc2.com/blog-entry-282.html)

###詳細
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行単位で行うにはどうすればよいのでしょうか。

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

###やりたいこと

表形式サブフォームにあるコンボボックスの入力で、先頭からの部分一致ではなく、途中も含めた部分一致で入力候補を表示したい。

###現状
Access(2007-2016)で、勤怠登録フォームを作成中です。
以下のような「T_顧客テーブル」があるとして、表形式フォームから顧客名を入力したいとします。

**〇T_顧客テーブル**
・顧客ID：オートナンバー
・顧客名：短いテキスト

**〇ID 顧客名**
1　あいうえお商事
2　かきくけこ広告
3　株式会社さしすせそ通信
4　株式会社たちつてと銀行

**〇コンボボックスA**
・コントロールソース：顧客ID
・値集合ソース：顧客ID,顧客名
・列数:2
・列幅:0cm,3cm



■入力はコンボボックスから行うため、入力候補が表示されます。
![イメージ説明](57a48a18ca5f026d164b6aa846374b5d.png)

■しかし、入力候補は先頭からの一致で表示されるため、例えば「株式会社」が頭につく会社が多い場合などは、入力に手間がかかってしまいます。
![イメージ説明](61f9c739ebd21bdefc4e941e75b4d88c.png)

ここで、例えばコンボボックスに「銀行」と打った場合は、顧客名にその文字位置を問わず「銀行」と付くレコードを候補表示する方法はありますか？

Access コンボボックスでの入力 部分一致で入力補助

### 前提

VB.NETで内部にチェックボックス付リストボックスを保持したコンボボックスを作成しました

### 実現したいこと

**WindowsFormのカスタムコンボボックスに使用した内部コントロールの継承イベントを実装したい**

こちらのサイトを参考にチェックボックス付コンボボックスを作成しました。
https://hilapon.hatenadiary.org/entry/20100406/1270552723

文字数制限で自身のソースが記述出来ませんでしたので、参考リンクのソースを見て頂ければ幸いです。

そのクラスはCheckedComboBoxというクラスでComboBoxを継承して作成されています。
ドロップダウンを展開すると内部のコントロールであるCheckedListBoxが表示されリストの左側のチェックが可能、ドロップダウンを閉じるとコンボボックスのテキストにリストでチェックした内容が表示されるという機能です。

上記コンボボックスを業務別に幾つかのパターンで作成する必要があるためそれを継承してCustomCheckedComboBoxを作成しました。(コードの下方に記述)

**継承先のCustomCheckedComboBoxにおいて、継承元のコントロールの内部にあるCustomCheckedListBoxのOnDrawItemイベントをOverridesしたイベントを作成したいのですが、継承先にどのように実装すれば良いか分かりません。**
上記のような内部に配置されたコントロールのイベントを継承するにはどのような実装が必要でしょうか？

### 発生している問題・エラーメッセージ

```
エラーメッセージ
```

### 該当のソースコード

```VB.NET

’ 参照元のソースCheckedComboBoxを継承したコントロール
Public Class CustomCheckedComboBox
   Inherits CheckedComboBox

#Region "コンストラクタ"
    ''' <summary>
    ''' コンストラクタ
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub New()
        MyBase.New()
        InitializeComponent()
    End Sub
#End Region

#Region "InitializeComponent() : コンポーネント初期化"
    ''' <summary>
    ''' InitializeComponent
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub InitializeComponent()
        Me.SuspendLayout()

        ' このクラスでの読字の初期化処理があれば記述

        Me.ResumeLayout(False)
        Me.PerformLayout()
    End Sub
#End Region

#Region "イベント"

'  継承元のコントロールの内部にあるCustomCheckedListBoxのOnDrawItemイベントをOverridesしたイベントをここに記述したい

#End Region

End Class

```

### 試したこと

ここに問題に対して試したことを記載してください。

### 補足情報（FW/ツールのバージョンなど）
VisualStudio2017 .NET Framework4.6.2
WindowsForm

ここにより詳細な情報を記載してください。



WindowsFormのカスタムコンボボックスに使用した内部コントロールの継承イベントを実装したい

DBから値を配列として受けとるところまでは出来たのですが、コンボボックスに入れ込むことができません。
DBはSQLSERVER2014を使っています。
M_TANTOSHAテーブルからTANTOSHA_IDを取り出してコンボボックスに入れたいです。


```VBA
Sub conDB()

    Dim db As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim CON As String
    
    
    '↓DB接続情報
    CON = "Provider = SQLOLEDB;"
    CON = CON & "DATABASE=******;"
    CON = CON & "UID=******;"
    CON = CON & "PWD=*******;"
  
      strSQL = "select TANTOSHA_ID from M_TANTOSHA"
     
      Set rs = New ADODB.Recordset
      
      rs.Open strSQL, CON
      
      rs.MoveFirst
      
      
      Dim i As Long, hairetsu As Variant
      hairetsu = rs.GetRows()
    
      rs.Close

      For i = 0 To UBound(hairetsu, 2)
      Debug.Print hairetsu(0, i)
      Next i
     
     Set rs = Nothing
     Exit Sub
    
End Sub

```
再投稿↓

```VBA
Private Sub ComboBox1_Change()
Dim db As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim CON As String
    
    
    
    'DB??????i?[
    CON = "Provider = SQLOLEDB;"
    CON = CON & "DATABASE=****;"
    CON = CON & "UID=*****;"
    CON = CON & "PWD=*****;"
  
     
     
      
      '1.SQL????o?????V?[?g????
      
       strSQL = "select TANTOSHA_ID from M_TANTOSHA"
      
      Set rs = New ADODB.Recordset
      
      rs.Open strSQL, CON
      
      rs.MoveFirst
      
      Dim i As Long, hairetsu As Variant
      hairetsu = rs.GetRows
      
      rs.Close
      
      'このような感じで試していました。
      '1行だけ表示されたり、何も表示されなかったりします。
      ComboBox1.AddItem
      ComboBox1.List(0, 1) = hairetsu(0, 1)
 
     Set rs = Nothing
     Exit Sub
    
End Sub
```

VBAコンボボックスにDBからの値を表示させたい

コンボ ボックス「受講者数」の設定は、「値リスト」で下記の様にしています。
![![受講者数](c81b0d04e7f8bad409842d0dcd863c7c.png)](99517a44407bc402aeebab162fd85552.png)

フィールド右の下矢印でのプルダウン リストからの取得/表示は、問題なくできます。

問題は、**この同じフィールドに、VBAで値を代入しても表示されません。**

ちなみに、すぐ隣の「日程形式」のフィールド（下記）では、「値集合タイプ」は「テーブル/クエリ」ですが、リストからの取得/表示、VBAでの代入も表示も問題ありません。
![日程形式](2867af80ccaaaabe028897b11e8b6ccd.png)

VBAのコードは、
     Me!日程形式 = w_nittei
     Me!受講者数 = W_受講者数
で、w_nittei、W_受講者数 には、正しい値が入っています。

以上

Access フォームのコンボ ボックスに値が表示できない

### 前提・実現したいこと

Excelで、コンボボックス（フォームコントロール）を使い、同一ブック内の別のシートにあるA列のデータをリスト表示させたい。
ただし、A列のデータは可変するため、空白セルを除いてリスト化したい。

下記の試したことに書いてますが、名前の定義を活用して作成しようしています。しかし、上記が実現できるのであれば、VBAで記述する方法でも問題ありません。

お手数かけますが、ご回答よろしくお願いします。

### 試したこと

可変するデータに対応するために、名前の定義で参照範囲にOFFSET関数を使用して、空白セルを除いて参照できるようにした。
続いて、コンボボックスのコントロールの書式設定のコントロールタブの入力範囲に、上で作成した名前を記述したが、エラー「参照が正しくありません。」が発生した。

### 補足情報（FW/ツールのバージョンなど）

Excel　2016

コンボボックス（フォームコントロール）のリストに可変するデータの空白セルを除いて表示させたい。

### 前提・実現したいこと
現在、ACCESSでフォームを作っています。

その中でコンボボックスを見積(別テーブル)にある見積番号を参照して、その中にある見積金額を連動させたテキストボックスに表示させています。
(コンボボックスでは見積番号を表示)

テキストボックスに表示されている金額を￥#,##0のように三桁ごとにカンマを入れたいのですが、￥20000のように表示されてしまいます。

そのテキストボックスのコントロールソースは
="￥" & 見積番号.Column(1)
としてあります。

ちなみに、見積テーブルの見積金額のデータ型は通貨型になっており、
テーブルを直接見ると￥#,##0の形式で表示されています。
が、コンボボックスで表示されているのは数字のみになっています。

また、見積金額を表示させているテキストボックスは非連結テキストボックスです。
### 試したこと

該当テキストボックスのプロパティ内の書式に#,##0と入力してみたり、標準や通貨に切り替えてみたりはしました。

また、見積金額のデータ型を数値に変更しVBAで
FormatCurrency (Me.見積金額)
としてみましたが、何も変わりませんでした。



よろしくお願いします。

ACCESSのコンボボックスと連動したテキストボックスの書式設定

ブックの名前を変更するマクロの作り方を教えていただけませんでしょうか？

現在ワークシート上にコンボボックスがあり、そこにブック名にしたい候補の一覧があります。
選んだものをブック名にしたい場合はどのようにしたらよろしいのでしょうか？

ブック名をセルに反映させることはできたのですが、その逆ができません。


よろしくお願いいたします。