latest forms
This commit is contained in:
parent
9fb5ad9c93
commit
220116c67d
BIN
pricelevel.frx
BIN
pricelevel.frx
Binary file not shown.
@ -31,7 +31,7 @@ End Sub
|
|||||||
|
|
||||||
Private Sub bOK_Click()
|
Private Sub bOK_Click()
|
||||||
|
|
||||||
If tbPath = "" Then
|
If tbPATH = "" Then
|
||||||
MsgBox ("no directory specified")
|
MsgBox ("no directory specified")
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
@ -49,7 +49,7 @@ Private Sub bPICK_Click()
|
|||||||
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
|
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
|
||||||
fd.Show
|
fd.Show
|
||||||
|
|
||||||
tbPath.text = fd.SelectedItems(1)
|
tbPATH.text = fd.SelectedItems(1)
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
BIN
pricelist.frx
BIN
pricelist.frx
Binary file not shown.
Loading…
Reference in New Issue
Block a user