Run a Module (Public Function) from a detail report event procedure

[AJLJ2015]

Hi,

Instead of repeating the code in multiple reports, i wanted to create a module that will be called for all types of reports that i have created.

The code that I plan to execute is a Public function under Module1, and being called from "on format" event procedure of my detail reports. The code below is typical for the rest of my 10 reports.

Option Compare Database
 
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
 
F14.BackStyle = 1
 
   If Text35 = "A" Then
      F14.BackColor = RGB(0, 128, 128)
      F14.ForeColor = vbWhite
 
 
   ElseIf Text35 = "B" Then
      F14.BackColor = RGB(255, 102, 0)
      F14.ForeColor = vbBlack
 
   ElseIf Text35 = "C" Then
      F14.BackColor = RGB(204, 204, 255)
      F14.ForeColor = vbBlack
 
 
   Else
      F14.BackColor = vbWhite
      F14.ForeColor = vbBlack
 
 
   End If
 
End Sub

Goal should be like this..

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) 
 
Call Module1 
 
End Sub

Please help thank you.

[NeoPa]

As a first thing I'd say check out Require Variable Declaration. Running without that set, as you are, is a recipe for disaster.

AJLJ:
Goal should be like this.

Not really. That makes little sense. However, it could be like :

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Call ColourX(objVar:=F14, strVar:=Me.Text35.Value)
End Sub

This is complicated by the lack of any explanation of what F14 and Text55 are and where they come from. The example code below will certainly be less useful due to the lack of that information.

Option Compare Database
Option Explicit
 
Public Sub ColourX(objVar As Object, strVar As String)
    With objVar
        .BackStyle = 1       'Normal
 
        Select Case strVar
        Case "A"
            .BackColor = RGB(0, 128, 128)
            .ForeColor = vbWhite
        Case "B"
            .BackColor = RGB(255, 102, 0)
            .ForeColor = vbBlack
        Case "C"
            .BackColor = RGB(204, 205, 255)
            .ForeColor = vbBlack
        Case Else
            .BackColor = vbWhite
            .ForeColor = vbBlack
        End Select
    End With
End Sub