dear umar, komputer menjalankan perintah baris per baris dari atas ke bawah. coba perhatikan lagi, umar suruh komputer save record yang sekarang, setelah itu umar suruh komputer menuju ke record baru, form akan blank pada field2nya bukan ? tapi baris berikutnya umar suruh komputer update record berdasarkan parameter me.no_pembelian (padahal kan sudah pindah ke new record).
aksan kurdin On Wed, Jul 2, 2008 at 9:47 PM, umar masyhur <[EMAIL PROTECTED]> wrote: > 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????? > > -- Aksan Kurdin
