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

Senin, 02 September 2013

Re: [belajar-access] kode selalu gagal

wow mantap,

kang Junus,

1.kalau boleh tahu script ini tujuannya untuk apa?

kalau dari urutannya, saya juga ga tahu nyambungnya kemana?

tapi boleh sdikit koreksi.

1. untuk set rs1 dan rs2, sebaiknya gunakan dbalatt.openrecordset,

karena ngapain dbalatt di buat kalau ga di pakai.

2. setahu saya, setelah open record set yang ada dalam kurung seharus berupa perintah SQL, misal SELECT .... dst

3. nah hasil dari recordset biasanya saya lebih seneng dengan cara :

Me.mat1=rs1.fields("nama_material")

atau

me.mat1= rs1.fields(0) ' kalau nama_matreial berada di kolom paling depan saat SELECT

dst

nah perintah rs6, update itu untuk apa?

Salam

Rambo Access

From: mochamad junus <madjoens@yahoo.co.id>
To: belajar-access@yahoogroups.com
Sent: Tuesday, August 27, 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: