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

Rabu, 10 April 2013

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

Dear access-er,

sebelum kita memikirkan bagaimana membuat scriptnya, ada baiknya kita review struktur tabelnya dulu. ketika kita membangun sebuah tabel, idealnya ada proses normalisasi data sehingga kita tahu bahwa ada satu field yang akan menjadi kunci.

Setiap field yang menjadi akan menjadi kunci, syaratnya secara natural adalah unik alias tidak ada yang sama. kunci bisa tunggal atau kombinasi dari beberapa field. mahasiswa punya nim, pegawai punya nip, anggota perpus punya noanggota, dsb. kalau tidak ada yang unik bisa kita definisikan sendiri, seperti kode barang. setiap toko bisa punya kode berbeda untuk barang yang sama. nah, kalau nama kan tidak ada larangan untuk sama :D.

Nah, dari kasusnya kang cecep dibawah, mestinya didalam tabel tsb memiliki satu identitas lagi, entah itu noanggota, nim, atau, nip.

Salam,

Edi Rosadi

Application Developer & Consultant

Website/Blog :
Algoritma dan Pemrograman

Peta Industri dan Wisata Cilegon
Blog Bahasa Cilegon

Facebook-Perancangan Sistem

komersilkan blog atau website anda dengan bergabung di sini atau di sini

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

From: hari yanto <har_i20002000@yahoo.com>
Subject: Re: [belajar-access] No Duplicat Pada Tanggal yg sama
To: belajar-access@yahoogroups.com
Date: Wednesday, 10 April, 2013, 8:28 PM

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