ACCESS FEED: Re: [belajar-access] Re: mohon pencerahannya

Selasa, 14 Agustus 2012

Re: [belajar-access] Re: mohon pencerahannya

Dear Pak Sofyan,

Terima kasih banyak atas pencerahannya.
Sudah berhasil setelah saya ganti jadi form.requery.

Thanks

Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

From: "Sofyan Efendi" <sofyanefendi@gmail.com>

Sender: belajar-access@yahoogroups.com

Date: Wed, 15 Aug 2012 05:08:28 -0000

To: <belajar-access@yahoogroups.com>

ReplyTo: belajar-access@yahoogroups.com

Subject: [belajar-access] Re: mohon pencerahannya

Dear Pak Johan,
Yang docmd.runsql sebelumnya harus ditambah docmd.setwarnings false
tapi abaikan dulu aja ya, jangan diganti kode Bpk yg CurrentDb.Execute strsql6, dbSeeChanges
Tapi line ini:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
diganti menjadi:
form.requery
atau
me.requery
dicoba dulu ya

--- In belajar-access@yahoogroups.com, johan.hung@... wrote:
>
>
> Dear pak Sofyan,
>
> Setelah saya ganti jadi docmd.RunSQL strsql16, message yang keluar jadi nambah step "You are about to update 1 row" stlh klik ok tetep keluar message " the data has been changes" dan harus klik sekali lg utk update baru close form.
>
> Kalau pakai form.requery bagaimana ya kira" codenya.
>
>
> Thanks
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
> -----Original Message-----
> From: Sofyan Efendi <sofyanefendi@...>
> Sender: belajar-access@yahoogroups.com
> Date: Wed, 15 Aug 2012 11:08:56
> To: <belajar-access@yahoogroups.com>
> Reply-To: belajar-access@yahoogroups.com
> Subject: Re: [belajar-access] mohon pencerahannya
>
> Dear Pak Johan, ditambah kode Form.Requery saja, atau bisa juga dengan
> mengubah run sqlnya, dari CurrentDb.Execute strsql6, dbSeeChanges menjadi
> docmd.RunSQL strsql6.
>
> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> Sofyan Efendi
> http://imopi.wordpress.com | http://trendmuslim.com
> ----- Original Message -----
> From: "Johan hung" <johan.hung@...>
> To: <belajar-access@yahoogroups.com>
> Sent: Wednesday, August 15, 2012 10:15 AM
> Subject: [belajar-access] mohon pencerahannya [1 Attachment]
>
>
> > Dear Rekan Milis,
> >
> > Saya melakukan update value dengan code di bawah, tapi kalau di klik
> > tombol update tersebut selalu muncul message "the data has been
> > changed" (terlampir print screen). dan harus di klik sekali lagi di
> > tombol update baru close formnya.
> >
> > yang ingin saya tanyakan bagaimana caranya supaya tidak muncul message
> > ";the data has been change" dan diganti dengan kalimat yang kita set.
> > dan setelah klik OK maka form akan langsung close tanpa harus klik
> > tombol update.
> >
> > for info pada saat program di jalankan dengan backend access bisa
> > langsung close, tapi setelah saya pindahkan ke SQL server muncul
> > message tersebut dan harus klik tombol update untuk close form.
> >
> > +++++++++++++++++++++++++++++++++++
> >
> > Private Sub Command55_Click()
> > On Error GoTo Err_Command55_Click
> > Dim stDocName As String
> > Dim stLinkCriteria As String
> > Dim strsql6 As String
> > Dim strsql7 As String
> > Dim strsql8 As String
> >
> > DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
> >
> > If [bgt_sta] = "approve" Then
> >
> > DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
> > strsql6 = "UPDATE Tbl_fin SET last_sta='" & "REK" & "' where
> > tbl_fin.voucid =" & [Forms]![Frm_finBgt]![VoucID] & ""
> > CurrentDb.Execute strsql6, dbSeeChanges
> >
> > Else
> > If [bgt_sta] = "pending" Then
> >
> > DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
> > strsql7 = "UPDATE Tbl_fin SET last_sta='" & "BGT" & "' where
> > tbl_fin.voucid =" & [Forms]![Frm_finBgt]![VoucID] & ""
> > CurrentDb.Execute strsql7, dbSeeChanges
> >
> >
> > Else
> > If [bgt_sta] = "back to tax" Then
> >
> > DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
> > strsql8 = "UPDATE Tbl_fin SET last_sta='" & "TAX" & "' where
> > tbl_fin.voucid =" & [Forms]![Frm_finBgt]![VoucID] & ""
> > CurrentDb.Execute strsql8, dbSeeChanges
> >
> >
> > End If
> > End If
> > End If
> >
> >
> > DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
> >
> > Me.bgt_tgl = Now()
> > Me.last_sta_tgl = Date
> >
> > Me.bgt_usr = Combo35
> >
> > DoCmd.Close
> >
> > stDocName = "Frm_lookup_bgt"
> > DoCmd.OpenForm stDocName, , , stLinkCriteria
> >
> > Exit_Command55_Click:
> > Exit Sub
> >
> > Err_Command55_Click:
> > MsgBox Err.Description
> > Resume Exit_Command55_Click
> >
> > End Sub
> >
> > +++++++++++++++++++++++++++++++++
> >
> > thanks
> >
> >
> > Johan
> >
> >
> >
> > ------------------------------------
> >
> > SPAM IS PROHIBITEDYahoo! Groups Links
> >
> >
> >
>