makasih atas responnya mas......
saya udah coba rubah seperti ini :
Private Sub save_Click()
On Error GoTo Err_save_Click
If Me.NoPembayaran.Value <> "" Then
DoCmd.SetWarnings False
If Me.totalbyr.Value - Me.TotalBeli.Value >= 0 Then
DoCmd.RunSQL "UPDATE TBLPembelianHeader SET TBLPembelianHeader.bayar
= True WHERE (((TBLPembelianHeader.NoTransaksi)='" & Me.No_Pembelian &
"'));"
End If
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Else
MsgBox "Nomor Pembayaran Tidak Boleh Kosong!", vbInformation + vbOKOnly,
"Perhatian"
Me.NoPembayaran.SetFocus
End If
Exit_save_Click:
Exit Sub
Err_save_Click:
MsgBox "Error " & Err.Number & ": " & Err.Description & " in save_Click"
Resume Exit_save_Click
End Sub
tapi tetap sama pesannya tetap sepeti itu....
gimana yaaa??
--
regrads,
Umar Yusuf Masyhur
