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), "") 'Stop 'Debug.Print oCriteria 'Debug.Print TheMessage MsgBox TheMessage, , "CAVR - ATD" End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”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.