maap nyelip :)
kalo saya kodenya begini :
Private Sub save_Click()
On Error GoTo Err_save_Click
If Me.NoPembayaran.Value <> "" Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Me.Text29.Value = ""
DoCmd.RunSQL "UPDATE TBLPembelianHeader SET TBLPembelianHeader.bayar =
True WHERE (((TBLPembelianHeader.NoTransaksi)='" & Me.No_Pembelian & "'));"
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
nah tiap saya klik tobol save nya muncul pesan error : "Error 2501. The
RunCommand action was cancelled. In Save_click"
apa ada yang salah dari kode ini ???
saya coba seperti ini :
Private Sub save_Click()
On Error GoTo Err_save_Click
If Me.NoPembayaran.Value <> "" Then
DoCmd.SetWarnings False
'DoCmd.RunCommand acCmdSaveRecord <<=== ini saya jadikan comment
DoCmd.GoToRecord , , acNewRec
Me.Text29.Value = ""
DoCmd.RunSQL "UPDATE TBLPembelianHeader SET TBLPembelianHeader.bayar =
True WHERE (((TBLPembelianHeader.NoTransaksi)='" & Me.No_Pembelian & "'));"
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
pesannya jadi : "Error 2105: You can't go to the specified record. In
save_click"
trus gimana ya?????
