asked on

Calling a Module

HI , I have the code in AFTERDELCONFIRM of the form and the same code goes toe each and every form i have in the AFTERDELCONFIRM event. So instead of pasting the code in each and every form.

Can i create a single module which has this code and can i call that module in the AFTERDELCONFIRM event of every form. Please Help me as soon as possible.

Jim Dettman (EE MVE)

Two ways to do this:
1. In the property sheet, call a function ie.

=MyAfterDeleteConfirm([Form])
You can easily mass update the event property for forms/reports with some code.
2. Write custom classes to sink the events:
ACC2000: How to Sink Form and Report Events to Custom Class Modules
http://support.microsoft.com/kb/234907
JimD.

DatabaseMX (Joe Anderson - Former Microsoft Access MVP)

Put his in a vba Module:

Public Function mAfterDelConfirm()

' you code here

End Function

Then, on the property sheet of each form ... in the After Del Confirm event put this:

=mAfterDelConfirm()

mx

Jim Dettman (EE MVE)

FYI, here's a screen shot of what the first option looks like and what a procedure might look like.
JimD.

Function StdFormCt(frm As Form, strParam As String, strParam2 As String) As Integer

  Dim rstForm As Recordset
  Dim rstFormClone As Recordset
  Dim strBM As String
  Dim UserName As String
  Dim MachineName As String

  Dim var As Variant        'Hold temp values
  Dim intRet As Integer        'Hold intReturn values
  Dim strFormTitle As String
  Dim varOpenArgs As Variant
  Dim intPage As Integer
  Dim strSQL As String

  Dim varControl As Variant
  
  ' Note rev 2.0 and up for A97 and up only
  Const Routine = "StdFromCT"
  Const Version = "2.0.0"

  If (fDebug) Then
    Debug.Print frm.FormName, strParam, strParam2
    Debug.Print "Form Mode  : "; gstrFormMode
    Debug.Print "Reset flag : "; gintResetForm
    Debug.Print "Requery Req: "; gintRequeryRequired
    Debug.Print "Switch to E: "; gintSwitchToEdit
    Debug.Print "Cont Add   : "; gintContinueAdd
    Debug.Print " "
  Else
    On Error GoTo StdFormCt_UnexpectedError
  End If

  StdFormCt = False

Select Case (strParam)
    ' Note that we assume that the following is true about the form:
    '    Has a lock property of Edited Records.
    '    All controls are locked.
    
    Case "OnOpenForm"

.....and continue

Open in new window

Region-Capture.jpg

Jim Dettman (EE MVE)

And here's some ROUGH code you can use to add the call to the procedure in your forms.
JimD.

Function DoAllForms() As Integer

    ' This function loops through all Forms
    
    Dim db As Database
    Dim MyDocument As Document
    Dim i
    Dim intRet As Integer

    Set db = DBEngine.Workspaces(0).Databases(0)
    
    For i = 0 To db.Containers("Forms").Documents.Count - 1
        
        Set MyDocument = db.Containers("Forms").Documents(i)
        Debug.Print " > Document: "; MyDocument.Name;
        Debug.Print ""
        DoCmd.OpenForm (MyDocument.Name), A_DESIGN
        
        Forms(MyDocument.Name).MaxButton = False
        Forms(MyDocument.Name).HelpFile = "HRAPP.HLP"
        Forms(MyDocument.Name).HelpContextId = 99999
        
        'intRet = glrChangePermission(1, MyDocument.name, "USERS", DB_SEC_FRMRPT_EXECUTE, True)

        'If Mid$(NZ(Forms(MyDocument.name).OnClose, ""), 1, 4) = "=Std" Then
        '  Forms(MyDocument.name).OnActivate = "=StdFormCT([Form]," & Chr$(34) & "OnActivateForm" & Chr$(34) & "," & Chr$(34) & Chr$(34) & ")"
        '  Forms(MyDocument.name).OnDeactivate = "=StdFormCT([Form]," & Chr$(34) & "OnDeactivateForm" & Chr$(34) & "," & Chr$(34) & Chr$(34) & ")"
        'End If
        
        DoCmd.SetWarnings False                           'save with new settings without
        DoCmd.Close A_FORM, (MyDocument.Name)
        DoCmd.DoMenuItem 7, A_FILE, 2, , A_MENU_VER20     'sending warnings to the screen
        
    Next i

    DoAllForms = True

End Function