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

Selasa, 14 Agustus 2012

Re: [belajar-access] mohon pencerahannya

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

From: Sofyan Efendi <sofyanefendi@gmail.com>

Sender: belajar-access@yahoogroups.com

Date: Wed, 15 Aug 2012 11:08:56 +0700

To: <belajar-access@yahoogroups.com>

ReplyTo: 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@gmail.com>
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
>
>
>