prinsipnya adalah lihat ada tidak yg sama. biasanya saya gunakan dcount
kode barangnya teks / number
kalo teks
jKode = DCount("kodebarang", "tbbarang", "[kodebarang]= '" &
Forms!frmBarang!kodeBarang & "'")
jika jKode>0 berarti kodebarang sudah ada.
kalo ingin tahu namabarang sdh ada atau tidak
jNama = DCount("namabarang", "tbbarang", "[namabarang]= '" &
Forms!frmBarang!namaBarang & "'")
jika jNama>0 berarti namabarang sudah ada.
salam,
MBA
----- Original Message -----
From: "dann_ist" <[email protected]>
To: <[email protected]>
Sent: Friday, June 19, 2009 10:27
Subject: [belajar-access] Duplikasi file
> mohon bantuan saya sudah coba syntax yg di pernah dibahas di sini tapi
> belum berhasil :
> Dim str As String
> str = DLookup("[kodebarang]", "[tbbarang]" = " &
> Forms!frmBarang!kodeBarang & "" And [kodeBarang] & ")
>
> saya ingin mencegah duplikasi nama file yang pernah di input. baik kode
> maupun namabarang.
>
> terima kasih
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>
