add variable declaration

2022-04-29 08:22:33 -04:00 · 2022-04-29 08:22:33 -04:00 · 1020edb0e3
commit 1020edb0e3
parent 44555a7f13
2 changed files with 2 additions and 0 deletions
--- a/pricelist.frm
+++ b/pricelist.frm
@ -40,6 +40,8 @@ End Sub

 Private Sub bPICK_Click()

+    Dim fd As Object
+
    '--------Open file-------------
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    fd.Show
--- a/pricelist.frx
+++ b/pricelist.frx