Rabu, 10 April 2013

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
>
>

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (7)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar