یک مطلب آموزشی ساده ولی بسیار مهم و پر استفاده ! : شیئ FileDialog احتمالا در برنامه خود نیاز داشته اید که برای کاربر امکان انتخاب فایل یا پوشه خاصی را فراهم کنید. برای انجام این کار و با استفاده از ویژگی های شیء FileDialog در برنامه نویسی اکسس دو تابع نوشته ایم که به شما ارائه می شود : (مقدار برگشتی از تابع نام فایل یا پوشه انتخاب شده می باشد)
Public Function FolderSelection() As String Dim objFD As Object Dim strOut As String strOut = vbNullString 'msoFileDialogFolderPicker = 4 Set objFD = Application.FileDialog(4) If objFD.Show = -1 Then strOut = objFD.selecteditems(1) End If Set objFD = Nothing FolderSelection = strOut End Function Public Function FileSelection() As String Dim objFD As Object Dim strOut As String strOut = vbNullString 'msoFileDialogFilePicker = 3 Set objFD = Application.FileDialog(3) If objFD.Show = -1 Then strOut = objFD.selecteditems(1) End If Set objFD = Nothing FileSelection = strOut End Function
و در فایل پیوست مطابق تصویر زیر در یک فرم طراحی شده از این توابع استفاده کرده ایم

شما می توانید حسب نیاز خود از این توابع در هر برنامه ای استفاده کنید.0 نظر
تازه ترین ها