تامر خليفه

9 دقائق مضت, lionheart said:

Try this code

Sub Test()
    Dim ws As Worksheet, fso As Object, sPath As String, lr As Long, iRow As Long
    Set ws = ActiveSheet
    Set fso = CreateObject("Scripting.FileSystemObject")
    lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
    ws.Columns(1).Interior.Color = xlNone
    For iRow = 2 To lr
        sPath = ThisWorkbook.Path & "\" & ws.Cells(iRow, 1).Value
        If fso.FolderExists(sPath) Then
            ws.Cells(iRow, 1).Interior.Color = vbGreen
        End If
    Next iRow
End Sub

 

شكرا لحضرتك ، لو امكن حضرتك تحط الكود في المثال المرفق لاني جربته عندي ومش شغال

UP pls

السلام عليكم ورحمة الله وبركاته وبها نبدأ 

مرحباً

هل يمكن ان يقوم الاكسيل بتلوين خليه لو وجد مجلد اسمه بنفس قيمه الخليه

لا اعلم هل سؤالي واضح ؟

مثلا

عندي جدول في كل خليه اسم عميل ولكل عميل مجلد باسمه

اريد ان اعرف هل للعميل مجلد ام لا

لو موجود مجلد بنفس اسمه في الخليه يقوم الاكسيل بتلوينها

مرفق مثال في المرفقات

العملاء.rar

مرحبا للجميع

هل في طريقه لاختيار حقول مختلفه في كل مره اطبع فيها التقرير او استعلام بدون الدخول لوضع التصميم

شكرا لحضراتكم جميعا

New Microsoft Access Database.accdb

4 دقائق مضت, kkhalifa1960 said:

تفضل أخي الشرح . واذا كان هذا طلبك اضغط على أفضل اجابة . 

الف شكر اخي الفاضل

ده المطلوب بالظبط

شكرا شكرا شكرا

7 دقائق مضت, kkhalifa1960 said:

تفضل أخي الشرح . واذا كان هذا طلبك اضغط على أفضل اجابة . 

هو حضرتك بتشرح بصوت في الشرح ؟

لان مافيش صوت ظاهر عندي للاسف

اكيد الشرح هيكون مفيد جدا

8 ساعات مضت, ابوخليل said:

طلبك غير واضح

تختار فين ؟ المثال يوجد فيه جداول فقط

اين هذه القوائم في مثالك ؟

يا لطيف !!! ..

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

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

اشكر حضرتك اهتمامك بالرد

8 ساعات مضت, Foksh said:

تفضل ، هذا مثال سريع

Foksh.accdb 512 kB · 5 downloads

الف شكر اخي الفاضل

لو حضرتك تفضلت و شرحت طريقه العمل

مع العلم ان المثال لا يعمل عندي وقد يكون بسبب اختلاف نسخ الاوفيس

الف شكر لحضرتك

2 ساعات مضت, kkhalifa1960 said:

تفضل أخي محاولتي حسب ما فهمت .

(قائمة من قائمة من قائمة)قائمة منسدلة.rar 22.24 kB · 1 download

الف شكر اخي الفاضل

فعلا ده المطلوب تمام

لو حضرتك تفضلت و شرحت طريقه العمل

الف شكر لحضرتك

مرحبا للجميع

سؤالي ابحث عنه منذ ما يقرب العامين ولم اجد له اجابه في الاكسس

كيف اظهر بيانات موجوده في قائمه بحث بناء علي بيانات اخري في قائمه بحث اخري

في المثال المرفق

عندنا البلد ثم المحافظه ثم المنطقه

عندما اختار مصر تظهر محافظات مصر القاهره الاسكندريه الخ الخ

وعندما اختار القاهره تظهر المرج ، عين شمس الحلميه الخ الخ 

وهكذا

علما بان احتمال تكرار اسم المنطقه موجود في اكثر من محافظه

Access Database.accdb

جزاك الله كل خير اخي الفاضل

ممكن  شرح لطريقه العمل

بحثت ولم اتوصل لاي موضوع يخص ما اطلب

واسف لو موضوعي ازعجك

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,مرحبا للجميع

هل هناك طريق لعمل قائمه منسدله يتغير قيمتها بناء علي قائمه منسدله اخري غير معادله INDIRECT

مرحبا للجميع

ارجو المساعده في كيفيه بناء قاعده بيانات بحيث ان عندما اختار الدوله في قائمه منسدله تظهر مدنها في قائمه منسدله اخري وعندما اختار المدينه تظهر المناطق في قائمه منسدله اخري

مرفق ملف للتعديل عليه

وشكرا للجميع مقدما

TEST.accdb

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

 

 

الكود يعمل نسخة من قيمة الحقل Emp_Name ويضعه في الذاكرة ،

ثم يفتح متصفح الملفات ، يفتح البارتيشن \:C (اذا الملفات على مجلد معين ، تقدر تغير المسار من الكود ، بحيث يفتح المتصفح هذا المجلد مباشرة) :

Private Sub cmd_Open_File_Explorer_Click()

    Me.EMP_NAME.SetFocus
    DoCmd.RunCommand acCmdCopy
    
    'Application.FollowHyperlink "C:\"
    'or
    'Dim Foldername As String
    'Foldername = "\\server\Instructions\"
    'Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus
    'or
    Shell "C:\WINDOWS\explorer.exe c:\", vbNormalFocus	'Open Windows Explorer, C partition
    
End Sub

.

ومنها تتصفح الى المجلد المطلوب ،

ولما تريد ان تغير اسم ملف ، انقر على الملف بالفأرة اليسار مرة واحدة ، ثم انقر على F2 من لوحة المفاتيح يدويا ، وسيكون الملف جاهز لتغيير الاسم ، اضغط على لوحة المفاتيح Ctrl+V للصق الاسم الجديد.

 

جعفر

الف شكر اخي الفاضل 

تماااااام

52 دقائق مضت, jjafferr said:

مفهوم رقم 1:

اين توجد الصورة السابقة ، ما مسارها ، وما اسمها ؟

يعني يجب ان يكون عندك حقل آخر (او اكثر من حقل) ، فيه هذه المعلومات ، يعني ممكن عندك حقل فيه المسار فقط ، وحقل آخر فيه اسم/رقم الصورة ،

وقد يكون مسار الصور يتبع مسار قاعدة البيانات ، فلهذا السبب لن يكون هناك حقل بالمسار.

 

يعني لا تريد ان يتم العمل بالخفاء/بالصمت برمجيا ، ولكنك تريد فتح مستعرض الملفات ايضا ، لماذا وما الفائدة من هذا ؟

 

 

مفهوم رقم 2:

تريد ان تنقر على زر الاكسس فيفتح متصفح الصور ، وانت تختار من الصور الموجودة هناك ، ولما تنقر/تختار الصورة ، تريد ان يتغير اسمها الى تلك التي في سجل الاكسس ؟

اذا كان هذا المفهوم صحيح ، فطريقة الحل التي اعرفها:

1. يجب ان يكون عندك مسار للمجلد الذي تريد ان تفتح المتصفح عليه ، وترى صوره ،

2. بدلا عن فتح المتصفح ، يمكننا ان نأتي باسماء جميع الملفات الى مربع قائمة في نموذج الاكسس ،

3. هناك يمكنك اختيار الملف من القائمة ، ونستطيع تغيير الاسم.

 

او نستطيع عمل التالي:

لما تنقر على زر الاكسس ، نجعل الاكسس يحفظ الاسم في الذاكرة (كانك عملت Ctrl+c للاسم) ،

ثم نفتح متصفح الملفات ، وانت تذهب الى المجلد الصحيح ، ولما توصل الى الملف الصحيح ، تنقر عليه لتغيير اسمه (سواء عن طريق النقر على الزر F2 ، او بالفأرة اليمين تعمل Rename ، او ..) ، وعندها تعمل Ctrl+V ليلصق الاسم الجديد 🙂

 

جعفر

 

 

او نستطيع عمل التالي:

لما تنقر على زر الاكسس ، نجعل الاكسس يحفظ الاسم في الذاكرة (كانك عملت Ctrl+c للاسم) ،

ثم نفتح متصفح الملفات ، وانت تذهب الى المجلد الصحيح ، ولما توصل الى الملف الصحيح ، تنقر عليه لتغيير اسمه (سواء عن طريق النقر على الزر F2 ، او بالفأرة اليمين تعمل Rename ، او ..) ، وعندها تعمل Ctrl+V ليلصق الاسم الجديد 🙂

بالظبط ده المطلوب اخي الفاضل

كيف افتح المتصفح من خلال الاكسس

ثم كيف اضغط F2 علي الملف المتختار

تقبل تحياتي و شكري

في ١٠‏/٦‏/٢٠٢١ at 22:38, jjafferr said:

اخي تامر 🙂

 

رجاء اعد صيغة السؤال ، بمرفق صحيح ، وبمثال من مرفقك 🙂

 

جعفر

السؤال بصيغه اوضح

المرفق بيه جدول به حقل اسم الموظف

وفي النموذج عند الضغط علي امر EMP_PIC يقوم الاكسس بفتح مستعرض ملفات و يسمي الصوره التي اختارها من المستعرض بالاسم المكتوب في حقل EMP_NAME

EMPL_NAME.accdb

😔😔😔😔

هذا لانه جزء من جدول و اخذت منه ما كنت اعتقد يفي بالغرض لاشرح سؤالي

عذرا اخذت من وقتك كثير بدون فائده 

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

اخي الكريم

حقل الصورة  به رابط الصورة ليفتح من خلاله بعد تغير الاسم وهو فارغ الي ان يتم تغير اسم الصوره برمجيا

للمره الثانيه اسف لاني اسئل بشكل خاطئ 🙄

اخي الفاضل

عفوا لو كنت أخطأت في التعبير عن سؤال

سؤالي هو

هل يمكن ان أقوم بعمل rename لصوره موجوده في مجلد بناء علي الاسم الموجود في حقل الاسم بالضغط عليها

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

يعني الاكسس يقوم بعمل كوبي لقيمه الحقل "A" و يقوم بفتح نافذه فتح للملف و يقوم بعمل rename ثم لصق الاسم الذي اخذه كوبي من الحقل "A"

وشكرا لتفاعلك اخي الكريم

• ارجو المساعدة من الأخوة

مرحبا للجميع

ارجو المساعدة من الأخوة

عندي قاعده بيانات بها جدوا به حقل اسم الموظف و حقل صوره للموظف

وكل الصور موجوده في مجلد علي الجهاز وعملت حقل الصورة ربط للصورة

مطلوب مني ان اغير كل صوره في المجلد باسم الموظف في الحقل الموجود في نفس الجدول

New Microsoft Access Database.accdb

مرحبا للجميع

مطلوب طريقه للطباعه علي بوليصه شحن الميدل ايست لان خطي وحش جدا والبوليصه حجمها صغير و اماكن الكتابه فيها صغيره

وورد او اكسل او اي طريقه اخري

21 hours ago, خالد سيسكو said:

السلام عليكم

مشاركة مع اخي العزيز أحمد الفلاحجى عملت لك ملفين

الاول يعمل لك نسختين احتياطييتين  من ملفك في القسم E  والقسم F مباشرة

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

اتمنى يكون المطلوب

تحياتي

TEST.rar 861.99 kB · 2 downloads

TEST-2.rar 862.97 kB · 3 downloads

اخي الفاضل

الف شكر

ولكن المطلوب ان الملف يبحث عن اي مجلد باسم اوفيسنا مثلا في اي مكان علي الجهاز وياخد من نفسه نسخه

والف شكر لجميع استاذتي الكرام

تمام

هذا ما اقصد

ولكن في اماكن متفرقه في مجلد باسم ثابت ولكن في اكثر من مكان علي الجهاز او الشبكه بدون السؤال 

مرحبا للجميع

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

عفوا لعدم ارسال مرفق لان هذا موضوع للنقاش
 

مرحبا للجميع

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

عفوا لعدم ارسال مرفق لان هذا موضوع للنقاش

شكرا اخي الفاضل

استفدت منه