posisi kesalahan coding ada
dideklarasi untuk "cnn" nya koq ngga ada?
coba pakai docmd.runsql
mis dengan catatan semua field adl string, jika tidak berjalan coba
disetting
di vba : dim txtKDStock, TXTNama as string ..... buat seperlunya.
Dim msql As String
msql = "UPDATE tblbarang SET" _
& " kdstock = '" & txtKDStock & "'," _
& " nama = '" & TXTNama & "'," _
& " merek = '" & TXTMerek & "'," _
& " Minstock = '" & TXTMinStock & "'," _
& " satuan = '" & TXTSatuan & "'," _
& " WHERE (TblBarang.kdstock = '" & txtKDStock & "');"
'docmd.setwarning false 'menghilangkan popup running query
docmd.runsql msql
'docmd.setwarning true 'kembalikan ke normal
salam sama-sama belajar
~roland
-----Original Message-----
From: Blue Cools [mailto:[email protected]]
Sent: Sunday, March 15, 2009 14:13
To: [email protected]
Subject: [belajar-access] Coding untuk UPDATE Tabel via Form menggunakan
ADO
Maaf Mau merepotkan lagi,
Bagaimana coding untuk mengupdate table melalui form dengan menggunakan
system ADO?
Saya kirimkan coding yg saya buat tapi error.
Private Sub UpdateData()
Dim msql As String
msql = "UPDATE tblbarang SET" & _
"kdstock='" & txtKDStock.Value & "'," & _
"nama='" & TXTNama.Value & "'," & _
"merek='" & TXTMerek.Value & "'," & _
"Minstock='" & TXTMinStock.Value & "'," & _
"satuan='" & TXTSatuan.Value & "'," & _
"WHERE (TblBarang.kdstock='" & txtKDStock.Value & "')"
cnn.Execute (msql)
End Sub
Dengan ketentuan yang menjadi primary key pada tblBarang (Table Barang)
adalah KdStock.
Thanks.
