Do....loop error

[Nickdude]

Mensen,

Ik heb de onderstaande code gebruikt onder een knop om een waarde in een textbox te valideren. Echter loopt het programma hierop vast en ik snap niet waarom. Iets in de Do.. loop functie werkt niet.




Private Sub Command457_Click()
Dim rsPONo As DAO.Recordset

Set dbCW = CurrentDb()

Set rsPONo = dbCW.OpenRecordset("PurchaseOrder")
Do While Not rsPONo.EOF
If UCase(rsPONo!PONo) = UCase(Me.PONo) Then
MsgBox "PO nummer bestaat reeds", vbInformation
Me.PONo = Null
'DoCmd.GoToControl "PONo"
Me.PONo.SetFocus
GoTo Einde1
End If
Loop

rsPONo.Close
MsgBox "OK", vbInformation
Einde1:
End Sub

 

[Nickdude]

al opgelost:

Private Sub Command457_Click()
Dim rsPONo As DAO.Recordset

Set dbCW = CurrentDb()
Set rsPONo = dbCW.OpenRecordset("PurchaseOrder")
Do While Not rsPONo.EOF
If UCase(rsPONo!PONo) = UCase(Me.PONo) Then
MsgBox "PO nummer bestaat reeds", vbInformation
Me.PONo = Null
'DoCmd.GoToControl "PONo"
Me.PONo.SetFocus
Exit Sub
End If
rsPONo.MoveNext
Loop
rsPONo.Close

MsgBox "OK", vbInformation

End Sub

 

[thomrob]

wat je hier doet kan toch ook met een Dlookup? Dat is in ieder geval sneller programmeren dan deze manier.

Je zou in ieder geval niet een volledige tabel als recordset moeten openen, maar een filter leggen op de waarde die je zoekt.