[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 (1)

Recent Activity:

• New Members 7

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___