troubleshooting Question

Access VBA MsgBox showing multiple messages

Avatar of Murray Brown
Murray BrownFlag for United Kingdom of Great Britain and Northern Ireland asked on
Microsoft AccessVBA
8 Comments1 Solution26 ViewsLast Modified:
I am using the code below that displays a message box. The problem is that what is held in the variable TheMessage is repeated multiple times. When I add a watch to the variable it only has the sentence once

Sub VM(ByVal oNumber As Integer)

    If oLanguage = "" Then
        MsgBox "Language error. Please exit the system and log in again!"
        Exit Sub
    End If

    Dim oCriteria As String
    Dim TheMessage As String
    oCriteria = "[Validation Number] = " & oNumber
    Debug.Print oCriteria

    TheMessage = Nz(DLookup("[" & oLanguage & "]", "[Validations]", oCriteria), "")
    'Debug.Print oCriteria
    'Debug.Print TheMessage
    MsgBox TheMessage, , "CAVR - ATD"
End Sub
Daniel PineaultPresident / Owner CARDA Consultants Inc.
Join our community to see this answer!
Unlock 1 Answer and 8 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 8 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros