Hello, I get the error (when i get to the line which includes "Me.txtStreet.Value") in the title when i try to run the below code (which is in an excel 97 document)... and I can't see anything wrong with it... the "Me.txtStreet.Value" is equal to "Street A" any help is appreciated.
'// Add item to listbox
With Me.lstClientInformation
.AddItem strClientName '// Client Name
.List(.ListCount - 1, 1) = Me.txtFarmBusinessStableName.Value '// Farm/Business/Stable Name
.List(.ListCount - 1, 2) = strMailingAddress '// Mailing Address
.List(.ListCount - 1, 3) = Me.txtSalutation.Value '// Salutation
.List(.ListCount - 1, 4) = Me.txtFirstName.Value '// First Name
.List(.ListCount - 1, 5) = Me.txtMiddleInitials.Value '// Middle Initial(s)
.List(.ListCount - 1, 6) = Me.txtLastName.Value '// Last Name
.List(.ListCount - 1, 7) = Me.txtFarmBusinessStableName.Value '// FSB Name
.List(.ListCount - 1, 8) = Me.txtStreetNumber.Value '// Street Number
.List(.ListCount - 1, 9) = Me.txtUnitNumber.Value '// Unit Number
.List(.ListCount - 1, 10) = Me.txtStreet.Value '// Street
.List(.ListCount - 1, 11) = Me.txtAddress2.Value '// Address 2
.List(.ListCount - 1, 12) = Me.txtCity.Value '// City
Me.cboProvince.BoundColumn = 1
.List(.ListCount - 1, 13) = Me.cboProvince.Value '// Province ID
Me.cboProvince.BoundColumn = 2
.List(.ListCount - 1, 14) = Me.cboProvince.Value '// Province Name
.List(.ListCount - 1, 15) = Me.txtPostalCode.Value '// Postal Code
.List(.ListCount - 1, 16) = Me.txtPhone.Value '// Phone Number
.List(.ListCount - 1, 17) = Me.txtExtension.Value '// Phone Extension
.List(.ListCount - 1, 18) = Me.txtCell.Value '// Cell Number
.List(.ListCount - 1, 19) = Me.txtPager.Value '// Pager Number
.List(.ListCount - 1, 20) = Me.txtFax.Value '// Fax Number
.List(.ListCount - 1, 21) = Me.txtEmailAddress.Value '// Email Address
End With
Thanks,
Jason Grandmaison
'// Add item to listbox
With Me.lstClientInformation
.AddItem strClientName '// Client Name
.List(.ListCount - 1, 1) = Me.txtFarmBusinessStableName.Value '// Farm/Business/Stable Name
.List(.ListCount - 1, 2) = strMailingAddress '// Mailing Address
.List(.ListCount - 1, 3) = Me.txtSalutation.Value '// Salutation
.List(.ListCount - 1, 4) = Me.txtFirstName.Value '// First Name
.List(.ListCount - 1, 5) = Me.txtMiddleInitials.Value '// Middle Initial(s)
.List(.ListCount - 1, 6) = Me.txtLastName.Value '// Last Name
.List(.ListCount - 1, 7) = Me.txtFarmBusinessStableName.Value '// FSB Name
.List(.ListCount - 1, 8) = Me.txtStreetNumber.Value '// Street Number
.List(.ListCount - 1, 9) = Me.txtUnitNumber.Value '// Unit Number
.List(.ListCount - 1, 10) = Me.txtStreet.Value '// Street
.List(.ListCount - 1, 11) = Me.txtAddress2.Value '// Address 2
.List(.ListCount - 1, 12) = Me.txtCity.Value '// City
Me.cboProvince.BoundColumn = 1
.List(.ListCount - 1, 13) = Me.cboProvince.Value '// Province ID
Me.cboProvince.BoundColumn = 2
.List(.ListCount - 1, 14) = Me.cboProvince.Value '// Province Name
.List(.ListCount - 1, 15) = Me.txtPostalCode.Value '// Postal Code
.List(.ListCount - 1, 16) = Me.txtPhone.Value '// Phone Number
.List(.ListCount - 1, 17) = Me.txtExtension.Value '// Phone Extension
.List(.ListCount - 1, 18) = Me.txtCell.Value '// Cell Number
.List(.ListCount - 1, 19) = Me.txtPager.Value '// Pager Number
.List(.ListCount - 1, 20) = Me.txtFax.Value '// Fax Number
.List(.ListCount - 1, 21) = Me.txtEmailAddress.Value '// Email Address
End With
Thanks,
Jason Grandmaison