Passing arguments to a public sub

[EonsTimE]

Hi, I'm learning how to pass arguments to public functions and subs when pressing a button.


For my function this works fine, but when I try to execute a sub, I get error message:

Compile error: Argument not optional.

I know the problem lies in button call, because going through the sub with F8 executes it properly.
I've tried putting some arguments in the button call, but then I get a syntax error.
Halp!



This is the code for buttons:

Private Sub Command25_Click()
Module1.fIntroFunction
End Sub


Private Sub Command26_Click()
Module1.Starter
End Sub

Module1 contents:

Option Compare Database

Public Function fIntroFunction()
Dim lngLength As Long
Dim lngWidth As Long
Dim lngHeight As Long
 
lngLength = 150
lngWidth = 75
lngHeight = 50
 
MsgBox "Volume of space: " & FormatNumber(fCalculateVolume(lngLength, lngWidth, lngHeight), 0) & _
            " Cubic Feet"
End Function


Private Function fCalculateVolume(lngLen, lngWdth, lngHgt) As Long
  fCalculateVolume = (lngLen * lngWdth * lngHgt)
End Function


Private Sub Jumper()


Dim current As Date
Dim owner As String
 
current = Now()
owner = CurrentUser()


Call Starter(current, owner)
End Sub


Public Sub Starter(first As Date, second As String)
  MsgBox "Date passed to Starter: " & first & vbCrLf & _
              "Current User Name passed to Starter(): " & second
End Sub

[Perceptus]

Private Sub Command25_Click()
Module1.fIntroFunction
End Sub

This doesnt pass any information
Modify your function like

Public Function fIntroFunction(lngLength As Long, lngWidth As Long, lngHeight As Long)

'lngLength = 150
'lngWidth = 75
'lngHeight = 50

MsgBox "Volume of space: " & FormatNumber(fCalculateVolume(lngLength, lngWidth, lngHeight), 0) & _
" Cubic Feet"
End Function

And now you can Call Module1.fIntroFunction(150,75,50)

[EonsTimE]

Hi Perceptus,
Thanks for that, unfortunately, it is the Sub routine [Module1.Starter] that throws the error.
Function [Module1.fIntroFunction] gets fired by the button without arguments passed for now and as you've noticed, the arguments for both Sub and Function are built it.
I'm trying to figure out why [Module1.Starter] doesn't get fired by button:

Private Sub Command26_Click()
Module1.Starter 
End Sub

[Perceptus]

To call starter you must pass it the arguments. It requires First and Date.

Try

Module1.Starter date,"testt"

[EonsTimE]

Ahh, so you pass arguments to a Sub without (). That's a new one for me. Thanks for that!
I've also noticed I've by error switched calls Public/Private for my Subs.
Meanwhile I've learned how to make arguments Optional, yaay.

Working example code looks like this:

Buttons code:

Private Sub Command25_Click()
Module1.fIntroFunction
End Sub


Private Sub Command26_Click()
Module1.Jumper
End Sub

Module1 code:

Option Compare Database


Public Function fIntroFunction()
Dim lngLength As Long
Dim lngWidth As Long
Dim lngHeight As Long
 
lngLength = 150
lngWidth = 75
lngHeight = 50
 
MsgBox "Volume of space: " & FormatNumber(fCalculateVolume(lngLength, lngWidth, lngHeight), 0) & _
            " Cubic Feet"
End Function


Private Function fCalculateVolume(lngLen, lngWdth, lngHgt) As Long
  fCalculateVolume = (lngLen * lngWdth * lngHgt)
End Function


Public Sub Jumper()


Dim current As Date
Dim owner As String
 
current = Now()
owner = CurrentUser()


Call Starter(current, owner)
End Sub


Private Sub Starter(Optional ByVal first As Date, Optional ByVal second As String)
  MsgBox "Date passed to Starter: " & first & vbCrLf & _
              "Current Employee Name passed to Starter(): " & second
End Sub

Note I'm not passing arguments from buttons in this code. I call a public function/sub that has arguments and passes them to a private function/sub for action. All for the sake of practice \o.o/

Thank you for your help, Perceptus.