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()
|
||||
|
||||
If tbPath = "" Then
|
||||
If tbPATH = "" Then
|
||||
MsgBox ("no directory specified")
|
||||
Exit Sub
|
||||
End If
|
||||
@ -49,7 +49,7 @@ Private Sub bPICK_Click()
|
||||
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
|
||||
fd.Show
|
||||
|
||||
tbPath.text = fd.SelectedItems(1)
|
||||
tbPATH.text = fd.SelectedItems(1)
|
||||
|
||||
|
||||
End Sub
|
||||
|
BIN
pricelist.frx
BIN
pricelist.frx
Binary file not shown.
Loading…
Reference in New Issue
Block a user