atau anda pasang saja indeks unik noregister dan kodemesin, sebagai
indeks majemuk.
jadi dari sisi tabel sudah langsung proteksi data ganda.
aksan kurdin
On Friday, April 04, 2014 3:13:15 PM, hari yanto wrote:
> [Attachment(s) from hari yanto included below]
>
> Wa'alaiumsalam Wr Wb...
>
> Andre...,
>
> Yang Sampeyan lakukan sudah benar. Memakai dlookup. Mungkin
> peletakkannya saja yang perlu diperbaiki.
>
> Menurut saya, fungsi pengecekan bisa dibuat terpisah. Script di bawah
> ini mengasumsikan nama tabel adalah t. Default hasil adalah true. Bila
> data sudah ada akan berubah menjadi false. Kalau false, beri pesan
> data sudah ada. Bila true, lakukan enty data.
>
> Function cek(nreg, kdme)
> Dim xx As Boolean
>
> xx = True
>
> If DLookup("[id]", "t", "[noregister]='" _
> & nreg & "' and kode_mesin='" & kdme & "'") <> "" Then
> xx = False
> End If
> cek = xx
> End Function
>
> Terlampir adalah contoh eksekusinya (mdb 2003).
>
> Semoga bisa membantu dan memberi semangat.
>
> Hariyanto (Surabaya)
>
> --------------------------------------------
> On Fri, 4/4/14, andremandut@yahoo.com <andremandut@yahoo.com> wrote:
>
> Subject: [belajar-access] Validasi dua field
> To: belajar-access@yahoogroups.com
> Date: Friday, 4 April, 2014, 10:23 AM
>
> Assalamu'alaikum para senior sekalian.
>
> disini saya mau bertanya bagaimana cara memvalidasi data
> yang mempunyai dua kondisi.seperti field noregister dan
> kode_mesin. jika noregister dan kode_mesin adalah telah
> terdaftar, maka sistem akan menolak dan mengatakan data
> duplikat. dan jika noregistger dan kode_mesin salah satu
> tidak memenuhi syarat, maka sistem akan menyimpan data.
>
> contohnya data kira2 gini master..
> noregister |
> kode_mesin
> 001
> |
> X01
> 002
> | X01
> 001
> | X02
> 003
> | X02
> 003
> | X01
>
>
> Nah ketika user menginputkan lagi data noregister 003 dan
> kode_mesinnya 001.
> maka sistem akan memberi warning, mengingatkan bahwa kode
> tersebut telah terdaftar sebelumnya dan harus di ganti
> dengan nomor register lain jika dia ingin menambah data
> untuk kode_mesin.
>
> saya menggunakan DLookup untuk satu field sahaja, itupun di
> letak di event before_update di posisi noregister.
>
> Jadi bagaimana melakukannya untuk validasi dua field
> tersebut di ms access vba?
> Terimakasih atas masukannya.
>
>
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (3) |
Tidak ada komentar:
Posting Komentar