It is a standard screen, Journal Transactions (01.010.00), that has been customized.
It is throwing an error on the 4 line below: (the OverRide line)
Dim CurrentPeriod$, OverRide$, MessPrompt$, MessTitle$
MessPrompt = "Enter password to override period to post."
MessTitle = "System Message"
OverRide = PasswordBox$(MessPrompt, MessTitle)
Here is the code in the VBA_Aux module:
Public Declare Function PasswordBox Lib "sbltovba.dll" (ByVal szPrompt As String, Optional ByVal szTitle As String, Optional ByVal szDefault As String, Optional ByVal xPos As Long = -1, Optional ByVal yPos As Long = -1) As String
Public Declare Function GetField Lib "sbltovba.dll" (ByVal szString As String, ByVal iFieldNum As Integer, ByVal szSepChars As String) As String
Public Declare Function SetField Lib "sbltovba.dll" (ByVal szString As String, ByVal iFieldNum As Integer, ByVal szField As String, ByVal szSepChars As String) As String
Public Declare Function GetAccelerator Lib "sbltovba.dll" (ByVal szString As String) As String
Public Declare Function GetCaption Lib "sbltovba.dll" (ByVal szString As String) As String
Public Declare Function ConvertX Lib "sbltovba.dll" (ByVal xVal As Long, Optional ByVal lFlag As Long = 0) As Long
Public Declare Function ConvertY Lib "sbltovba.dll" (ByVal yVal As Long, Optional ByVal lFlag As Long = 0) As Long
Public Declare Function Clipboard_GetText Lib "sbltovba.dll" () As String
Public Declare Sub Clipboard_SetText Lib "sbltovba.dll" (ByVal szString As String)
Public Declare Function Clipboard_Clear Lib "sbltovba.dll" () As Boolean
Public Declare Function Clipboard_GetFormat Lib "sbltovba.dll" (ByVal iFormat As Integer) As Boolean
