calling is not working

[khokhart]

Hello I am not an experienced programmer.
I need to call a sub from module 1 to module 2
I am using bellow mentioned code to do so but its not working please help me to get this thing solved.

Sub testhide()
Call Module1.AdminHide
End Sub

[Dököll]

I'll add a bit also for you, see if you can salvage for parts...

Module code:

 
Public form2 As String
 
Public Sub frame()
 
'you need two options buttons a frame
If Option1 Is Selected Then
        form2.Frame2 = small
 
    ElseIf Option2 Is Selected Then
        form2.Frame3 = medium
    Else
        MsgBox ("what happened?")
    End If
 
End Sub
 

Form 1 code:

 
'this is used as a splash screen
please ignore this form, you can just use form 2 code
Private Sub Continue_button_Click()
Form1.Visible = False
form2.Visible = True
 
End Sub
 

Form 2 code:

 
Private Sub Command1_Click()
 
'we are assigning media a number to be used later
If Option1 = True Then
    media = 1
ElseIf Option2 = True Then
    media = 2
End If
 
'if media equals 1 a certain frame pops up with additional field data..
'frames are layered depending on which option is pressed
If media = 1 Then
    Frame2.Visible = True
    Frame3.Visible = False
'media 2 can represent, in my case video frame
'media 1 can represent DVD frame, data on frame
ElseIf media = 2 Then
    Frame2.Visible = False
    Frame3.Visible = True
End If
 
End Sub
 

I am sure there's more work to be done wth it, but see if you can gather anything, let us know.

Good luck with the project!

Dököll

[Dököll]

Let's try this one instead, I'll modify the other one momentarily, the message box is not firig, but here's on the fires an SQL command...

 
Form code:
 
'Exit database button closes the form completely
Private Sub ExitDataBase_Click()
On Error GoTo Err_ExitDataBase_Click
'On Load of your form to check all incomplete items
Call RunMultiSQL
 
Dim intStore As Integer
'Count of incomplete items that are past the Expected Completion Date
intStore = DCount("[qryOverDueJobs.ID]", "[qryOverDueJobs]", "[qryOverDueJobs.Incomplete] =0")
'If count of incomplete items is zero display a certain form
 

In this case, I was setting a checkbox to checked if system info met certain criteria, but the idea is you are runningthe module code from here using Call RunMultiSQL

This should work in VB o VBA, I believe...

 
Module code:
 
Option Compare Database
 
Sub RunMultiSQL()
 
  DoCmd.SetWarnings False
  DoCmd.RunSQL ("UPDATE DETData SET Incomplete = True WHERE Emailed = True")  
  DoCmd.SetWarnings False
 
End Sub
 
 

[rpicilli]

Hi There.


The sub that you're calling on module2 from module1 should be public. To do that in the declaration of your sub add the word public instead private.

 
Public mySub 
...
...
End mySub
 
 

Hope this help you

Rpicilli