kalau tidak salah problem pd code ini:
tbPelunasanUtang.Ket = "Lunas"
coba test pake tanda ini (') dulu di depan
'tbPelunasanUtang.Ket = "Lunas"
trus jalankan, kalau jalan utk tbl TBLPembelianHeader sesuai harapan
untuk yang tabel
tbPelunasanUtang.Ket = "Lunas"
mungkin perlu dibuat spt tbl TBLPembelianHeader
semoga membantu
Nurhasim
--- In [email protected], "umar masyhur" <[EMAIL PROTECTED]>
wrote:
>
> 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????
>
