Ik heb een form gemaakt waarmee men, na selectie van een waarde uit een listbox "cmbKruiden", een suform "DatasheetKruiden" oproept. De lijst cmbKruiden worden gevuld door een std query KruidenList & deze KruidenList is tevens source voor het hoofdform.
Hieronder de voorlopige VBA die dit mogelijk zou moeten maken.
Wat ik echter niet goed krijg : eenmaal er een waarde is aangeklikt in de listbox, kan ik geen andere waarde meer selecteren/aanklikken in de listbox. Bedoeling is uiteraard dat er meerdere keren na elkaar een entry kan worden geselecteerd. Kan er mij iemand zeggen wat ik hier over het hoofd zie ?
Option Compare Database
Option Explicit
-----
Private Sub cmbKruiden_AfterUpdate()
Debug.Print cmbKruiden
DoCmd.ApplyFilter , "KruidID = Forms!Kruidenrepertorium!cmbKruiden"
'Me.KruidID.Requery
Me.Refresh
End Sub
-----
Private Sub cmbKruiden_BeforeUpdate(Cancel As Integer)
If IsNull([cmbKruiden]) Then
MsgBox "Gelieve een kruid te selecteren."
Cancel = True
End If
End Sub
-----
Private Sub KruidenList_Enter()
Debug.Print Me.KruidenList.Name
End Sub
-----
Hieronder de voorlopige VBA die dit mogelijk zou moeten maken.
Wat ik echter niet goed krijg : eenmaal er een waarde is aangeklikt in de listbox, kan ik geen andere waarde meer selecteren/aanklikken in de listbox. Bedoeling is uiteraard dat er meerdere keren na elkaar een entry kan worden geselecteerd. Kan er mij iemand zeggen wat ik hier over het hoofd zie ?
Option Compare Database
Option Explicit
-----
Private Sub cmbKruiden_AfterUpdate()
Debug.Print cmbKruiden
DoCmd.ApplyFilter , "KruidID = Forms!Kruidenrepertorium!cmbKruiden"
'Me.KruidID.Requery
Me.Refresh
End Sub
-----
Private Sub cmbKruiden_BeforeUpdate(Cancel As Integer)
If IsNull([cmbKruiden]) Then
MsgBox "Gelieve een kruid te selecteren."
Cancel = True
End If
End Sub
-----
Private Sub KruidenList_Enter()
Debug.Print Me.KruidenList.Name
End Sub
-----
geeforce design:: -- Desktop : C2D E6600 / ASUS P5B dlx Wifi / 4GB PC6400 / Dell 2407 - Laptop: Sony Vaio FE11 -- MacBook 2,4 GHz