Dag iedereen,
Ik heb een database met verschillende analoge formulieren die een uitgevulde lay-out hebben.
In ieder formulier staat een keuzelijst om de records te filteren.
Ieder keer heb ik deze via de wizard gemaakt. Hierbij sleeeceteerde ik de 3de optie iets in de aard van "waarden opzoeken in bestaande tabel of query"
Nu heb ik een nieuw formulier in tabelvorm en hierin op dezelfde manier een keuzelijst gemaakt maar deze doet niet wat het moet.
De beperkte VBA heb ik uit de ander formulieren gekopieerd en aangepast wat altijd werkte voor de andere formulieren.
Nu werkt de set.focus niet en de waarden zijn ook niet gelinkt?
De SELECT query werkt wel wanneer ik de rijbron opzoek.
Dit is de beperkte VBA
Private Sub Form_AfterUpdate()
Me.AllowEdits = False
End Sub
Private Sub Form_Current()
Me.AllowEdits = False
Keuzelijst_met_invoervak51 = Id
Keuzelijst_met_invoervak51.SetFocus
End Sub
Private Sub Keuzelijst_met_invoervak51_Enter()
Me.AllowEdits = True
End Sub
Private Sub Keuzelijst_met_invoervak51_Exit(Cancel As Integer)
Me.AllowEdits = False
End Sub
Private Sub Knopgegevensvernieuwen_Click()
Me.AllowEdits = True
End Sub
Enig idee iemand?
Groeten,
Pieter
Ik heb een database met verschillende analoge formulieren die een uitgevulde lay-out hebben.
In ieder formulier staat een keuzelijst om de records te filteren.
Ieder keer heb ik deze via de wizard gemaakt. Hierbij sleeeceteerde ik de 3de optie iets in de aard van "waarden opzoeken in bestaande tabel of query"
Nu heb ik een nieuw formulier in tabelvorm en hierin op dezelfde manier een keuzelijst gemaakt maar deze doet niet wat het moet.
De beperkte VBA heb ik uit de ander formulieren gekopieerd en aangepast wat altijd werkte voor de andere formulieren.
Nu werkt de set.focus niet en de waarden zijn ook niet gelinkt?
De SELECT query werkt wel wanneer ik de rijbron opzoek.
Dit is de beperkte VBA
Private Sub Form_AfterUpdate()
Me.AllowEdits = False
End Sub
Private Sub Form_Current()
Me.AllowEdits = False
Keuzelijst_met_invoervak51 = Id
Keuzelijst_met_invoervak51.SetFocus
End Sub
Private Sub Keuzelijst_met_invoervak51_Enter()
Me.AllowEdits = True
End Sub
Private Sub Keuzelijst_met_invoervak51_Exit(Cancel As Integer)
Me.AllowEdits = False
End Sub
Private Sub Knopgegevensvernieuwen_Click()
Me.AllowEdits = True
End Sub
Enig idee iemand?
Groeten,
Pieter