mdbへ保存 (ID:76654)

名前

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

本文 どうもありがとうございます。 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 でできました。