Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub Wisselknop332_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.TabbestEl66 = 1
End Sub
Private Sub fraTaalkeuze_Click()
Me.tabBestelling.Pages(Me.fraTaalkeuze.Value - 1).SetFocus
End Sub
Private Sub fraTaalkeuze_Click()
DoCmd.OpenForm "Invoer Gasten", OpenArgs:=Me.fraTaalkeuze.Value - 1
End Sub
Private Sub Form_Load()
If Not Me.OpenArgs = "" Then
Me.tabBestelling = Me.OpenArgs
End If
End Sub
Private Sub Form_Load()
If Not Me.OpenArgs = "" Then
Me.TabbestE129 = Me.OpenArgs
End If
End Sub
Als je gelijk een voorbeeld had meegepost, had je waarschijnlijk vorige week al een werkende oplossing gehad . Het is namelijk helemaal geen moeilijke vraag.
Private Sub Tekst6_Click()
Me.Visible = False
DoCmd.OpenForm "Brood Bestelling gast", OpenArgs:=0
End Sub
Private Sub Tekst9_Click()
Me.Visible = False
DoCmd.OpenForm "Brood Bestelling gast", OpenArgs:=1
End Sub
Private Sub Tekst10_Click()
Me.Visible = False
DoCmd.OpenForm "Brood Bestelling gast", OpenArgs:=2
End Sub
Private Sub Form_Load()
If Not Me.OpenArgs = "" Then Me.TabbestE129 = Me.OpenArgs
End Sub
Private Sub Form_Close()
DoCmd.OpenForm "Gasten navigatie"
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.