Keskustelu: Ohjelmointikysymykset: FindFirst-ongelma (VB6)

Tarviisisin vähän apua. kyse on tietokanta (access2003) projektista...

tarkoituksena on koodata napin taakse koodin pätkä joka tarkastaa että tietokannassa ei ole jo yrityksen numeroa. tässä on koodi jolla yritän tarkastuksen tehdä:

Private Sub Command1_Click()

Dim tunnus1 As String
Dim haettava As String

tunnus1 = Text1.Text

If tunnus1 <> "" Then
    haettava = "YritysNumero='" + tunnus1 + "'"

    Data1.Recordset.FindFirst (haettava)
    If (Data1.Recordset.NoMatch = True) Then

        Call Lisaa
Else
MsgBox ("Numero on jo käytössä")

End If
End If

End Sub

tämä koodi kaatuu riville: Data1.Recordset.FindFirst (haettava) ja tästä tulee

virheilmoitus: runtime error '91' object variable or with block variable not set

ja tää on vb6:lla koodattu...

jos joku viittis vähän jeesata, oisin todella happy! :)

t:mmikko

Ota sulut pois haettavan ympäriltä FindFirst:ä käytettäessä.