Checking Empty comboboxes

[dylcon]

Hello, I am trying to see if a combobox is empty, disable that combobox and force user to enter information into an additional form. As of now, I have this:

Private Sub PartNumbercbo_AfterUpdate()    If Me.PONumbercbo = "" Then
        Me.WarningLabel.Visible = True
        'Me.PONumbercbo.Enabled = False
    Else
    Me.PONumbercbo.Enabled = True
    Me.PONumbercbo.Requery
    
    'Update PONumbercbo
    strSourceOne = "SELECT PP.PartPOID, PO.PONumber " & _
                    "FROM tblPartPO AS PP, tblPOInfo AS PO " & _
                    "WHERE PartID = " & Me.PartNumbercbo _
                    & " AND PP.POInfoID = PO.POInfoID " _
                    & " ORDER BY PO.PONumber"
    Debug.Print strSourceOne
 
    Me.PONumbercbo.RowSource = strSourceOne
    Me.PONumbercbo = vbNullString
    End If


                
End Sub

but it is not working. The PONumbercbo is staying disabled (which is the default setting for opening the form.

[pbaldy]

Try


If Len(Me.PONumbercbo & vbNullString) = 0 Then

[rzw0wr]

First guess that you are confusing Access by using PP and PO as these are table names.
Just a first glance guess.

Dale

[dylcon]

Dale, that has been working the whole time before so I don't think it is that.
PBaldy, I have tried that as well, and it still does not work...

[pbaldy]

Are you testing the right combo? What you have doesn't do this: "see if a combobox is empty, disable that combobox"

[Dal Jeanis]

That's a good question. This code will turn the PONumber combo box on or off depending on the updated value of the PartNumber combo box. Note that the requery statement belongs *after* you set the SQL.

Private Sub PartNumbercbo_AfterUpdate()    
Dim strSourceOne as String

If Len(Me.PartNumbercbo & vbNullString) = 0 Then
   Me.WarningLabel.Visible = True
   Me.PONumbercbo.Enabled = False
Else
   Me.WarningLabel.Visible = False
   Me.PONumbercbo.Enabled = True
    
   'Update PONumbercbo
   strSourceOne = "SELECT PP.PartPOID, PO.PONumber " & _
                   "FROM tblPartPO AS PP, tblPOInfo AS PO " & _
                   "WHERE PP.PartID = " & Me.PartNumbercbo _
                   & " AND PP.POInfoID = PO.POInfoID " _
                   & " ORDER BY PO.PONumber"
   'Debug.Print strSourceOne
 
   Me.PONumbercbo.RowSource = strSourceOne
  'Me.PONumbercbo = vbNullString
End If
                
End Sub

I specified PP.PartID just for practice's sake. Best to specify every field in a complex query, so you know what you'll get.

[pbaldy]

The Requery is not required after setting a row source.

[Dal Jeanis]

That makes sense. Moved the code when I should have deleted it. Fixed now.

dylcon - in English, what is supposed to happen after the user selects a part number?

[ssanfu]

In addition to what Paul said, you have not declared the variable "strSourceOne":

Dim strSourceOne as String


Also, you should have these two lines at the beginning of every code page (Module):

Option Compare Database
Option Explicit '<<- very important