20
Hi,
We've recently upgraded to SL 2018 CU1 and I'm now getting this error in one of my screens:
I have the necessary VBA Aux module with the appropriate declare functions. This screen was working properly in SL 2015.
I was able to resolve this by copying the file sbltovba.dll to this directory: SL\Applications
Thank you for the response. I tried your suggestion but, that did not resolve the issue.
Looks like this was distributed with the wrkstn install through at least 2015 SL…. I don’t see it in 2018.
May have them grab it from 2015 SL and place it in the syswow64 folder. Not sure if it is a registerable DLL or not….
I put it here if you can give them this:
www.dropbox.com/.../sbltovba.dll
That may resolve the issue once it’s in there (have them try to register it).
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
#1
André Arnaud de Cal...
292,886
Super User 2025 Season 1
#2
Martin Dráb
231,768
Most Valuable Professional
#3
nmaenpaa
101,156
Moderator
Share
Report
All responses (
Answers (
