Hallo,
ik ben pas gestart met vb en probeer een adressen bestand te maken. Ik ben al aardig op
weg, maar de zoekfunctie speelt mij parten. Ik hoop dat jullie mij verder op weg kunnen helpen.
De functie:
Function Zoeken(Adresboek As TAdresboek) As Integer
Dim i As Integer
For i = 0 To 9
'For i = LBound(ArrayAdresboek) To UBound(ArrayAdresboek)
With Adresboek
If ((.Geboortedatum = ArrayAdresboek(i).Geboortedatum) Or _
(.Lengte = ArrayAdresboek(i).Lengte) Or _
(.MaandSalaris = ArrayAdresboek(i).MaandSalaris) Or _
(.Naam = ArrayAdresboek(i).Naam) Or _
(.Postcode = ArrayAdresboek(i).Postcode) Or _
(.Stad = ArrayAdresboek(i).Stad) Or _
(.Straat = ArrayAdresboek(i).Straat) Or _
(.Voornaam = ArrayAdresboek(i).Voornaam)) Then
Exit For
End If
End With
i = i + 1
Next
Zoeken = i
End Function
Vanuit mijn form vul ik de voornaam in en druk dan op de knop zoeken die dan
onderstaande code uitvoert, ik laat nu eerst een msgbox poppen zodat ik de arrayIndex
kan bekijken of het de juiste waarde is.
Private Sub cmdSearch_Click()
Dim t As Adresboek.TAdresboek
Dim ret As Integer
ret = Adresboek.Zoeken(t)
MsgBox (ret)
End Sub
Als ik dit Debug kom ik tot de conclusie dat de voornaam die ik invul niet in de functie terecht komt.
De waarde van Adresboek in de functie blijft leeg. Heeft iemand hier een oplossing voor.
Reeds bedankt Wim
ik ben pas gestart met vb en probeer een adressen bestand te maken. Ik ben al aardig op
weg, maar de zoekfunctie speelt mij parten. Ik hoop dat jullie mij verder op weg kunnen helpen.
De functie:
Function Zoeken(Adresboek As TAdresboek) As Integer
Dim i As Integer
For i = 0 To 9
'For i = LBound(ArrayAdresboek) To UBound(ArrayAdresboek)
With Adresboek
If ((.Geboortedatum = ArrayAdresboek(i).Geboortedatum) Or _
(.Lengte = ArrayAdresboek(i).Lengte) Or _
(.MaandSalaris = ArrayAdresboek(i).MaandSalaris) Or _
(.Naam = ArrayAdresboek(i).Naam) Or _
(.Postcode = ArrayAdresboek(i).Postcode) Or _
(.Stad = ArrayAdresboek(i).Stad) Or _
(.Straat = ArrayAdresboek(i).Straat) Or _
(.Voornaam = ArrayAdresboek(i).Voornaam)) Then
Exit For
End If
End With
i = i + 1
Next
Zoeken = i
End Function
Vanuit mijn form vul ik de voornaam in en druk dan op de knop zoeken die dan
onderstaande code uitvoert, ik laat nu eerst een msgbox poppen zodat ik de arrayIndex
kan bekijken of het de juiste waarde is.
Private Sub cmdSearch_Click()
Dim t As Adresboek.TAdresboek
Dim ret As Integer
ret = Adresboek.Zoeken(t)
MsgBox (ret)
End Sub
Als ik dit Debug kom ik tot de conclusie dat de voornaam die ik invul niet in de functie terecht komt.
De waarde van Adresboek in de functie blijft leeg. Heeft iemand hier een oplossing voor.
Reeds bedankt Wim
Laatst bewerkt:
