coba bermain dengan event saja, umar
private sub save_click()
on error resume next
DoCmd.RunCommand acCmdSaveRecord
if err.number <> 0 then
msgbox err.description & "(" & err.number & ")"
endif
end sub
private sub form_beforeupdate(cancel as integer)
If Me.totalbyr < Me.TotalBeli Then
beep
msgbox "Duitnya gak cukup"
cancel = -1
exit sub
End If
end sub
private sub form_afterupdate()
on error resume next
DoCmd.RunSQL "UPDATE TBLPembelianHeader SET TBLPembelianHeader.bayar =
True WHERE (((TBLPembelianHeader.NoTransaksi)='" & Me.No_Pembelian & "'));"
if err.number <> 0 then
msgbox err.description & "(" & err.number & ")"
endif
end sub
tapi omong-omong ini event di form manakah ? header atau detail ?
aksan kurdin
On Thu, Jul 3, 2008 at 8:45 PM, umar masyhur <[EMAIL PROTECTED]> wrote:
> 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
>
>
--
Aksan Kurdin
