Bpk coba tambahkan procedure search dulu, misal:
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Data Makan", dbOpenDynaset)
rs.FindLast "[NoInduk]='" & txtNoInduk.Value & "'"
'dst sesuai yg Bpk inginkan....Thank's ----- Original Message ----- From: Endang To: [email protected] Sent: Saturday, 13 February 2010 11:21 AM Subject: [belajar-access] Update data dari unbound [1 Attachment] [Attachment(s) from Endang included below] Selamat siang, Mohon bantuannya, lagi belajar acces sdh dicoba tdk bisa juga. File terlampir. (Pada saat makan, scan cardneticnya dulu lalu cocokkan dulu dgn data makan jika ada munculkan nama dan update/centang field makan dan jamnya, jika tdk ada didaftar centang field tdkterdaftar dan simpan niknya begitu juga jika ada yg mau makan 2x) Terima kasih atas bantuannya. Endang
