dlookup type mismatch

Ludim vise od run-time error 13 - data type mismatch, a ne znam sta da radim...
Evo vam dole kod, koji radi kako treba sa brojevima, ali sa textom mi izbacuje problem:



Broj_protokola je inace tekstualno polje, ali - kada u njega ukucam neki broj, dlookup odradi kako treba, a kada u broj protokola ukucam tekst, izbaci mi gresku...
Nakon bezuspesnog guglanja, molim za pomoc...

A sa cime uslovljavate u IF Uslov Then ?

Uslov Vam nije potpun samo ste dali konstataciju tj dali vrednost ali cemu ona treba da bude jednaka?

Bolje bi bilo da upotrebite funkciju DCount()


Private Sub Broj_protokola_AfterUpdate()

Dim Broj AS Integer

Broj=DCount("[Broj_protokola]", "TABljekuvjerenje", "Broj_protokola ='" & Forms![Fljekuvjerenje]![Broj_protokola] & "'")

If Broj > 0 Then
MsgBox "Ovaj broj vec postoji u protokolu"
Me.Broj_protokola.SetFocus
End If
End Sub

Potpis

http://zoraneremija.wix.com/eremijacv

Ovo sa Dcount-om zaista radi, i na tome sam Vam zahvalan, ali interesuje me zasto ona varijanta sa Dlookup-om ne radi?
Koliko sam ja shvatio Dlookup, njegov pozitivan rezultat u If-u uslovljava than (pozitivan ishod). Moguce je da gresim (ipak sam manje-vise pocetnik), ali kako onda objasniti da sa numbers radi, ali sa textom nece, a pri tome izbacuje samo type mismatch?

Unapred se zahvaljujem na svakom objasnjenju...

P.S. Hvala i na ovom resenju sa Dcountom, nasao sam na par mesta tu varijantu, ali me interesovalo zasto ono prvo resenje ne radi...

Definicija Funkcije je da za zadate parametre vraca i mora da vrati neku vrednost. Sve bi vam bilo jasnije kada bi ste iz uslovnog grananja koje se definise naredbom

If uslov Then
[naredbe]
End If

izvukli Vasu Dlookup funkciju.

Private Sub Broj_protokola_AfterUpdate()

Dim Tekst as String
Tekst = DLookup("[Broj_protokola]", "[TABljekuvjerenje]", "Broj_protokola ='" & Forms![Fljekuvjerenje]![Broj_protokola] & "'")
Msgbox Tekst

Tada biste videli da vi u varijabli Tekst nemate nikakav Uslov

If Tekst Then
MsgBox "Ovaj broj vec postoji u protokolu"
Me.Broj_protokola.SetFocus
End If
End Sub

Znaci to bi izgledalo kao gore a to bi recimo znacilo: Ako je Tekst tada ispisi poruku, sto znaci da je narusena osnovna truktura Naredbe IF u kojoj nije definisan uslov.
a kada biste napisali
Dim Uslov AS String

Uslov = Tekst & " = '" & Forms![Fljekuvjerenje]![Broj_protokola] & "'"

IF Uslov Then ...
Tada bi ispostovali osnovnu strukturu IF naredbe...

Potpis

http://zoraneremija.wix.com/eremijacv

Probaj da staviš ovako i trebalo bi da radi i za text


Ako proveravaš da li je neki podatak već unet možda je bolje da koristiš BeforeUpdate event...

Potpis

Lanci, Kuke, Spojnice, Priveznice, Skopci, Hvataljke, Celicna uzad, Valjkasti lanci, Galovi Lanci MM Veriga d.o.o.
Agrorade atomizeri