Hej!

Jag håller på ett program som registrerar personer i databasen med VB. Men jag har ett litet problem...T.ex. Jag söker en person i databasen, om personen finns i databasen så får jag personens uppgifter i textrutorna,,och det är lugnt ,,men jag vill veta hur man göra när personen inte finns i databasen. Jag menar vad är det för koder man använder (if-satsen) för att den ska kolla om personen finns eller inte??
Här nere har jag skrivet en function som är en "ren"sök funktion utan kontroll satser..



Function SokPerson(Namn As String)

Set RS = DB.OpenRecordset("SELECT * FROM Customer1 WHERE Personnr = '" & Namn & "'", dbOpenDynaset)


Text1.Text = "" & RS!ID
Text2.Text = "" & RS!Personrnr
Text3.Text = "" & RS!namn
Text4.Text = "" & RS!Adress
Text5.Text = "" & RS!PostAdress
Text6.Text = "" & RS!OrT
Text7.Text = "" & RS!tel

RS.Close
End Function


/MVH
Abbe

Hej.
Så här kan du göra...


Function SokPerson(Namn As String)

Set RS = DB.OpenRecordset("SELECT * FROM Customer1 WHERE Personnr = '" & Namn & "'", dbOpenDynaset)

If not RS.EOF Then ' finns poster i recordsetet
Text1.Text = "" & RS!ID
Text2.Text = "" & RS!Personrnr
Text3.Text = "" & RS!namn
Text4.Text = "" & RS!Adress
Text5.Text = "" & RS!PostAdress
Text6.Text = "" & RS!OrT
Text7.Text = "" & RS!tel
End if

RS.Close
End Function

Testa:
<code>
Function SokPerson(Namn As String)

Set RS = DB.OpenRecordset("SELECT * FROM Customer1 WHERE Personnr = '" & Namn & "'", dbOpenDynaset)

If RS.Eof Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Else
Text1.Text = "" & RS!ID
Text2.Text = "" & RS!Personrnr
Text3.Text = "" & RS!namn
Text4.Text = "" & RS!Adress
Text5.Text = "" & RS!PostAdress
Text6.Text = "" & RS!OrT
Text7.Text = "" & RS!tel
End If

RS.Close
End Function
</code>

Hej!!

Tack för hjälpen..det funkar bra

MVH
/Abbe