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.
Het was ook maar een ideetje; ik zou je db moeten zien om te beoordelen wat er fout gaat; we hebben het hier over standaardfunctionalteit die ik al honderden keren zonder problemen gebouwd heb. Ik zou er mijn project in ieder geval niet op stopzetten .Ik ga vrezen dat ik er niet uitkom en mijn project moet stoppen.
Private Sub Knop13_Click()
If Nz(DLookup("Pand_ID", "Meterkast", "Pand_ID = " & Me.PandID), 0) = 0 Then
DoCmd.OpenForm "Meterkast", , , , acFormAdd, acDialog, Me.PandID
Else
DoCmd.OpenForm "Meterkast", , , "Pand_ID = " & Me.PandID, , acDialog
End If
End Sub
Private Sub Form_Load()
If Not Me.OpenArgs = vbNullString Then Me.Pand_ID = Me.OpenArgs
End Sub
Is dat namelijk niet! Ik schreef dat je de tweede code moest plaatsen in het formulier Meterkast. Dat heb je dus niet gedaan. Uiteraard werkt de code niet op het formulier Panden, want daar is hij niet voor bedoeld . Lees dus mijn bericht nog eens door, zou ik zeggen.Ik heb je twee VBA subs na elkaar onder de knop 13 geplaatst.
Is dat namelijk niet! Ik schreef dat je de tweede code moest plaatsen in het formulier Meterkast. Dat heb je dus niet gedaan. Uiteraard werkt de code niet op het formulier Panden, want daar is hij niet voor bedoeld . Lees dus mijn bericht nog eens door, zou ik zeggen.Ik heb je twee VBA subs na elkaar onder de knop 13 geplaatst.
Private Sub Form_Load()
If Not Me.OpenArgs = vbNullString Then Me.Pand_ID = Me.OpenArgs
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.