henkypenky
Gebruiker
- Lid geworden
- 13 jul 2012
- Berichten
- 110
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.
SELECT [GTIN product], Productomschrijving, [Productcode fabrikant], Fabrikaat, [GLN fabrikant] FROM Tab_Product;
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
End With
End Sub
Private Sub CboPersoneel_Click()
Me.CboPersoneel.DefaultValue = Me.CboPersoneel.Value
End Sub
Private Sub CboLeverancier_Click()
Me.CboLeverancier.DefaultValue = Me.CboLeverancier.Value
End Sub
Private Sub CboProjectnummer_Click()
Me.cboProjectnummer.DefaultValue = Me.cboProjectnummer.Value
End Sub
Private Sub Knop_Boeken_Click()
If Me.CboLeverancier & "" = "" Or Me.CboPersoneel & "" = "" Or Me.cboProjectnummer & "" = "" Then
Exit Sub
Else
DoCmd.OpenForm "Frm_GeboekteMaterialen", DataMode:=acFormAdd, WindowMode:=acDialog, OpenArgs:=Me.CboPersoneel & "|" & Me.CboLeverancier & "|" & Me.cboProjectnummer
End If
End Sub
Option Compare Database
Private Sub Cbo_GTIN_Change()
DoCmd.GoToRecord , , acNext
End Sub
Private Sub Form_Load()
Dim arr As Variant
If Not Me.OpenArgs = "" Then
arr = Split(Me.OpenArgs, "|")
Me.txtInlognaam.Value = arr(0)
Me.txtLeverancier.Value = arr(1)
Me.TxtProjectnummer.Value = arr(2)
Me.Filter = "[Id_Personeel] = " & Me.txtInlognaam.Value _
& " AND [Id_Leverancier] = " & Me.txtLeverancier.Value _
& " AND [Id_Projectnummer] = " & Me.TxtProjectnummer.Value _
End If
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub Form_Load()
Dim arr As Variant
If Not Me.OpenArgs = "" Then
arr = Split(Me.OpenArgs, "|")
With Me.txtInlognaam
.Value = arr(0)
.DefaultValue = .Value
End With
With Me.txtLeverancier
.Value = arr(1)
.DefaultValue = .Value
End With
With Me.TxtProjectnummer
.Value = arr(2)
.DefaultValue = .Value
End With
End If
End Sub
Private Sub Form_Current()
Dim arr As Variant
If Me.NewRecord Then
If Not Me.OpenArgs = "" Then
arr = Split(Me.OpenArgs, "|")
Me.txtInlognaam.Value = arr(0)
Me.txtLeverancier.Value = arr(1)
Me.TxtProjectnummer.Value = arr(2)
End If
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.