ACCESS FEED: RE: Bls: [belajar-access] No Duplicat Pada Tanggal yg sama

Rabu, 10 April 2013

RE: Bls: [belajar-access] No Duplicat Pada Tanggal yg sama

Terimakasih banyak kang Alam atas ilmunya…

Dari beberapa ilmu yg sudah saya dapatkan ternyata ada ilmu baru (buat saya yg sangat basic dgn VBA) lagi nih. Ada warning komunikatif-nya dengan user, ijinkan saya minta tambahan ilmunya nih… hehehe…saya modifikasi sedikit msgboxnya menjadi

MsgBox Me.Nama & " " & "Sudah ada"

Nah gimana caranya di msgbox ada tambahan juga yg memberi tahu ID-nya, jadi warning yg keluar menjadi “AGUS Sudah ada pada tanggal ini dengan ID 1” seperti codingnya mas Hariyanto “textboxNamadiForm & " Sudah terekam tanggal " & textboxtgldiForm & " dg id " & rs.Fields(0)”

Sekali lagi termakasih banyak

Best Regards

From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Alam_Sikasep
Sent: 11 April 2013 7:15
To: belajar-access@yahoogroups.com
Subject: Re: Bls: [belajar-access] No Duplicat Pada Tanggal yg sama

Ikutan nimbrung yaa mass
Emang primary key bias ngaruh yaa??

Private Sub Nama_BeforeUpdate(Cancel As Integer)
Dim isExist
isExist = DCount("*", "tblnama", "nama='" & [Nama] & "' AND Tgl_Masuk=#" & [Tgl_Masuk] & "#")
If isExist Then
MsgBox "Ada Nama yang sama di tanggal yang sama"
Cancel = -1
End If
End Sub

--- In belajar-access@yahoogroups.com, Farhan Holizain <farhanholizain@...> wrote:
>
> Mungkin begini maksud Pak Nurhasim Hasan,
> saya sudah ubah primary keynya
>
>
>
> Farhan Holizain
>
>
>
> ________________________________
> Dari: "hasimnurhsm@..." <hasimnurhsm@...>
> Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
> Dikirim: Rabu, 10 April 2013 16:35
> Judul: Re: [belajar-access] No Duplicat Pada Tanggal yg sama
>
>
>
>
>
>
>
> Mungkin Primary Key diganti jangan di id tapi di tgl sama nama
>
>
>
>
> Nurhasim Hasan
>
>
>
>
> ________________________________
> From: cecep <cepwahyu@...>
> To: belajar-access@yahoogroups.com
> Sent: Wednesday, 10 April 2013 3:34 PM
> Subject: [belajar-access] No Duplicat Pada Tanggal yg sama [1 Attachment]
>
>
>
>
> Dear Para Access mania,
>
> Baimana ya codingnya supaya tidak ada duplicat data pada periode tanggal yg sama? Kalo tanggal berbeda data yg sama bisa masuk lagi.
> saya sudah buat table:
> ID
> Tgl_Masuk
> Nama
>
> Kemudian dari tbl tsb saya buat form, nah didalam form tsb ketika akan memasukan Nama yg sama pada tanggal yg sama maka tidak diijinkan. Kalo tanggalnya berbeda bisa masuk lagi.
> Supaya lebih jelas apa yg saya maksud, saya lampirkan contohnya.
>
> Please help
>
> Best regards
> CW
>
>