pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

increment PW

Browse Source
This commit is contained in:
Paul Trowbridge 2021-08-13 11:01:28 -04:00
parent d78f665533
commit 79443856c5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pricelist.frm
View File

@ -13,6 +13,7 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False Attribute VB_Exposed = False
Public proceed As Boolean Public proceed As Boolean
Private pl() As String Private pl() As String
Private plv() As Variant Private plv() As Variant
@ -110,7 +111,7 @@ Private Sub UserForm_Initialize()
' End If ' End If
' End If ' End If
If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@042") Then If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@046") Then
MsgBox (FL.x.ADOo_errstring) MsgBox (FL.x.ADOo_errstring)
Exit Sub Exit Sub
End If End If
@ -124,6 +125,8 @@ Private Sub UserForm_Initialize()
plfv = FL.x.TBLp_StringToVar(FL.x.TBLp_Transpose(pl)) plfv = FL.x.TBLp_StringToVar(FL.x.TBLp_Transpose(pl))
cbLIST.list = plv cbLIST.list = plv
lbLIST.list = plfv lbLIST.list = plfv
@ -168,7 +171,7 @@ Sub load_lists()
' End If ' End If
' End If ' End If
If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@042") Then If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@046") Then
MsgBox (FL.x.ADOo_errstring) MsgBox (FL.x.ADOo_errstring)
Exit Sub Exit Sub
End If End If