zoeken naar record

[jvsoest]

Hallo,

Volgende situatie:

formulier met recordset erachter. In veld regnr. type ik een regnr. als deze al bestaat wil ik graag alle velden gevuld hebben behorende bij dat regnr.. Als het regnr. niet voorkomt wordt er nieuw record aangemaakt.

Wat is nu de mooiste oplossing hiervoor. Extra zoekknop of een gebeurtenis en welke vba-code is hier het meest geschitk voor?


Bedankt vast voor tips e.d. en alvast een goede jaarwisseling!!!!

 

[beheer25]

Je zou met het AfterUpdate event van het veld regnum het formulier kunnen requery-en. Als regnum ook het id-veld is moet dat al voldoende zijn.


Grtz,

 

[jvsoest]

Hallo,

Ik heb de(een) oplossing al:

Private Sub txtzoekregnr_Exit(Cancel As Integer)
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * FROM VergetenMFSCKaart")
If Not IsNull(Me.txtzoekregnr) Then
rst.MoveFirst
rst.FindFirst "[Registratie nummer] = " & Me.txtzoekregnr
If rst.NoMatch Then
MsgBox "Registratienummer niet gevonden.", vbCritical + vbOKCancel, "APJ"
Me.Registratie_nummer = Me.txtzoekregnr
Me.Datum.SetFocus
Else
Me.Bookmark = rst.Bookmark
End If
End If
End Sub