VBA Function/Aub Issues 1

[kermitforney]

Having some issues with the code below"

Public Function fncInt2Bin(n As Long, Optional bReverse = False) As String
    Dim m
    m = n
    Do
        If bReverse Then
            Dec2Bin = Dec2Bin & m Mod 2
        Else
            Dec2Bin = m Mod 2 & Dec2Bin
        End If
        m = Int(m / 2)
    Loop Until m <= 0
End Function

End Function

Public Sub ControlNumber()
Dim InvoiceID As int32
Dim ControlNumber As Long

InvoiceID = Me.txtInvoiceID.Text
ControlNumber = InvoiceID(fcnInt2Bin)

Me.txtControlNumber = ControlNumber

End Sub

I am trying to assign the text box (txtControlNumber) to the variable (ControlNumber), but it is not working for some reason. Do I have to input information into the Control Source of the text box?? Help!!!

Thanks in advance!! )

 

[Remou]

Is it in the module that belongs to the report or in a standard module? Does your code compile? Can you run fncInt2Bin from the immediate window:

?fncInt2Bin(150)

for example.

 

[kermitforney]

It is in the module that belongs to the report. Checking others . . .

 

[kermitforney]

Have it working Rem, but I have some adverse affects that I have posted in a previous post. Thanks for all of your help!!

 

[kermitforney]

Never mind guys, fixed it myself. D