Saya membuat kode ini di form1
Di "table1" ada nama,jumlah,note
Di "table2" juga sama nama,jumlah,note
Table1 di isi data, di Table2 kosong, jika quantity di "Table1" = 15 maka
otomatis di "Table2" akan di kopy data tersebut menjadi 15 line dst,
Setelah data di kopy ke "Table2" maka di kolom note Table1 akan di tulis "y"
Untuk selanjutnya yang di kopi ke table2 hanya yang note di table1 kosong (
tidak sama dengan 'y')
Dengan kode ini sudah dapat menulis 'y' di note table1 tapi table2 malah
kosong
Kira2 apa yang salah y
Thx
Wahyono
Private Sub Command0_Click()
On Error Resume Next
Dim sql1 As String
Dim sql2 As String
Dim sql3 As String
Dim db As DAO.Database
Dim dst As DAO.Recordset
y_sql = " SELECT * FROM table1 where #" & note & " # <>'y' "
Set dst = CurrentDb().OpenRecordset(y_sql)
dst.MoveFirst
For k = 1 To dst.RecordCount
For m = 1 To dst!jumlah
CurrentDb.Execute " insert into table2 (nama,jumlah) values ('" & dst!nama
& "','" & dst!jumlah & "')", dbFailOnError
Next
dst.MoveNext
Next
Set dst = Nothing
sql1 = " UPDATE table1 "
sql2 = " set [table1].[note] = 'y' "
sql3 = sql1 + sql2
DoCmd.SetWarnings False
DoCmd.RunSQL sql3
End Sub
