If Upit ... then

Malo sam se zapetljao...

Treba da proverim pre nego sto upisem novi slog u tabelu da li vec postoji takav
Tabela ima tri polja, prvo id tipa autonumber
drugo je sifra prozivoda i trece datum
Treba da ne dozvolim unosenje istog proizvoda istog datuma

Setovao sam neki upit recordset kao
set upit = db.openrecordset("SELECT * FROM tblevidencija WHERE proizvodSifra="&[txtProizvodSifra]&" AND proizvodDatum="&[txtProizvodDatum]&")")

i treba da sledi neki uslov... if upit ... then, e tu sam zapeo.

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

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

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