VBAユーザフォームからDB書込み

Question

初心者になります。

この度はよろしくお願いいたします。

前提・実現したいこと

VBAでExcelのユーザフォームから更新ボタンを作成し
更新ボタンをおすタイミングで
すでに書き込まれている管理番号と同じデータの
ACCESSのDBへ書き込みをしたいのですがうまくできませんでアドバイスを恐れ入りますがいただけないでしょうか？

＜エラー箇所＞

①　rstData(0)=　要求された名前又は序列に対する項目がコレクションで見つかりませんとでて、
QryString(0) に内容が取り出せていないのを解決したくアドバイスをよろしくお願いします。

Private Sub btn_マスタ更新_Click()の内容は
エクセルで一行書き込まれている管理番号の内容が
最初に表示しています。
ConString = "ODBC;UID=;PWD=;DSN=" & ODBC_DSNで
DBのファイル名は取得されています。

Private Sub btn_マスタ更新_Click()
    Set Con = New ADODB.Connection
    Set rstData = New ADODB.Recordset

    ConString = "ODBC;UID=;PWD=;DSN=" & ODBC_DSN
    Con.Open ConString

    Dim QryString(1) As String

    Set rstData(0) = New ADODB.Recordset  '①で取り出しているエラー内容
    Set rstData(1) = New ADODB.Recordset

     QryString(0) = "SELECT 管理番号,件名" _
              & " FROM 管理マスタ" _
              & " WHERE 管理番号 = " & Trim$(Cells(処理行, 管理番号列).Value)
            rstData(0).Open Source:=QryString(0), ActiveConnection:=ConI, CursorType:=adOpenStatic

```VBA　ユーザフォーム内ここまで


ユーザフォームも少しずつ学んでおります初心者になりますが
アドバイス頂けましたら宜しくお願い致します。

Comments

[DreamTheater]

読み辛いのでVBAコードはマークダウンで記載してください。

[No77]

投稿のアドバイスまで有難うございます。よろしくご指導のほどお願いいたします。

Answer 1

こんにちは。

１要素の配列を宣言したり、レコードセットオブジェクトを配列操作してますが、、、

以下でできませんか？

Private Sub btn_マスタ更新_Click()
    Dim Con = New ADODB.Connection
    Dim rstData = ADODB.Recordset
    Dim QryString As String

    ConString = "ODBC;UID=;PWD=;DSN=" & ODBC_DSN
    Con.Open ConString

    QryString = "SELECT 管理番号,件名" _
              & " FROM 管理マスタ" _
              & " WHERE 管理番号 = " & Trim$(Cells(処理行, 管理番号列).Value)
    Set rstData = Con.Execute(QryString)
　　　：
　　　：
　　　：
    Do Until rstData.EOF
        '１件づつ読み込み
        Debug.Print rstData.Fields("管理番号").Value
　　　：
　　　：
　　　：
　　　：
        rstData.MoveNext
    Loop

    Set rstData = Nothing
    Con.Close
    Set Con = Nothing
　　　：
　　　：
　　　：
　　　：
End Sub

Comments

[No77]

初めまして。アドバイスコードの最後まで丁寧に
ありがとうございました。
こちらのエラーメッセージは出なくなり、解決いたしました。
本当にお世話になりました！

[No77]

追記で申し訳ありません。次のステップで
QryString =""
rstData =Nothing と中身が取り出せないのですが、、お時間を取らせて申し訳ありませんが、アドバイスを恐れ入りますがいただけないでしょうか？

[DreamTheater]

次のステップとは？

[No77]

すみません。
配列がないと現在出てますので一度データを確認して、動作を確認してみます。

ありがとうございました。

[No77]

度々申し訳ございません。
現在以下で
91オブジェクト変数または with ブロック変数が設定されていません。
と出ますが、
恐れ入りますが再度アドバイスをいただけないでしょうか？

```VBAコード
Private Sub btn_マスタ更新_Click()
Dim QryString As String
Dim Con As ADODB.Connection
Dim rstData As ADODB.Recordset

QryString = "UPDATE 管理マスタ(" _
& " SET 件名= '" & Trim$(txt件名.Text) & "'" _
& " WHERE 管理番号 = '" & lbl管理番号.Caption & "'"
Set rstData = Con.Execute(QryString)
MsgBox "更新しました。"

End Sub