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" <[EMAIL PROTECTED]>
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...????
>
