buat satu form dan tambahkan kode berikut di textbox huruf.
Private Sub huruf_BeforeUpdate(Cancel As Integer)
If DCount("[huruf]", "Table1", "[huruf] = '" & huruf & "'") <> 0 Then
MsgBox "nama sudah ada..! masukkan nama yang lain ", vbCritical, "Duplikat Data"
Cancel = True
Me.huruf.Undo
Else:
End If
End Sub
semoga membantu.
salam,
From: monas monas <jaken_05@yahoo.co.id>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Thursday, May 3, 2012 5:27 PM
Subject: [belajar-access] ubah warning error pada index tabel [2 Attachments]
Salam
Mohon pencerhan dari rekan rekan yang berpengetahuan lebih
Saya punya tabel1, di tabel tsb saya terapkan multi field index
Tujuanya agar data pada tabel, unik atau tidak ada yang sama persis
Saat saya masukkan data yang sama, muncul warning
Pertanyaan saya : Bisakah kita ubah warning tsb menjadi pesan yang lebih bisa di mengerti oleh user yang pada dasarnya gak mengerti bahasa inggris , dengan kata kata kita sendiri
Mohon petunjuk cara nya
terima kasih sebelumnya
salam
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar