Dropdown combobox if is not empty (1 Viewer)

[Manos39]

Hello,
i was wondering if it is possible for
a combobox which is coded to dropdown with an afterupdate event of a previous previous combobox,
to not dropdown if it is empty..?
That s what i need

Thank you

my code is

Private Sub cboEidosypiresias_AfterUpdate()


Me.cboOrario.Requery
Me.cboOrario.SetFocus
Me.cboOrario.Dropdown


' show Hreosi when eidos ypiresias selected
'Me.lblEidikihreosi.Visible = Not IsNull(Me.cboEidosypiresias)
'Me.cboEidikihreosi.Visible = Not IsNull(Me.cboEidosypiresias)


End Sub

 

[theDBguy]

One way is to use DCount() or perhaps you could also try ListCount.

ComboBox.ListCount property (Access)

Office VBA reference topic

learn.microsoft.com

 

[Manos39]

I am trying to achieve that no luck with my coding

 

[theDBguy]

I am trying to achieve that no luck with my coding

Can you post your code?

 

[Manos39]

Can you post your code?

Yes, combobox cboOrario rowsource is

SELECT DISTINCT orariatbl.orarioID, orariatbl.Orario
FROM orariatbl, eidiyphresiontbl
GROUP BY orariatbl.orarioID, orariatbl.Orario, eidiyphresiontbl.haraktirismosypiresiasID, eidiyphresiontbl.eidosypiresiasID
HAVING (((orariatbl.orarioID) In (1,2,3,6,8)) AND ((eidiyphresiontbl.haraktirismosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboHaraktirismosypiresias] And (eidiyphresiontbl.haraktirismosypiresiasID)=1) AND ((eidiyphresiontbl.eidosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboEidosypiresias] And (eidiyphresiontbl.eidosypiresiasID) Not In (58,59,60,19))) OR (((orariatbl.orarioID) Not In (5,9,10,11,12,13,14,15,16,17,18,21,22)) AND ((eidiyphresiontbl.haraktirismosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboHaraktirismosypiresias] And (eidiyphresiontbl.haraktirismosypiresiasID)=2) AND ((eidiyphresiontbl.eidosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboEidosypiresias] And (eidiyphresiontbl.eidosypiresiasID)=18)) OR (((orariatbl.orarioID) Not In (1,2,3,5,6,8,19,20)) AND ((eidiyphresiontbl.haraktirismosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboHaraktirismosypiresias] And (eidiyphresiontbl.haraktirismosypiresiasID)=2) AND ((eidiyphresiontbl.eidosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboEidosypiresias] And (eidiyphresiontbl.eidosypiresiasID)=17)) OR (((orariatbl.orarioID) Not In (1,2,3,5,20)) AND ((eidiyphresiontbl.haraktirismosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboHaraktirismosypiresias] And (eidiyphresiontbl.haraktirismosypiresiasID)=2) AND ((eidiyphresiontbl.eidosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboEidosypiresias] And (eidiyphresiontbl.eidosypiresiasID)=50)) OR (((orariatbl.orarioID)=False) AND ((eidiyphresiontbl.haraktirismosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboHaraktirismosypiresias] And (eidiyphresiontbl.haraktirismosypiresiasID) In (3,4,5)) AND ((eidiyphresiontbl.eidosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboEidosypiresias])) OR (((orariatbl.orarioID)=5) AND ((eidiyphresiontbl.haraktirismosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboHaraktirismosypiresias] And (eidiyphresiontbl.haraktirismosypiresiasID)=6) AND ((eidiyphresiontbl.eidosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboEidosypiresias])) OR (((orariatbl.orarioID)=False) AND ((eidiyphresiontbl.haraktirismosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboHaraktirismosypiresias] And (eidiyphresiontbl.haraktirismosypiresiasID)=1) AND ((eidiyphresiontbl.eidosypiresiasID)=[Forms]![ypiresiesekdfrm]![cboEidosypiresias] And (eidiyphresiontbl.eidosypiresiasID) In (58,59,60,19)))
ORDER BY orariatbl.Orario;

and the combobox name which is prior to that with the afterupdate event is cboHaraktirismosypiresias

it already has

Private Sub cboEidosypiresias_AfterUpdate()


Me.cboOrario.Requery
Me.cboOrario.SetFocus
Me.cboOrario.Dropdown


' show Hreosi when eidos ypiresias selected
Me.lblEidikihreosi.Visible = Not IsNull(Me.cboEidosypiresias)
Me.cboEidikihreosi.Visible = Not IsNull(Me.cboEidosypiresias)


End Sub

 

[arnelgp]

you can try:

Me.cboOrario.Requery
If Me.cboOrario.ListCount > 0 Then
Me.cboOrario.SetFocus
Me.cboOrario.Dropdown
End If

 

[Manos39]

you can try:

Me.cboOrario.Requery
If Me.cboOrario.ListCount > 0 Then
Me.cboOrario.SetFocus
Me.cboOrario.Dropdown
End If

Thanks i shall do that. I was good in basic Arnel. Back in school. Nowadays i would go back there if i could.. Had a commodore 64

 

[Manos39]

No Arnel it dropsdown anyway (even with no values)

 

[Manos39]

Wrong i had same code on change Event, changed that too, now works as should with your advices!!