Checke om data findes i forespørgsel

Public funktion

If (dcount(Forms!dinformularnavn!der hvor dit data som du skal have testet står,"myqueryname"),0) >0 then

Det som den nu skal for at add data

else

msgbox " Det findes allerede"

Endif

@larsgrau

Kan ikke få dit tip til at fungere... Har det noget at sige at det er tekst jeg skal søge efter?

Min søge string er: Me.ProduktIDCombo og min Query hedder MinTest

Jeg skal søge efter om produkt findes i min Query.

Fandt løsning:


lngResult = Nz(DLookup("[ProduktID]", "MinTest", "[ProduktID] = " & Me.ProduktIDCombo), 0)
If lngResult = 0 Then
'If lngResult = 0
' Dlookup didn't find a match, so it returned Null. We changed Null toZero to avoid a TypeMismatch error.
MsgBox "No Matching Record"
Else
MsgBox "Match found"
End If

"Jeg skal søge efter om produkt findes i min Query."

"Min søge string er: Me.ProduktIDCombo og min Query hedder MinTest"


If Dcount("SomeFieldInYourQuery", "MinTest", "SomeFieldInYourQuery = '" & Me.ProduktIDCombo & "'" ) > 0 Then ....