Salam hangat juga Pak, Saya sudah coba Pak, tapi run-time error '424' object required, sy menggunakan Access 2007.
Thk's. Bing Tiong --- In [email protected], "MBA" <murid.belajaracc...@...> wrote: > > tSql = "Update Db_SJH Set Status = -1 where No_Sj= '" & Me.Sub1!No_SJ & "'" > > Salam Hangat dan Jabat Erat > Murid Belajar Access > > > EdyWiyono > > > > From: [email protected] [mailto:[email protected]] > On Behalf Of bingtiong > Sent: Friday, July 16, 2010 11:59 > To: [email protected] > Subject: [belajar-access] Update Field di Database atau Query > > > Salam Access, > > Saya lagi buat skenario bahwa kalau status "FALSE" maka bisa di print, > tetapi sehabis print maka status dirubah menjadi "TRUE" saya sudah coba dgn > statement dibawah ini : > > If Me.Sub1!Status = False Then > If Not IsNull(Me.Sub1!No_SJ) Then > sWhereP = "[No_SJ] = '" & Me.Sub1!No_SJ & "'" > DoCmd.OpenReport "Rpt_SJ", acViewPreview, , sWhereP > tSql = "Update Db_SJH Set Status = '" & "True" & "' where > No_Sj= '" & Me.Sub1!No_SJ & "' ;" > DoCmd.RunSQL tSql > End If > Else > MsgBox "Surat Jalan Sudah Pernah Di Cetak !!", vbOKOnly,namaModul > End If > > Kenapa timbul message : > > Microsoft Office Access didn't update 1 field(s)due to a type conversion > failure .............................. > > Kenapa yach ? thk's for support nya. >
