Maksud saya kenapa waktu klik Update field 2,3 dan 4 kok blank Padahal sudah saya coba gonta-ganti tipenya
----- Original Message ----- From: Kid Mr. To: belajar-excel@yahoogroups.com Sent: Thursday, June 14, 2012 9:48 AM Subject: Re: [belajar-excel] Akses database MS. Access dari Excel Cek tipe data yang akan dimasukkan ke database. Seluruh nilai input harus memiliki tipe data yang sama dengan setiap field di database. Wassalam, Kid. 2012/6/14 Heru Safrudin <superhe...@gmail.com> Yang heran kenapa hanya field ke 1 s/d 4 saja yang bermasalah field yang lainnya bisa terupdate ----- Original Message ----- From: Kid Mr. To: belajar-excel@yahoogroups.com Sent: Thursday, June 14, 2012 8:33 AM Subject: Re: [belajar-excel] Akses database MS. Access dari Excel Kenapa waktu jalankan ProsedurUpdateThisRecord kok error (di file terlampir) >> Pastikan database tidak sedang dibuka. Atau set database tidak exclusive. Kalo memang perlu validasi sebelum update, bagaimana caranya ? >> Contoh validasi yang telah Anda buat : If IsNull(rs.Fields(3).Value) = False Then sayangnya, validasi itu baru terhadap 1 field yaitu field ke-4. Kumpulkan semua syarat yang harus terpenuhi (berarti harus semua field pokok bukan) pada bagian sesaat sebelum melakukan update. Hasil validasi akan menghasilkan suatu kondisi boleh melakukan update sebuah record atau tidak boleh. Wassalam, Kid. 2012/6/14 Heru Safrudin <superhe...@gmail.com> Dear Master, Terima kasih telah dibimbing hingga sejauh ini, tapi masih saja tetap belum bisa sempurna Kenapa waktu jalankan ProsedurUpdateThisRecord kok error (di file terlampir) Kalo memang perlu validasi sebelum update, bagaimana caranya ? Mohon perncerahan lagi Terimakasih Heru Safrudin ----- Original Message ----- From: Kid Mr. To: belajar-excel@yahoogroups.com Sent: Thursday, June 07, 2012 4:59 PM Subject: Re: [belajar-excel] Akses database MS. Access dari Excel Public Sub UpdateThisRecord() 'nama prosedur dengan jenis Sub If rs Is Nothing Then 'cek apakah rs terdefinisi dan berisi object MsgBox "No Connection" 'pesan ketika rs tak berisi object Exit Sub 'keluar dari prosedur End If 'akhir blok conditional 'validasi input sangatlah penting 'keterangan sebaiknya diadakan proses validasi data SetFieldsValue 'jalankan prosedur dengan nama SetFieldsValue End Sub 'akhir blok prosedur Beginikah maksud contohnya ? (pasti bukan) File tersebut adalah contoh cara membaca dan menulis data ke database melalui VB/VBA menggunakan object ADO. Wassalam, Kid.