mdbへ保存 (ID:76655)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ごめんなさい。 .Updateの位置がおかしかったですね。 Call Form1.datData.Recordset.MoveFirst Dim i As Integer For i = 0 To Form1.lstList.ListIndex - 1 Call Form1.datData.Recordset.MoveNext Next With Form1.datData.Recordset .Edit .Fields("フィールド1") = txtText1.Text .Fields("フィールド2") = txtText2.Text .Fields("フィールド3") = txtText3.Text .Fields("フィールド4") = txtText4.Text .Update End With が正しいコードです。