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

Rabu, 10 April 2013

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

Bismillahirrohmanirrohim...,

Ikut nimbrung. Bisa dicoba menggukan event:

Dim var As Variant
Dim rs As Recordset

    If tgl <> "" And pint <> "" Then
       Set rs = CurrentDb.OpenRecordset("select ID from namaTabel where DateValue(Tgl_Masuk)=#" _
        & Format(textboxtgldiForm, "mm/dd/yyyy") & "# and Nama='" & textboxNamadiForm.Value & "'")
        If Not rs.EOF Then
            var = textboxNamadiForm & " Sudah terekam tanggal " & textboxtgldiForm & " dg id " & rs.Fields(0)
        Else
            var = "Tidak ada data"
        End If
       rs.Close
       Set rs = Nothing

       MsgBox var

    End If

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

--- On Wed, 10/4/13, hasimnurhsm@yahoo.com <hasimnurhsm@yahoo.com> wrote:

From: hasimnurhsm@yahoo.com <hasimnurhsm@yahoo.com>
Subject: Re: [belajar-access] No Duplicat Pada Tanggal yg sama
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Date: Wednesday, 10 April, 2013, 4:35 PM

Mungkin Primary Key diganti jangan di id tapi di tgl sama nama

Nurhasim Hasan

From: cecep <cepwahyu@gmail.com>
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