Хочу сделать такое:
в форме - несколько текстовых полей и кнопок напротив каждого из них. В текстовых полях - пути к папкам. Нажав кнопку можно найти папку, и путь должен записаться в соответствующее кнопке текстовое поле.
хочу написать код такого вида:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub browseErp_Click()
browseDir (Forms![Импорт]!erpPath)
End Sub
Public Sub browseDir(ByRef element As Variant)
Dim fdd As FileDialog: Set fdd = Application.FileDialog(msoFileDialogFolderPicker)
With fdd
.title = "Выберите папку"
If .Show = - 1 Then
If .SelectedItems.Count > 0 Then element.Value = .SelectedItems( 1 )
End If
End With
End Sub
Такой код не работает, потому что в процедуре значение element - null. Хочу держать минимум кода в функции нажатия на кнопку. В принципе, есть другой вариант, но хотелось бы знать, как передать ссылку, чтобы из функции можно было в неё записать.
