Problem with Combo Box after SP3

  • Thread starter Thread starter Allen Browne
  • Start date Start date
A

Allen Browne

Dale, tell us more about this combo.

Do you have anything in the Format property of the Field in table design? If
so, remove it.

How many columns in the combo's RowSource?
 
After my I loaded SP3, some of my Combo Box do not display data. It appears
to be tied to the Select Distinct statement. I tried using the combox
wizard and I got the same result. I even tried using a query and it does
not work, however when I run the query by itself, I get the expected
results. Has anyone else experienced this and is their a solution? Any help
would be greatly appreciated.
 
Allen,
Thank you for your quick response. I removed everything that was in the
Format property of the underlying tables. As soon as I did that, the combo
box populated. I would like to now what is the best way to replace the
formating I had on the underlying tables. The combo box had one column.
Every combo that had Select Distinct in the data source was affected.
Thanks again for the help.
 
This will help you identify the fields that have some Format set in their
table:

Function FindEm()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Const strcProp = "Format"

Set db = CurrentDb
For Each tdf In db.TableDefs
For Each fld In tdf.Fields
If HasProperty(fld, strcProp) Then
If fld.Properties(strcProp) <> vbNullString Then
Debug.Print tdf.Name & "." & fld.Name
End If
End If
Next
Next
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing
End Function

Function HasProperty(obj As Object, strPropName As String) As Boolean
'Purpose: Return true if the object has the property.
Dim varDummy As Variant

On Error Resume Next
varDummy = obj.Properties(strPropName)
HasProperty = (Err.Number = 0)
End Function
 
Back
Top