Run a Sub within another Sub

[knaabis]

I have "Private Sub Command0_Click()"
I need to run inside this Sub other Sub called "Private Sub Command1_Click()"
How to do this?

 

[jackd]

Try changing this
Private Sub Command1_Click()

to Public Sub Command1_Click()

 

[knaabis]

And?

For example:

Public Sub Command0_Click()
Bla Bla
End Sub


Public Sub Command1_Click()
Bla Bla Bla
End Sub

I need to run Command1 inside Command0.
How to do this?

 

[jackd]

In your first routine

Private Sub Command0_Click()
Bla Bla Bla
bla
bla bla
Call Sub Command1_Click
bla
End Sub

I had a similar post yesterday where someone wanted to click a button on another Form from a button on the current form..
Basically saying

in the Command1_Click proc make a call to the Btn_Click proc on another Form

Private Sub Command0_Click()
Call Forms("Form12").btnSQL_Click
End Sub


where btnSQL_Click on Form12 was

NOTE ::: The Private was removed from this Sub

Sub btnSQL_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim sSQL1 As String
Dim sSQL2 As String
Dim iChecked As Integer

Set db = CurrentDb
On Error Resume Next ' just in case there is alread a query called TempQuery
DoCmd.DeleteObject acQuery, "tempquery"
' create a tempquery
Set qdf = db.CreateQueryDef("tempquery", "select * from Locations")

sSQL1 = "SELECT "
sSQL2 = " FROM LOCATIONS"
iChecked = 0 ' counter of number of check boxes ticked
On Error GoTo Err_btnSQL_Click
' check value of -1 means IT IS CHECKED
If Me.Check0.Value = -1 Then
iChecked = iChecked + 1
sSQL1 = sSQL1 & "EmployeeID " 'field to select/display
End If
If Me.Check2.Value = -1 Then
iChecked = iChecked + 1
If iChecked > 1 Then
sSQL1 = sSQL1 & "," ' if a field already selected, must follow with a comma SQL SYNTAX
End If
sSQL1 = sSQL1 & "EmployeeName "
End If
If Me.Check4.Value = -1 Then
iChecked = iChecked + 1
bla bla....