cannot show combobox column value

[uoghk]

In a form, it has a combobox SelectCustomer and a button btnPrint.


After selecting a customer from the combobox, the SelectCustomer_AfterUpdate sub can display Me.SelectCustomer.Column(1) correctly.
But then I click the Print button, it shows the Me.SelectCustomer.Column(1) as null value.

Private Sub Form_Open()
	With Me.SelectCustomer
		.ColumnCount = 2
		.RowSource = "SELECT CustNo,CustId FROM Customer ORDER BY CustNo"
		.Value = ""
	End With
End Sub


Private Sub SelectCustomer_AfterUpdate()
    MsgBox(Me.SelectCustomer.Column(1), vbOKOnly)
End Sub


Private Sub btnPrint_Click()
    MsgBox(Me.SelectCustomer.Column(1), vbOKOnly)
    ProcessReport "Printer"
End Sub

[June7]

Are you printing the form? What is code in ProcessReport?

Is this combobox UNBOUND? Why code in Open event to set combobox properties?

[uoghk]

not printing the form.
ProcessReport retrieves data and print to printer.
combobox is unbound.
Code in Form_Open is setup the combobox for user to select customer.

[Minty]

Why though, that makes no sense. Just permanently set the rowsource and column numbers in the design view of the form?
It doesn't matter that it's unbound.

[June7]

Understood ProcessReport sends something to printer but what and how? What is the code?

Why annoy user with two popup messages that just tell them what they can see in combobox?

[uoghk]

The 2 popup messages are for debug purpose to see what value of Me.SelectCustomer.Column(1).
The problem is after selecting a CustNo from the combobox, the Me.SelectCustomer.Column(1) has correct CustId value.
Then click the Preview button, the Me.SelectCustomer.Column(1) becomes NULL value.
The ProcessReport will use Me.SelectCustomer.Column(1) to retrieve data for printing.

[davegri]

Try adding the red line to see if the rowsource has been changed. If so, scan you code to see why.
Also, remove the first and last parens around the original messagebox line. The parens make it a function that wants to return a value, not to just display the message. I don't understand why you don't get a syntax error with that format!


Private Sub btnPrint_Click()
MsgBox Me.SelectCustomer.rowsource
MsgBox(Me.SelectCustomer.Column(1), vbOKOnly)
ProcessReport "Printer"
End Sub

[June7]

I certainly get error with the parens.

I don't see anything that would cause combobox to lose value.

Is Preview button the btnPrint?

Could provide db for analysis.

[davegri]

I don't see anything that would cause combobox to lose value.

I agree. But I think we are not being given the whole picture, like the code shown is taken out of context.
Need more from OP to provide meaningful help.

[uoghk]

I add msgbox to see the rowsource (the red line) as suggested.

Private Sub btnPrint_Click()
MsgBox Me.SelectCustomer.rowsource
MsgBox(Me.SelectCustomer.Column(1), vbOKOnly)
ProcessReport "Printer"
End Sub

The msgbox shows correct rowsource.
The second msgbox shows the Column(1) as null.

It is so strange!
After select a value from the combobox, then click the Print button, no other coding is executed.
The combobox's AfterUpdate can show correct value of Column(1).
But the button's Click cannot show it, even the rowsource still the same.

[davegri]

I add msgbox to see the rowsource (the red line) as suggested.

Private Sub btnPrint_Click()
MsgBox Me.SelectCustomer.rowsource
MsgBox(Me.SelectCustomer.Column(1), vbOKOnly)
ProcessReport "Printer"
End Sub

The msgbox shows correct rowsource.
The second msgbox shows the Column(1) as null.

It is so strange!
After select a value from the combobox, then click the Print button, no other coding is executed.
The combobox's AfterUpdate can show correct value of Column(1).
But the button's Click cannot show it, even the rowsource still the same.

Did you remove the extra parentheses from the MsgBox? (both of them)

Msgbox Me.SelectCustomer.Column(1), vbokonly

[uoghk]

I have not remove the parentheses from the MsgBox.
But I run the code in debug mode and use the Watch window to see the value of Me.SelectCustomer.Column(1) and it is NULL.
The problem is why the Column(1) becomes NULL value.

[June7]

Again, suggest you provide db for analysis.

[Welshgasman]

Here is the result of a setup the same as yours.

Private Sub cmdCheck_Click()
Debug.Print Me.Combo3.RowSource
Debug.Print Me.Combo3.Column(1)


End Sub

The first output is with nothing selected in the combo.
The second with something selected in the combo. ?


SELECT [Transactions].[ID], [Transactions].[Description] FROM Transactions ORDER BY [Description];
Null


SELECT [Transactions].[ID], [Transactions].[Description] FROM Transactions ORDER BY [Description];
Miss B.Allen:157856