build pricelist csv
This commit is contained in:
parent
94bc6e2b14
commit
733d65881e
48
pricelist.frm
Normal file
48
pricelist.frm
Normal 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
BIN
pricelist.frx
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user