build pricelist csv

This commit is contained in:
Trowbridge 2020-01-10 14:17:29 -05:00
parent 94bc6e2b14
commit 733d65881e
2 changed files with 48 additions and 0 deletions

48
pricelist.frm Normal file
View File

@ -0,0 +1,48 @@
VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} pricelist
Caption = "Price List Name"
ClientHeight = 4590
ClientLeft = 120
ClientTop = 465
ClientWidth = 4110
OleObjectBlob = "pricelist.frx":0000
StartUpPosition = 1 'CenterOwner
End
Attribute VB_Name = "pricelist"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public proceed As Boolean
Private Sub bCANCEL_Click()
proceed = False
Me.Hide
End Sub
Private Sub bOK_Click()
proceed = True
Me.Hide
End Sub
Private Sub bPICK_Click()
'--------Open file-------------
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.Show
tbPATH.Text = fd.SelectedItems(1)
End Sub
Private Sub UserForm_Initialize()
proceed = False
End Sub
Private Sub UserForm_Terminate()
proceed = False
End Sub

BIN
pricelist.frx Normal file

Binary file not shown.