MS ACCESS MAILING LIST: {Disarmed} [belajar-access] mohon pencerahannya [1 Attachment]

Friday, August 17, 2012

{Disarmed} [belajar-access] mohon pencerahannya [1 Attachment]

[Attachment(s) from Johan hung included below]

Dear Rekan Milis,

Saya melakukan update value dengan code di bawah, tapi kalau di klik
tombol update tersebut selalu muncul message "the data has been
changed" (terlampir print screen). dan harus di klik sekali lagi di
tombol update baru close formnya.

yang ingin saya tanyakan bagaimana caranya supaya tidak muncul message
";the data has been change" dan diganti dengan kalimat yang kita set.
dan setelah klik OK maka form akan langsung close tanpa harus klik
tombol update.

for info pada saat program di jalankan dengan backend access bisa
langsung close, tapi setelah saya pindahkan ke SQL server muncul
message tersebut dan harus klik tombol update untuk close form.

+++++++++++++++++++++++++++++++++++

Private Sub Command55_Click()
On Error GoTo Err_Command55_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim strsql6 As String
Dim strsql7 As String
Dim strsql8 As String

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

If [bgt_sta] = "approve" Then

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
strsql6 = "UPDATE Tbl_fin SET last_sta='" & "REK" & "' where
tbl_fin.voucid =" & [Forms]![Frm_finBgt]![VoucID] & ""
CurrentDb.Execute strsql6, dbSeeChanges

Else
If [bgt_sta] = "pending" Then

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
strsql7 = "UPDATE Tbl_fin SET last_sta='" & "BGT" & "' where
tbl_fin.voucid =" & [Forms]![Frm_finBgt]![VoucID] & ""
CurrentDb.Execute strsql7, dbSeeChanges

Else
If [bgt_sta] = "back to tax" Then

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
strsql8 = "UPDATE Tbl_fin SET last_sta='" & "TAX" & "' where
tbl_fin.voucid =" & [Forms]![Frm_finBgt]![VoucID] & ""
CurrentDb.Execute strsql8, dbSeeChanges

End If
End If
End If

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Me.bgt_tgl = Now()
Me.last_sta_tgl = Date

Me.bgt_usr = Combo35

DoCmd.Close

stDocName = "Frm_lookup_bgt"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command55_Click:
Exit Sub

Err_Command55_Click:
MsgBox Err.Description
Resume Exit_Command55_Click

End Sub

+++++++++++++++++++++++++++++++++

thanks

Johan