Aktualisierung Datensatz über ein Textfeld?
milo
Gesendet: 11.04.12 19:52
Betreff: Aktualisierung Datensatz über ein Textfeld?


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
Top of the page Bottom of the page