MS ACCESS MAILING LIST: Re: [belajar-access] Membuat msgbox jika memasukan duplikat data

Monday, March 21, 2011

Re: [belajar-access] Membuat msgbox jika memasukan duplikat data

Coba pakai fungsi dlookup sebelum proses simpan..

Fungsi dlookup=

dlookup("[nama_field_yang_akan_dilihat]"), "NAMA_TABEL_YANG_AKAN_DILIHAT", "KRITERIA").

Untuk kriteria dalam format text pakai ' . Misal:

"[IDPelanggan]='" & IDPelanggan.text & "'")

Sedangkan kriteria dalam format number tidak perlu pakai ' . Misal:

"[IDPelanggan]=" & IDPelanggan.text)

IDPelanggan.text adalah nama textbox yang ada di form..

Contohnya kongkretnya begini:

Dim SS As Variant

        SS = DLookup("[NAMA_Pelanggan]", "NAMA_TABEL", "[IDPelanggan]='" _
                    & IDPelanggan.text & "'")
                If IsNull(SS) Then
                    'lakukan proses simpan

Else
Msgbox IDPelanggan.text & " ini miliki " & SS _

& vbCrLf & "Ganti dengan ID lain", , "GANDA"

' vbCrLf untuk ganti baris di msgbox, agar tampil lebih baik

End If

--- On Mon, 21/3/11, Piko <septian_bgt@yahoo.com> wrote:

From: Piko <septian_bgt@yahoo.com>
Subject: [belajar-access] Membuat msgbox jika memasukan duplikat data
To: belajar-access@yahoogroups.com
Date: Monday, 21 March, 2011, 9:10 AM

Dear pakar access, mohon bantuannya..bagaimana membuat pesan box jika kita memasukan data yang duplikat, misal :
Isi tabel
IDPelanggan Nama Alamat
12B Joko Jl. Singa
13B Ali Jl. Bangau
dll

Jika kita memasukan data di form lalu kita memasukan lagi data IDPelanggan 12B, lalu saat mau disimpan di command button, muncul pesan the changes you requested to the table were not succesful bla bla bla....
gimana caranya mengganti pesan error tadi menjadi messagebox misal :
"Data yang anda masukan sudah ada, mohon di input IDPelanggan yang lain"

Terima kasih