ACCESS FEED: Re: [belajar-access] kode selalu gagal

Senin, 02 September 2013

Re: [belajar-access] kode selalu gagal

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 (3)

Recent Activity: