diff --git a/pricelist.frm b/pricelist.frm index db6ac27..720948f 100644 --- a/pricelist.frm +++ b/pricelist.frm @@ -13,6 +13,7 @@ Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False + Public proceed As Boolean Private pl() As String Private plv() As Variant @@ -110,7 +111,7 @@ Private Sub UserForm_Initialize() ' 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) Exit Sub End If @@ -124,6 +125,8 @@ Private Sub UserForm_Initialize() plfv = FL.x.TBLp_StringToVar(FL.x.TBLp_Transpose(pl)) + + cbLIST.list = plv lbLIST.list = plfv @@ -168,7 +171,7 @@ Sub load_lists() ' 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) Exit Sub End If