كود استيراد صورتين من مجلدين

[عفرنس]

السلام عليكم 

أرغب في استيراد صورتين لكل موظف كل واحدة منهما في مجلد ، محفوظة كلاهما بالرقم المدني . ( المجلدان كلاهم مع القاعدة في نفس المجلد ) 

وقد وجدت هذا الكود للأخ @Shivan Rekany 

Dim Psh As String
       On Error GoTo Err
Psh = CurrentProject.Path & "/" & "الصور" & "/" & [ID] & ".jpg"
        pic.Picture = Psh
    Exit Sub
Err:
        pic.Picture = ""
            Exit Sub

دمتم سالمين . 

[أبو عبدالله الحلوانى]

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

أعتقد أن الأمر سهل كل ما تحتاجه هو تكرار الكود وتعديل ما يلزم من أسماء عناصر التحكم مثل هذا

Dim Psh As String, psh2 As String
       On Error GoTo Err
Psh = CurrentProject.Path & "/" & "الصور" & "/" & [ID] & ".jpg"
Psh2 = CurrentProject.Path & "/" & "1الصور" & "/" & [ID] & ".jpg"
        pic.Picture = Psh
		pic1.Picture = Psh2
    Exit Sub
Err:
        pic.Picture = ""
		pic1.Picture = ""
            Exit Sub

جرب هذا ووافنا بالنتائج - وان كنت قد فهمت مرادك بشكل خاطئ فأرجو مزيد من الايضاح. تمنياتي بالتوفيق

 

[عفرنس]

10 دقائق مضت, أبو عبدالله الحلوانى said:

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

أعتقد أن الأمر سهل كل ما تحتاجه هو تكرار الكود وتعديل ما يلزم من أسماء عناصر التحكم مثل هذا

Dim Psh As String, psh2 As String
       On Error GoTo Err
Psh = CurrentProject.Path & "/" & "الصور" & "/" & [ID] & ".jpg"
Psh2 = CurrentProject.Path & "/" & "1الصور" & "/" & [ID] & ".jpg"
        pic.Picture = Psh
		pic1.Picture = Psh2
    Exit Sub
Err:
        pic.Picture = ""
		pic1.Picture = ""
            Exit Sub

جرب هذا ووافنا بالنتائج - وان كنت قد فهمت مرادك بشكل خاطئ فأرجو مزيد من الايضاح. تمنياتي بالتوفيق

 

أولا .. جزاك الله خيرا .. 

ثانيا .. عملت ما تفضلت به لكن اختف الصورتين .. 

ثالثا : ما أريده هو : لدي 200 طالب احتاج اضافة صورة الهوية والجواز لكل طالب .. 

طبعا الـ  200 صورة (  الهوية ) في مجلد ، و 200 صورة ( الجواز ) في مجلد آخر . 

وكل صورة سواء الهوية أو الجواز محفوظة برقم الهوية ID  . 

أرجو أن أكون أوصلت المطلوب .. 

[أبو عبدالله الحلوانى]

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

فكما يقال من رأي ليس كمن سمع

 

[عفرنس]

4 دقائق مضت, أبو عبدالله الحلوانى said:

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

فكما يقال من رأي ليس كمن سمع

 

جزاك الله خيرا .. اعتذر منك أستاذي الفاضل 

حصل عندي خطأ في نسخ الكود ولك أنتبه . واستعجلت في الرد  

وطريقتك كانت صحيحة 100 % 

الخطأ حصل مني ..