Entering and Showing a web address

[DaKetch]

I have a form that uses a short text field to input a website address. I don't need it to be a hyperlink, just need to store the address if applicable. I then use a combo box combo107.column(8) that holds the address. I have 3 records in the table that combo107 pulls the data from. But for some reason column(8) always returns NULL, even if the field holds data in it. The fields are all marked as Short Text.



I have noticed that the data is stored in the stored as either http://www.facebook.com/dannyj and www.linkedin.com. Neither will display in my textbox.

Is there by chance a limit to the number of fields that can be selected in a combo box?

[pbaldy]

Possibly, but you're not there. The most common cause is the column count property of the combo not being correct (it would have to be 9 in your example).

[DaKetch]

I tried using column(9) and still nothing. Here is my select statement for my Row Source of my combobox. If the ID field starts with subscript 0 then my Agency_Website field would be subscript 8:

SELECT [tbl_AgencyInfo].[ID], [tbl_AgencyInfo].[Agency_Name], [tbl_AgencyInfo].[Agency_Address], [tbl_AgencyInfo].[Agency_City], [tbl_AgencyInfo].[Agency_State], [tbl_AgencyInfo].[Agency_Zip], [tbl_AgencyInfo].[Agency_Phone_1], [tbl_AgencyInfo].[Agency_Online],[tbl_AgencyInfo].[Agency_Website] FROM tbl_AgencyInfo ORDER BY [Agency_Name];

I can send a copy if you'd like to see what I have. I know it has to be something really simple.

I use an Input and an Update form to enter Agency/Employer information then I have data from that table bound to the combo box and then when Activity for the Agencies is input, I populate that bound data into the Activity forms. It should be pretty straight forward, but I am missing something somewhere.

My code is pretty simple so far:

Option Compare Database


Private Sub Combo107_Change()

If Combo107.Column(2) = "" Then Me.WSI_CAD_EmployerAddress = Combo107.Column(4)
If Combo107.Column(2) <> "" Then Me.WSI_CAD_EmployerAddress = Combo107.Column(2) & Chr(13) & Chr(10) & Combo107.Column(3) & ", " & Combo107.Column(4) & " " & Combo107.Column(5)
If Combo107.Column(7) = True Then Label55.Visible = True
If Combo107.Column(7) = False Then Label55.Visible = False

Me.WSI_CAD_EmployerPhone = Combo107.Column(6)
Me.WSI_CAD_EmployerWebsite = Combo107.Column(8)



End Sub


Private Sub Form_Load()


Me.WSI_CAD_EmployerName = ""
Me.WSI_CAD_EmployerAddress = ""
Me.Label55.Visible = False

End Sub

I know that I am going to feel really dumb once I can figure this piece out.

Any assistance would be GREATLY appreciated.

[pbaldy]

I meant the column count property of the combo, seen in design view. On the Format tab of the Properties window.

[pbaldy]

And you can certainly attach the db here if you'd like.

[DaKetch]

It was the Column Count property. It was set to 7 for each form instead of the 8 that it needed to be. I knew it was going to be a simple fix.

THANK YOU SOOOOOOOO MUCH!

[pbaldy]

Happy to help!