تحميل ملف فى text box

الأخ الفاضل ...

AccessBrowse.zip

من قائمة ما عليك هو إضافة Microsoft Common Dialog ActiveX Control وإستخدامها:

Private Sub cmdBrowse_Click()
	CommonDialog.ShowOpen
	txtFilepath.Value = CommonDialog.Filename
End Sub

وشكراً

شكرا لك اخى الكريم

على اهتمامك بالموضوع و الاجابة و تم التجربة و الموضوع تمام و لكن هنا استفساران

عند الضغط على الملف لتحة لا يفتح الملف بعد تحميلة او يشتعل و المقصود بالملف هو ملف اللينك اللى انا جبتة من على الجهاز

ثانيا و هو الاهم و رجاء الرد و الاهتمام

اريد كتاب او موقع او اى شىء يشرح ادوات اكتف اكس الموجودة فى اكسيس ثانيا كيف يتم كتابه الاكواد وشكرا لك اخى الكريم

الأخ الفاضل...

AccessBrowse2.zip

يمكنك ذلك بأستخدام API وتتنفيذ دالة ShellExecute بعد أختيار الملف كالتالى:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub cmdBrowse_Click()
	CommonDialog.ShowOpen
	txtFilepath.Value = CommonDialog.Filename

	ShellExecute Me.hwnd, "open", CommonDialog.Filename, "", "", 1
End Sub

أدوات أكتف أكس ليست فى أكسس، ولكن هذه مسجلة الأدوات فى جهاز الكمبيوتر لديك، ومتنوعة من عدة شركات، وتعتمد على البرامج المثبتة فى الجهاز والتى تسمح بأستخدام أكتف أكس الخاصة بها، بالطبع فى جزء منها مع الويندوز وجزء كبير يأتى مع أوفس و فيجول ستيديو، وبالبحث فى المنتدى أو الإنترنت عموماً، فيوجد مواضيع كثيرة عن أستخدام أكتف أكس، ولكن كل أداة لها وظائفها وخصائصها التى تختلف عن أداة أخرى

لكتابة الكود أضغط ALT+F11

شكراً

الأخ الفاضل...

AccessBrowse3.zip

ويمكنك ذلك بدون بأستخدام API وتتنفيذ Application.FollowHyperlink بعد أختيار الملف كالتالى:

Private Sub cmdBrowse_Click()
	CommonDialog.ShowOpen
	txtFilepath.Value = CommonDialog.Filename

	Application.FollowHyperlink txtFilepath.Value
End Sub

شكراً