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.
Attachment(s) from hari yanto | View attachments on the web
1 of 1 File(s)
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (2) |
Tidak ada komentar:
Posting Komentar