Maaf, bukan dlookup, tapi dcount.....jadi Result = Dcount(nama field, nama domain/table,critria)
Salam Bobby --- In [email protected], "Bobby" <[EMAIL PROTECTED]> wrote: > > Syntax yg anda pakai saya lihat agak tidak biasa buat saya, untuk > melakukan hal yang sama saya biasanya menggunakan fungsi "Dlookup", > dengan critria tertentu, misalnya : > > Dim result as Integer > result= Dlookup(nama_field,nama_doamain,criteria) > If result >0 then > Msgbox "Data sudah ada" > Docmd.runcommand accmdundo > Else > Docmd.runcommand accmdsaverecord > End if > > Begitu...... > Eh kalau sabtu minggu sepi ya di milis ini...... > > Salam > > Bobby > > --- In [email protected], "tamrin_mm" <tamrin_mm@> > wrote: > > > > Dear MAster Accesss.... > > Saya mempunyai tabel seperti ini > > Tbl 1 : No(Primary Key(AutoNumber));KDPRODI;NAMAPRODI;KDPT > > Tbl 2 : KDPT(Primary Key);NamaPT > > Pada Form Input Tbl 1, ketika KDProdi diinput maka akan dicek apakah > > KdProdi tersebut tlah dipakai atau tidak dengan catatan bahwa > KDPT_nya > > adalah sama. > > Sintax yang saya gunakan ad: > > > > Option Dbs As Database, Option Rst as Recordsource > > SUb Uji() > > Set Dbs =Rst.OpenRecordset(Select * From Tbl1 Where KDPT.value) > > if Rst NoMatch then > > Msgbox(KDProdi tlah ada) > > end if > > End Sub > > > > Helpme ada yang salah tdk dengan sintaxnya...???? > > >
