فتح فولدر في الويندوز بناء علي رقم الملف الموظف

[حسين العربى]

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

لدي سؤال هو كيف افتح فولدر في برتشن معين بناء علي رقم ملف الموظف 

بمعني انا عندي حقل في نموذج اسمه رقم ملف الموظف  اضع فيه رقم ملف الموظف  واضغط علي زر امر يفتح الفولدر  الذي اسمه يطابق  الرقم الموجود في حقل رقم ملف الموظف

انشاء الله يكون شرحي واضح ولكم جزيل الشكر

[ابو ياسين المشولي]

جرب هكذا

لازم يكون في راس النمودج
Private Declare PtrSafe 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

هذا كود عامله انا يفتح الصورة اللي في المجلد اللي بنفس رقم الفاتورة
ShellExecute Me.hwnd, "open", CurrentProject.path & "\StPic" & "\" & Trim(str(nofatora)) & ".jpg", "", "", 1

StPic=المجلد
CurrentProject.path=موقع البرنامج
nofatora=رقم الموظف
.jpg= الصيغه

 

تم تعديل أغسطس 14, 2022 بواسطه jjafferr
اعادة ترتيب الاسطر ليكون الكود واضح

[jjafferr]

وعليكم السلام 🙂

هذا الكود يفتح المجلد D:\Guests_Pics بملئ الشاشة vbMaximizedFocus ، ويجعل التركيز على صورة رقم الضيف (مثلا 123.jpg ) ، وبدون ان يفتح الصورة

    
    Shell "C:\Windows\explorer.exe /select,D:\Guests_Pics\" & Me.Guest_ID & ".jpg", vbMaximizedFocus

 

 

هذا الكود يفتح المجلد D:\Guests_Pics

application.followhyperlink "D:\Guests_Pics"

 

جعفر

[Moosak]

ولزيادة الخير 🙂  .. هذه دالة لفتح المجلدات أو الملفات أو صفحات الانترنت بدون رسائل التنبية المزعجة :

Public Sub OpenPath(strPath As String)

Shell "explorer.exe" & " " & strPath, vbNormalFocus

'You can also Change it to: 
'Shell "explorer.exe" & " " & strPath, vbHide
'Shell "explorer.exe" & " " & strPath, vbMaximizedFocus
'Shell "explorer.exe" & " " & strPath, vbMinimizedFocus
'Shell "explorer.exe" & " " & strPath, vbMinimizedNoFocus
'Shell "explorer.exe" & " " & strPath, vbNormalNoFocus
End Sub

طريقة الاستدعاء :

OpenPath "C:\Windows"                            ' <--- مجلد
OpenPath "C:\Document\File.PDF"               ' <--- ملف
OpenPath "http:\\www.google.com"             ' <---  موقع

 

تم تعديل أغسطس 14, 2022 بواسطه Moosak

[حسين العربى]

الف شكر لكم جمعيا وجزاكم الله خير 

بس هذا ليس طلبي انا طلبي بسيط جدا

عندي مربع نص غير منضم 

مجرد ما اضع فيه رقم ملف الموظف 

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

اريد فتح الفولدر فقط وليس صور 

[jjafferr]

تفضل

application.followhyperlink me.folder_Name

 

[حسين العربى]

9 ساعات مضت, jjafferr said:

تفضل

application.followhyperlink me.folder_Name

 

استاذي الفاضل jjafferr شكرا لك علي سعة صدرك 

عند تطبيق الكود تظهر لي هذه الرسالة 

 

[jjafferr]

19 ساعات مضت, حسين العربى said:

عند تطبيق الكود تظهر لي هذه الرسالة

1.

عند استخدام اي من الاكواد التي تفضل بها الشباب ، والكود الذي وضعته انا ، يجب ان يكون مسار المجلد كاملا ، فمجلدك رقم 3733 لا يعطي المسار كاملا ،

لذا ممكن حل الخطأ بوضع مسار المجلد في الكود ، ثم تضيف عليه رقم مجلد الموظف ، هكذا (ولقد تم تجربة الطرق الثلاث ادناه ، طبعا تجربة كل سطر بطريقة مستقلة) :

    Dim myPath As String
    
    myPath = "D:\"
    
    ShellExecute Me.hwnd, "open", myPath & Me.Folder_Name, "", "", 1
    Application.FollowHyperlink myPath & Me.Folder_Name
    Shell "explorer.exe" & " " & myPath & Me.Folder_Name, vbNormalFocus

.

2.

نعم ، الكود الذي اعطيتك يُظهر "رسالة إشعار امان" الاكسس ، ولكنه وبعد قبول الرسالة ، يفتح المجلد او الملف ، وللتغلب على هذه الرسالة ، يمكننا كتابة الكود هكذا:

    DoCmd.SetWarnings False
        Application.FollowHyperlink myPath & Me.Folder_Name
    DoCmd.SetWarnings True

 

جعفر

Folder_Name.zip