A zašto ne napraviš jdnostavno primarni kljč Sifra proizvoda + Datum bez polja Autonumber? Tako ćeš imati jedinstvene zapise baš kako si poželeo.

Probaj ovako...iz glave
Private sub AfterUpdate()
If Dcount("[proizvodSifra]","[tblevidencija]","[proizvodSifra]="&[txtProizvodSifra]&" AND proizvodDatum="&[txtProizvodDatum]&") > 0 Then
MsgBox"Podatak vec postoji"
Cancel = true
End if
Exit Sub
End Sub

Ok, pokusacu tako, no bas me interesuje kako da neki upit prodje kroz IF
Kako da definisem uslov
if upit=null then uradi upis? Ili ... nem pojma
Bas me nervira sto sam se tu zaglavio

Ovo sto si mi napisao za Dcount sad tek videh i mislim da sam prvo tako probao i nesto nisam uspeo
Nesto mi je prijavljivao da ne moze, mislim zbog tog AND, pa sam zakljucio da tu moze samo jedan uslov
mada mozda sam negde gresio probacu ponovo, iako i dalje tvrdoglavo me interesuje onaj princip sa upitom

If IsNull(brzahtjevnice) Or brzahtjevnice = "" Then
MsgBox "Šifra zahtjevnice nije unešena"
brzahtjevnice.SetFocus
Exit Sub
End If

ili ovako , ti malo izmjeni , umetni svoje
moraš paziti što ti je što u bazi ( polja, numerik , string , datum ) a što ti je na formi


Dim d As Database
Set d = CurrentDb
Dim ev As Recordset


Set ev = d.OpenRecordset("select * from tblListic where cstr(datum_listica)='" & CStr(datum) & "' and smjena='" & Smjena & "' and sif_stroja='" & Sifstroja & "'")

If Not ev.EOF() Then

MsgBox "proizvod je unešen i nemožete ga ispravljati"
Exit Sub

End If

dva pitanja
u prvom slucaju zasto i isnull i ""?

a u drugom cemu CStr? Ili to mora a nisam znao?

i non stop mi javlja neju gresku u SELECT statement
Izgleda da sve vreme gresim u nekim navodnicima?
Nista mi nije jasno, sa jednim uslovom je sve ok a kad dodam drugi prijavljuje gresku

Samo da se zahvalim svima na odgovorima, moze i sa dcount i sa SELECT....
stavio sam funkciju datevalue ispred txtbox odakle citam datum a neophodni su i '...'
Hvala jos jednom

Pozz