در برنامه های ساخته شده توسط نرم افزار Access شاید نیاز باشد در قسمتی از برنامه با زدن یک دکمه، My Computer باز شود و مسیر دلخواه ما را نمایش دهد و بتوانیم محتویات آن فولدر یا درایو را ببینیم. برای اینکار از کدهای زیر می توان استفاده نمود:
Private Sub Command0_Click()
Dim Path
Path = "D:\"
Shell "cmd /c start """" explorer.exe " & Path, vbHide
End Sub
Private Sub Command1_Click()
Dim Path
Path = "E:\New folder"
Shell "cmd /c start """" explorer.exe " & Path, vbHide
End Sub
البته می توان صفحه Explorer را در خود فرم Access تعریف نمود تا بدون اینکه My Computer باز شود، در همان فرم Access بتوان محتویات را مشاهده نمود. برای این منظور در فرم Access یک کنترل Web browser تعریف نموده و نام آنرا WebBrowser1 قرار دهید. سپس می توانید کد زیر را در روال کلیک Command0 قرار دهید:
Private Sub Command0_Click()
Dim Path
Path = "E:\New folder"
Me.WebBrowser1.ControlSource = "='" & Path & "'"
End Sub
البته این موارد صرفأ ایده هایی هستند که با خلاقیت می توان استفاده های بیشتری از آنها نمود
درباره این سایت