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
>
>
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (7) |
Tidak ada komentar:
Posting Komentar