| Hallo zusammen,
ich habe eine Frage zum FAQ-Beitrag http://www.donkarl.com?FAQ4.5.
Kann ich den Code auch auf ein Textfeld anwenden und wenn ja, was muss ich ändern?
Mein Problem ist, dass ich ein Formular habe, dass auf eine Abfrage beruht. Durch die Abfrage wird man aufgefordert, eine Projektnummer (pd_ProjectNumber) einzugeben, die sich alphanumerisch zusammensetzt.
Ich habe es mit Hochkommatar versucht, aber irgendwas scheint daran falsch zu sein:
Private Sub VrmPrio_Change()
'On Error GoTo myError
Dim lngStore As Long
lngStore = Me.pd_ProjectNumber
'Bildschirmflackern reduzieren
Me.Painting = False
Me.Requery
Me.RecordsetClone.FindFirst "pd_ProjectNumber = '" & lngStore & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
myExit:
Me.Painting = True
Exit Sub
myError:
Select Case Err.Number
Case 3159
'not a valid bookmark
Resume myExit
Case Else
MsgBox "Exception Nr. " & Err.Number & " " & Err.Description
Resume myExit
End Select
End Sub
Sorry für die wahrscheinlich blöde Frage, aber ich bin noch am Anfang mit VBA.
Vielen Dank schon mal für die Hilfe!
Viele Grüße
michael |
