Solved Enabling a button, only if Comboboxes have values (1 Viewer)

[OnePoint Consulting]

Hi Guys,

i'm trying to get a command button to be disabled in it's default state and only to be enabled when the user enters values (text and Dates) into combo and text boxes.

i've tried following code in VBA but i haven't been successful yet… could someone help out?

Thanks in advance =)

private sub Command1_Click()
    if Me.ComboFirma.Value = Null Then
    Me.Command1.Enabled = False
    Else
    Me.Command1.Enabled = True
    End if
 
    'Run Query
    DoCmd.OpenQuery "Query1"
End Sub

The remaning Combo and text boxes are missing in the code, since i don't/wouldn't know how to "add" them…

 

[Minty]

You would need to add code to the after update event of the other controls, not the one you are trying to click, that would check their values.
So save the form with the cmd button disabled initially, then do something like

Private comboFirma_AfterUpdate()

Me.Command1.Enabled = False
If Not IsNull(Me.ComboFirma) and Not IsNull(Me.ComboOther) Then
Me.Command1.Enabled = True
End If

You'd need to do the same for your other combo assuming they both need a value.
This assumes your combos are text values and not storing numbers in which case check for 0 not null.

 

[OnePoint Consulting]

You would need to add code to the after update event of the other controls, not the one you are trying to click, that would check their values.
So save the form with the cmd button disabled initially, then do something like

Private comboFirma_AfterUpdate()

Me.Command1.Enabled = False
If Not IsNull(Me.ComboFirma) and Not IsNull(Me.ComboOther) Then
Me.Command1.Enabled = True
End If

You'd need to do the same for your other combo assuming they both need a value.
This assumes your combos are text values and not storing numbers in which case check for 0 not null.

Thank you Minty =)

i've tried it and it seems to work, but not perfectly yet… The textbox values are numbers and you said something about "Checking for 0" in this case... is this the error? and if yes, how do i implement this?

ohh, and do you know what i'd need to add, if i'd want the command box to give me a "Disabled" look, before being enabled?

 

[CJ_London]

suggest you also need the code in the form current event

 

[OnePoint Consulting]

okay, so i've also added the code to the "form current event" and the only box that isn't behaving like the rest is the second Textbox. It's the only one that'll enable the command button even if the other boxes have no values in them… all the other combo/text boxes work

This is the code is used on all the combo and text boxes and in "form current event"

    Me.Befehl53.Enabled = False
    If Not IsNull(Me.ComboFirmaSt) And Not IsNull(Me.ComboStatusSt) And Not IsNull(Me.TextZeitraumBis) And Not IsNull(Me.TextZeitraumVon) Then
    Me.Befehl53.Enabled = True
End If

 

[Minty]

As mentioned if your combo's bound value is a number then when it has nothing selected its value is 0 not null. So assuming it's ComboStatusSt then change the code to

   Me.Befehl53.Enabled = False

   If Not IsNull(Me.ComboFirmaSt) And Me.ComboStatusSt <> 0 And Not IsNull(Me.TextZeitraumBis) And Not IsNull(Me.TextZeitraumVon) Then

          Me.Befehl53.Enabled = True

   End If

 

[OnePoint Consulting]

Thanks again Minty =D

I understood the part with the "value is a number", i just didn't know how to type it in... I have no actualy knowledge of coding, it's been YouTube tutorials and online forums since i started working on this project.

But it all works perfectly now, soo thanks a lot and I hope you guys all have a great day!!

 

[Minty]

Glad you have it working, we pretty much all started that way or with books BI (Before Internet !)
Guten Tag!