Bismillahirrohmanirrohim...,
--- On Thu, 11/4/13, cecep <cepwahyu@gmail.com> wrote: From: cecep <cepwahyu@gmail.com> Subject: RE: [belajar-access] No Duplicat Pada Tanggal yg sama To: belajar-access@yahoogroups.com Date: Thursday, 11 April, 2013, 10:51 AM
Terimakasih mas Nurhasim, mas Nitra dan mas Hariyanto mas Edi atas responsya yang luar biasa, sebenarnya pada aplikasi aslinya setiap field Nama ini adalah combobox yang mana datanya saya ambil dari table lain yg setiap nama ini memiliki ID sendiri2 dan yang saya lempar ke milis ini adalah potongan kasus dari user, kebetulan untuk permintaan user seperti yg saya sampikan ini saya menemui jalan buntu. Dari saran yg diberikan berjalan semua namun ada sedikit tambahan pertanyaan nih, sebelumnya mohon maaf…tanpa bermaksud membandingkan…saya menganggapnya sebagai khasanah kekayaan ilmu yg sangat Indah, untuk saran mas Nurhasim dan mas Nitra hasilnya sama tapi apakah bisa warning yg muncul ini dibuat lebih komunikatif dengan user seperti codingnya mas Hariyanto, nah untuk coding-nya mas Hariyanto sudah ada tuh warning yg komunikatif-nya cuman ada dua hal yang ingin saya tanyakan lagi: 1. Bagaimana ketika warning bahwa "data sudah terekam" maka user tidak bisa melanjutkan input? Artinya user harus ganti dulu tuh Nama. Kalo coding yg mas Hariyanto kasih, ketika warning "data sudah terekam" muncul kursor tetap pindah ke field berikutnya. Saya biasa menggunakan form unbound. Sehingga kalau tidak klik butto n simpan, data tidak akan tersimpan. Namun form didasarkan source tabel, setelah user diberi pesan beri event nggak jadi: MsgBox var Me.Undo 2. Bagaimana supaya warning yg muncul hanya ketika ada data yg sudah terekam saja? Jadi kalo memang Nama tersebut tidak ada kursor langsung saja ke field berikutnya tanpa harus ada warning "tidak ada data". Untuk data yang benar-benar baru, lebih baik tanpa pesan. Sedangkan event untuk mengalihkan kursor, bisa menggunakan set focus. Misal textbox selanjutnya bernama aku, event: aku.setfocus. Sekali lagi saya ucapkan terimakasih atas waktu dan ilmunya yg sangat bermanfaat ini. Best regards CW From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of edi rosadi Sent: 11 April 2013 8:31 To: belajar-access@yahoogroups.com Subject: 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 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. 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 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] Baimana ya codingnya supaya tidak ada duplicat data pada periode tanggal yg sama? Kalo tanggal berbeda data yg sama bisa masuk lagi. 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. | | |
Tidak ada komentar:
Posting Komentar