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]

How about:

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
    
    fncInt2Bin = Dec2Bin
End Function



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

'.Text is only available if the control has focus
InvoiceID = Me.txtInvoiceID
ControlNumber = fncInt2Bin(InvoiceID)

Me.txtControlNumber = ControlNumber

End Sub

 

[kermitforney]

Still nothing ? ? ? Are you sure that the control source for the text box does not need to be set?

I am still getting a blank text box without any errors.

 

[Remou]

What does txtInvoiceID contain? If it does not have a value, then nothing will be returned. How you do this is very much up to you. You can enter a value manually or you can use a control source. If you enter a value or update, be sure to move the focus before running any code.

 

[kermitforney]

Would it make a difference if this was in the Report's On Open Event Procedure??

 

[Remou]

Yes, it would. Reports are quite fussy about where the code goes. You could try the detail format event.

 

[kermitforney]

Tried detail to no avail . . . (
Not sure why it isn't populating the text box.

 

[Remou]

Try:

SomeTextbox="Hi"

To ensure you have the right event.

 

[kermitforney]

That doesn't work either.
I tried the Event Procedures in:

Page Header
On Format
Detail
On Format
Report
On Open

Nothing seems to populate this text box, I may just have to start from scratch. (

 

[Remou]

Let me be quite clear on this. You have created an unbound textbox and checked that you have the correct name and the detail format event does not populate the textbox. Is this correct?

Here is an example:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Me.txtTest = "Hi"
End Sub

 

[kermitforney]

Yes, Yes and No I did not place it in the Detail_Format Event. To be specific the text box is in the Page Header, if that makes any difference. I apologize for my ineptitude, but I am a fish out of water when it comes to VBA.

Error Message: Ambiguous name detected Detail_Format

 

[Remou]

Error Message: Ambiguous name detected Detail_Format
This means that you have two Detail_Format procedures, rename or delete one of them.

Then:

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
Me.txtTest = "hi"
End Sub

 

[kermitforney]

Works now, going to apply the rest of the code, thanks Remou!!!

 

[kermitforney]

Ok, after trying to implement the changes I have a new error message.
"Compile error: Variable not defined",

for the Function:fcnInt2Bin in the following code.

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

    Dim InvoiceID As Long
    Dim ControlNumber As Long

    InvoiceID = Me.txtInvoiceID
    ControlNumber = InvoiceID([red]fcnInt2Bin[/red])

    Me.txtControlNumber = ControlNumber

End Sub
[\code]

 

[Remou]

You have the line the wrong way round. You must pass an argument to the function (fncInt2Bin), not pass a function to an argument:

ControlNumber = fncInt2Bin(InvoiceID)

 

[kermitforney]

When I comment out the:

ControlNumber = fcnInt2Bin(InvoiceID)

and change this line

Me.txtControlNumber = ControlNumber

to

Me.txtControlNumber = InvoiceID 'ControlNumber

it works fine . . .

Something is incorrect in the function call . . I think. )

 

[kermitforney]

When I use this line:

ControlNumber = fncInt2Bin(InvoiceID)

I get this Compile error:
Sub or function not defined.

 

[Remou]

Where did you put this code?

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
    
    fncInt2Bin = Dec2Bin
End Function

 

[kermitforney]

General

 

[kermitforney]

Should it be placed elsewhere.