Pass Combobox value to Function

[Timoo]

Hi,

This should be pretty straightforward, but I do not seem to succeed.
How do I pass the value of a combobox to a function?

This is my current code:

Function UpdateDealer(iDealer As Integer, oDealer As Integer)
'stuff
End Function

And this is the code behind the button:

Private Sub Transitions_Click()
    Me.Recalc
    UpdateDealer(Me.NewDlr.Value, Me.OldDlr.Value)
End Sub

And it gives me an error. What do I do wrong?

Thanks in advance,
Timo

 

[pr2-eugin]

Hello Timo,

Since UpdateDelaer is declared as a Function, it will expect a return Value..

I am not sure what goes into the 'stuff here, I am not sure if you are returning a value or not.. If you have nowhere in the function

UpdateDealer = something

then you can use..

Private Sub Transitions_Click()
    Me.Recalc
    [COLOR=Red][B]Call[/B][/COLOR] UpdateDealer(Me.NewDlr.Value, Me.OldDlr.Value)
End Sub

If you are returning a value, then you might as well assign that return value to a variable..

Private Sub Transitions_Click()
    Dim tmpVar As Variant
    Me.Recalc
    tmpVar = UpdateDealer(Me.NewDlr.Value, Me.OldDlr.Value)
End Sub

Or even change the Function to a Sub, that will avoid the whole confusion..

Sub UpdateDealer(iDealer As Integer, oDealer As Integer)
    'stuff
End Sub