Event Procedure Update txtbox

[Zanstemic]

The following is an event procedure that runs After Update of a pull down
menu. Everyone works fine except for number 7 which returns a null value. If
I switch the phone and fax, in the sql code or in the procedure, it works
fine.

Any suggestions?

Event Procudure
Private Sub cboAttorneyID_AfterUpdate()
attorneystreetaddress = cboAttorneyID.Column(2)
attorneycitystatezip = cboAttorneyID.Column(3) & ", " &
cboAttorneyID.Column(4) & " " & cboAttorneyID.Column(5)
attorneyphone = cboAttorneyID.Column(6)
attorneyfax = cboAttorneyID.Column(7)
End Sub

Query
SELECT Attorney.AttorneyID, [Attorney.LastName] & ", " & [Attorney.First
Name] AS Expr1, Attorney.Address, Attorney.City, Attorney.State,
Attorney.Zip, Attorney.Fax, Attorney.Phones
FROM Attorney
ORDER BY [Attorney.LastName] & ", " & [Attorney.First Name];

 

[John Spencer]

I assume you know that the columns are zero-based. So the seventh column is
referred to as Column(6)

Beyond that I can't see what would cause the error.

John Spencer
Access MVP 2002-2005, 2007-2008
The Hilltop Institute
University of Maryland Baltimore County

 

[Zanstemic]

Yes, I did find that it starts with Column(0) so the one not working is 8+

I'm wondering if a limit exists when using Column?

Any suggestions are appreciated

I assume you know that the columns are zero-based. So the seventh column is
referred to as Column(6)

Beyond that I can't see what would cause the error.

John Spencer
Access MVP 2002-2005, 2007-2008
The Hilltop Institute
University of Maryland Baltimore County

The following is an event procedure that runs After Update of a pull down
menu. Everyone works fine except for number 7 which returns a null value. If
I switch the phone and fax, in the sql code or in the procedure, it works
fine.

Any suggestions?

Event Procudure
Private Sub cboAttorneyID_AfterUpdate()
attorneystreetaddress = cboAttorneyID.Column(2)
attorneycitystatezip = cboAttorneyID.Column(3) & ", " &
cboAttorneyID.Column(4) & " " & cboAttorneyID.Column(5)
attorneyphone = cboAttorneyID.Column(6)
attorneyfax = cboAttorneyID.Column(7)
End Sub

Query
SELECT Attorney.AttorneyID, [Attorney.LastName] & ", " & [Attorney.First
Name] AS Expr1, Attorney.Address, Attorney.City, Attorney.State,
Attorney.Zip, Attorney.Fax, Attorney.Phones
FROM Attorney
ORDER BY [Attorney.LastName] & ", " & [Attorney.First Name];