mas udah saya coba kodenya dan jadinya di vba saya seperti ini :
*Private Sub save_Click()
On Error GoTo Err_save_Click
If Me.NoPembayaran.Value <> "" Then
tbPelunasanUtang.Ket = "Lunas"
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE TBLPembelianHeader SET TBLPembelianHeader.bayar
=True" & _
" WHERE (((TBLPembelianHeader.NoTransaksi)='" & Me.NoTransaksi & "'));"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Me.Text29.Value = ""
Else
MsgBox "Nomor Pembayaran Tidak Boleh Kosong!", vbInformation + vbOKOnly,
"Perhatian"
Me.NoPembayaran.SetFocus
End If
Exit_save_Click:
Exit Sub
Err_save_Click:
MsgBox Err.Description
Resume Exit_save_Click
End Sub*
kokmasih nggak bisa????
tiap tombol di klik muncul peringatan object required....
gimana yaaaa????
