henkypenky
Gebruiker
- Lid geworden
- 13 jul 2012
- Berichten
- 110
Onderstaande code werkt voor mij:thumb:. Hoe zit ik hiermee dan de autonummering om zeep te helpen?
Code:
Private Sub Form_Load()
Dim arr As Variant
With Me
If Not .OpenArgs = "" Then
arr = Split(.OpenArgs, "|")
.txtInlognaam.Value = arr(0)
.txtLeverancier.Value = arr(1)
.TxtProjectnummer.Value = arr(2)
.Filter = "[Id_Personeel] = " & Me.txtInlognaam.Value _
& " AND [Id_Leverancier] = " & Me.txtLeverancier.Value _
& " AND [Id_Projectnummer] = " & Me.TxtProjectnummer.Value
.FilterOn = True
End If
DoCmd.GoToRecord , , acNewRec
End With
End Sub