常連

### 前提・実現したいこと
①ファイルを開くと同時にユーザーフォームを表示させる。

②コンボボックスに指定したフォルダに入っているファイルを全て表示

③コンボボックスからファイルを選択し、okを押すとユーザーフォームのファイルは閉じ、選択したファイルが開いている状態

ここに質問の内容を詳しく書いてください。
ファイルを開くとまずユーザーフォームが表示されるようにします。その後、コンボボックスから指定フォルダにあるファイルを表示させ、最後には選択したファイルのみが開いている状態にしたいです。

### 発生している問題・エラーメッセージ

```
ファイルを開いてユーザーフォームを出すまでしか分かりません。

```

### 該当のソースコード

```
Private Sub Workbook_Open()

UserForm1.Show

End Sub
ソースコード
```

### 試したこと
調べてもありませんでした。
### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

VBA コンボボックスから指定フォルダのファイルを選択したい

###やりたいこと

表形式サブフォームにあるコンボボックスの入力で、先頭からの部分一致ではなく、途中も含めた部分一致で入力候補を表示したい。

###現状
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でコンボボックスに複数列で値を設定する

### 前提・実現したいこと
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ではない）

WPF　DataGridのコンボボックスに初期値を入れる方法

### 前提
C#(WPF Prism使用)に関して
コンボボックスのItemsSourceにDictionary<SampleEnum, string> をバインドしています。コンボボックスに表示されるのはバリューのstringの方です。
ViewModelに、コンボボックスの現在選択されている要素を格納するプロパティSelectedを作成しました。

コンボボックスのSelectedValuePath="Key" に設定されているので、Selectedには、DictionaryのKeyであるSampleEnumがバインドされ、格納される想定でしたが、うまくバインドされていないようで、解決したく質問しました。


### 実現したいこと
MainWindowViewModelのSelectedプロパティに、SampleEnumがバインドされるようにしたい、

### 発生している問題・エラーメッセージ
デバッグ時、コンボボックスの選択要素を変更するとXamlバインドエラーが発生する。
```
Cannot convert '[SampleA, サンプルA]' from type 'KeyValuePair`2' to type 'ComboboxSample.SampleEnum' for 'en-US' culture with default conversions; consider using Converter property of Binding. NotSupportedException:'System.NotSupportedException: EnumConverter cannot convert from System.Collections.Generic.KeyValuePair`2[[ComboboxSample.SampleEnum, ComboboxSample, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null],[System.String, System.Private.CoreLib, Version=6.0.0.0, Culture=neutral, PublicKeyToken=7cec85d7bea7798e]].			

```

### 該当のソースコード
MainWindow.xaml
```Xalm
<Window x:Class="ComboboxSample.Views.MainWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:prism="http://prismlibrary.com/"
        xmlns:viewmodels="clr-namespace:ComboboxSample.ViewModels" 
        xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
        d:DataContext="{d:DesignInstance Type=viewmodels:MainWindowViewModel, IsDesignTimeCreatable=True}"
        xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
        mc:Ignorable="d"
        prism:ViewModelLocator.AutoWireViewModel="True"
        Title="{Binding Title}" Height="350" Width="525" >
    <Grid>
        <ContentControl prism:RegionManager.RegionName="ContentRegion" />
        <ComboBox Height="20" Width="100"
                  ItemsSource="{Binding SampleEnums}"
                  SelectedValuePath="Key"
                  DisplayMemberPath="Value"
                  SelectedItem="{Binding Selected}"
                  SelectedIndex="0"/>
    </Grid>
</Window>
```

MainWindowViewModel.cs
```C#
using Prism.Mvvm;
using System.Collections.Generic;

namespace ComboboxSample.ViewModels
{
    public class MainWindowViewModel : BindableBase
    {
        public SampleEnum Selected{ get; set; }
        public Dictionary<SampleEnum, string> SampleEnums { get; set; }
        public MainWindowViewModel()
        {
            SampleEnums = new Dictionary<SampleEnum, string>()
            {
                {SampleEnum.SampleA, "サンプルA" },
                { SampleEnum.SampleB, "サンプルB" },
                { SampleEnum.SampleC, "サンプルC" }
            };
        }
    }
}
```

SampleEnum.cs
```C#
namespace ComboboxSample
{
    public enum SampleEnum
    {
        SampleA,
        SampleB,
        SampleC
    }
}
```

### 補足情報（FW/ツールのバージョンなど）

C#10.0
.NET6.0
WPF
Prism.Unity8.1.97
Visual Studio2022

