常連

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

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

###やりたいこと
①エラー「バリアント型ではない変数に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行目以降のレコードを変更するとそれまでのレコードがすべて同じように変

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 フォームのコンボ ボックスに値が表示できない

AccessでVBAでコンボボックスに複数列で値を設定しようとしていますが、
うまくいきません。どのようにすればよいでしょうか。
よろしくお願いします。

コンボボックスA.ColumnCount = 2
コンボボックスA.AddItem 1
コンボボックスA.List(コンボボックスA.ListCount - 1, 1) = "a"

３行目が「コンパイル エラー:メソッドまたはデータ メンバーが見つかりません。」となります。

Access VBAでコンボボックスに複数列で値を設定する

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

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

### SpringBootでHTMLにコンボボックスを初期値を指定して表示

SpringBootでHTMLにコンボボックスを表示したいのですが、その際コンボボックスの初期値を指定したいです。（最初に選択されてる値）
現状だと先頭の値が指定されてる状態です。
ご教授いただければと思います。
### 発生している問題・エラーメッセージ


### 該当のソースコード(必要な箇所だけ抜粋してます)

```Java
@Controller
public class UserTopController {
	
	private static Map<String, String> getSelectedItems =
		    Collections.unmodifiableMap(new LinkedHashMap<String, String>() {
		    {
		      put("1", "radio_1");
		      put("2", "radio_2");
		      put("3", "radio_3");
		      put("4", "radio_4");
		      put("5", "radio_5");
		    }
		  });

	//トップページ表示
	@GetMapping(path = "/user-top")
	public ModelAndView login(ModelAndView mav, Principal principal) {
		mav.addObject("selectItems", getSelectedItems);
		mav.setViewName("user-top");
		return mav;
	}
}
```

```HTML
		<select id="singleSelect" name="selectedItem">
		     <option th:each="item : ${selectItems}" th:value="2" th:text="${item.value}" 
		     th:selected="${item.value} == *{selectedItem}">singleSelect</option>
		</select>
```
### 試したこと

HTMLのth:valueに値を指定しても先頭の値が初期値になってしまいます。

### 補足情報（FW/ツールのバージョンなど）

Java8
SpringBoot2.0
thymeleaf

Java SpringBootでコンボボックスの初期値を指定する方法

### 前提・実現したいこと
DataGridの特定列にComboboxを表示させ、選択可能な初期値を入力。
そして、読込んだCSVファイルの値をComboboxに表示させたい。
ユーザーの入力は不可なものとしたい。

**・DataGridのComboboxに初期値を入力**
**・CSVから読み込んだ値をDataGirdのComboboxに表示**

WPFで操作した内容を元に、HTMLファイルを動的に作るのを最終目標としています。
CSVファイルは途中経過の保存や、再開などに利用します。
全てを載せると情報が多すぎるため、ParsonClassは最低限のみ掲示しています。

Comboboxへの初期値としては
「Red」「Blue」「Green」「White」「NoColor」
の5種類を表示させたいと思っています。
それ以外の値は入力させるつもりはありません。

### 発生している問題・エラーメッセージ
Comboboxに値が表示されない。
初期値も入力しておきたいのですが、手段が分かりません。

DataGridにCSVの値を読込むところは問題なく動作しています。
Comboboxへの表示が出来ない状況です。

### Classについて
様々なサイトを見て勉強していましたが、難しく
とり急ぎ利用していたため「Person」というものになっています。
後々編集予定ですが、どこまで関わってくるか分からないため
もっと作業が進んでから修正したいと思ってます。
たぶんもっと効率のいい書き方があるのかもしれませんが
とりあえず作っていくということも大事だと思っているため
混乱して使えなくなるよりは、今の状況を維持したいと思います。

### 該当のソースコード
```xaml
    <Grid>
        <StackPanel>
            <StackPanel Orientation="Horizontal" Height="28" Margin="10">
                <Button x:Name="B_read" Content="Read"
                    Click="B_read_Click" Height="28" Width="100"/>
                <Button  Content="Write"
                    Click="ExportCSV" Height="28" Width="100"/>
            </StackPanel>

            <DataGrid Height="300" x:Name="dataGrid"  CanUserSortColumns="False" MouseDoubleClick="DataGridCell_MouseDoubleClick" AutoGenerateColumns="False" CanUserReorderColumns="False" >
                <DataGrid.Columns>
                    <DataGridTextColumn Header="番号" Binding="{Binding Num}" IsReadOnly="True" />
                    <DataGridTextColumn Header="タイトル" Binding="{Binding Title}" IsReadOnly="True" />
                    <DataGridTextColumn Header="カレントフォルダ" Binding="{Binding CurrentFolder}" IsReadOnly="True" />
                    <DataGridTextColumn Header="画像ファイル名" Binding="{Binding PicName}" IsReadOnly="True" />
                    <DataGridTextColumn Header="線の色" Binding="{Binding BordColor}" IsReadOnly="True" />
                </DataGrid.Columns>
            </DataGrid>
        </StackPanel>
    </Grid>
```

```C#

        ObservableCollection<Person> data = new ObservableCollection<Person>();
        public MainWindow()
        {
            InitializeComponent();
            dataGrid.ItemsSource = data;
           
        }

        class Person
        {
            public int Num { get; set; }
            public string Title { get; set; }
            public string CurrentFolder { get; set; }
            public string PicName { get; set; }
            public string BordColor { get; set; }

            public Person(int num, string title, string currentFolder, string picName, string bordColor)
		{
                this.Num = num;
                this.Title = title;
                this.CurrentFolder = currentFolder;
                this.PicName = picName;
		this.BordColor = bordColor;
            }
        }

/*Readボタンを押したとき*/
        private void B_read_Click(object sender, RoutedEventArgs e)
        {
            data.Clear();
            string appPath = System.AppDomain.CurrentDomain.BaseDirectory;
            string filename = "test.csv";
            string filepath = appPath + "\" + filename;
            Console.WriteLine(filepath);
            if (File.Exists(filepath) == false)
            {
                return;
            }
            this.DataContext = ReadFile(filepath);
            //PersonService.SetHeaders(filepath, dataGrid);
        }

/*ファイル書き込み*/
        public void ExportCSV(object sender, RoutedEventArgs e)
        {
            Microsoft.Win32.SaveFileDialog dlg = new Microsoft.Win32.SaveFileDialog();
            //保存先の初期値（マイドキュメント）
            dlg.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.Personal);
            dlg.Title = "保存先のファイルを選択してください";
            dlg.Filter = "CSVファイル(*.csv)|*.csv";
            if (dlg.ShowDialog() == true)
            {
                try
                {
                    using (var sw = new System.IO.StreamWriter(dlg.FileName, false, System.Text.Encoding.GetEncoding("UTF-8")))
                    {
                        foreach (Person d in data) {
                            // sw.WriteLine(dqot(d.Name) + "," + dqot(d.Place));
                            var lineData= d.Num + "," + d.Title + "," + d.CurrentFolder + "," + d.PicName + "," + d.BordColor;
                            sw.WriteLine(lineData);
                        }
                    }
                    MessageBox.Show("保存しました");
                }
                catch (SystemException ex)
                {
                    System.Console.WriteLine(ex.Message);
                    
                }
            }
        }
/*ファイル読み込み*/
        ObservableCollection<Person> ReadFile(string filepath)
        {
            try
            {
                // ファイルを読み取り形式で開く
                StreamReader file = new StreamReader("test.csv", Encoding.UTF8);
                string line = null;
                while ((line = file.ReadLine()) != null)    // 1行ずつ読み込む
                {
                    string[] tango = line.Split(',');       // カンマで区切って配列に格納
                    var d1 = int.Parse(tango[0]);
                    var d2 = tango[1];
                    var d3 = tango[2];
                    var d4 = tango[3];
                    var d5 = tango[4];
                    data.Add(new Person(d1, d2, d3, d4,d5));
                }
                file.Close();
                }
                catch (Exception e)
                {
                    Console.WriteLine(e.Message);       // エラーメッセージを表示
                }

            return data;
        } 
```

### 試したこと
```xaml
<DataGridTemplateColumn Header="線の色">
      <DataGridTemplateColumn.CellTemplate>
             <DataTemplate>
                 <ComboBox x:Name="BorderC" DisplayMemberPath="BordColor"/>
             </DataTemplate>
       </DataGridTemplateColumn.CellTemplate>
</DataGridTemplateColumn>
```
上記内容で修正し、初期値について入力しようと思いました。
MainWindow()内でBorderCと入力しても候補は出ず、初期値の入力は出来ませんでした。


```xaml
<DataGridTemplateColumn Header="線の色">
     <DataGridTemplateColumn.CellTemplate>
          <DataTemplate>
              <ComboBox x:Name="BorderC" ItemsSource="{Binding BordColor}" DisplayMemberPath="BordColor"/>
          </DataTemplate>
    </DataGridTemplateColumn.CellTemplate>
</DataGridTemplateColumn>
```
上記内容でも修正してみましたが、値は何も表示されませんでした。
WPFで検索してもWinFormを利用しているものが多く、
特に理由はありませんがWPFだけで作りたいのもあるため
情報収集に少し手間取っております。

アドバイス頂けたらと思います。よろしくお願いいたします。

### 補足情報（FW/ツールのバージョンなど）
VisualStudio 2019
.NET　4.5（だったはず）
WPF C#　（※　WinFormではない）