latest forms

This commit is contained in:
Paul Trowbridge 2022-12-20 10:13:36 -05:00
parent 9fb5ad9c93
commit 220116c67d
4 changed files with 2 additions and 2 deletions

BIN
login.frx

Binary file not shown.

Binary file not shown.

View File

@ -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

Binary file not shown.