Sebetulnya ada 6 kategory nya , cuma yang saya copy kan 2 -untuk yang rs6 ikut tercopy(dianggap gak ada)- dan pada intinya dari dua kategori tersebut sudah terjadi error. Demikian mas terima kasih atas bantuannya. Dikirim dari Yahoo! Mail pada Android |
From: hasimnurhsm@yahoo.com <hasimnurhsm@yahoo.com>;
To: belajar-access@yahoogroups.com <belajar-access@yahoogroups.com>;
Subject: Re: [belajar-access] kode selalu gagal
Sent: Mon, Sep 2, 2013 12:42:01 PM
| maaf sebelumnya saya balik tanya, mungkin saya yang kurang teliti: rs6.Update code ini variabel dari mana ya?, kalau tidak ada kemungkinan ini yang membuat error Nurhasim Hasan misahrunaccess.wordpress.com From: mochamad junus <madjoens@yahoo.co.id> To: belajar-access@yahoogroups.com Sent: Tuesday, 27 August 2013 5:21 PM Subject: [belajar-access] kode selalu gagal Mohon pencerahannya untuk master and suhu access, kode saya ini gimana ya solusinya -selalu gagal terus bila di eksekusi- supaya bisa jalan, sudah mentok ni pikirannya. terima kasih banyak atas segala bantuannya selama ini. Private Sub Command236_Click() Dim db As Database Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Set dbalatt = CurrentDb Set rs1 = CurrentDb.OpenRecordset("stok material") Set rs2 = CurrentDb.OpenRecordset("stok material" ) rs1.AddNew rs1("nama_material").Value = Me.mat1 rs1("kode").Value = Me.no1 rs1("tgl_material_keluar").Value = Me.tgl1 rs1("material_keluar").Value = Me.jml1 rs1.Update rs2.AddNew rs2("nama_material").Value = Me.mat2 rs2("kode").Value = Me.no2 rs2("tgl_material_keluar").Value = Me.tgl2 rs2("material_keluar").Value = Me.jml2 rs2.Update rs6.Update End Sub |
__._,_.___
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (4) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar