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

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    On Error GoTo errHandle
   
errHandle:
    If DataErr = 3022 Then 'Primary key violation
        MsgBox "Data yang anda masukan sudah ada, mohon di input IDPelanggan yang lain", vbInformation, "Duplikasi key"
        Response = acDataErrContinue
    End If
End Sub



Aksan Kurdin




On 3/21/2011 9:10 AM, Piko wrote:

 

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

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___