جلب عدد من الصور في نموذج

[محمد التميمي]

السلام عليكم اخواني الكرام

سؤال : لدي  النموذج يحتوي على خمسة صور في آن واحد واكواد هذه الصور مستقلة وليس مدمجة بكود واحد فهل هناك مشكلة بالنسبة للاكسس في تجمع هكذا عدد من الصور في نموذج واحد وان كان الامر صحيح فلا مشكلة لدي .

وإن كان الافضل دمج الاكواد بكود واحد ( فهنيالك يافاعل الخير )

لاني ليس لدي فكرة بدمج اكواد الصور

مع فائق الشكر والتقدير لاخواننا الكرام

 

العيادة.rar

تم تعديل أغسطس 21, 2020 بواسطه محمد التميمي

[محمد أبوعبدالله]

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

لم افهم المشكلة بالضبط

لكن دعنا نقوم بعمل كود مجمع لكل الصور

اولا نضع خقل عير منضم في النموذج وليكن باسم IDPic

ثم نضع الكود التالي في النموذج

Public Function XPic()

Dim fpathz As Variant

With Application.FileDialog(3)
      .Title = "Choose File"
      .Filters.Clear
      .Filters.Clear
      .Filters.Add "All Files", "*.*"
      .Filters.Add "jpg image", "*.jpg"
      .Filters.Add "jpeg image", "*.jpeg"
      .AllowMultiSelect = False
       .InitialFileName = ""
    
 If .Show = -1 Then
   fpathz = .SelectedItems(1)
   
    Name fpathz As Application.CurrentProject.Path & "\Pictures\" & [Id] & Me.IDPic & ".jpg"
   
   If Me.IDPic = 1 Then
       Me.PicPath1 = Application.CurrentProject.Path & "\Pictures\" & [Id] & Me.IDPic & ".jpg"
   
   ElseIf Me.IDPic = 2 Then
       Me.PicPath2 = Application.CurrentProject.Path & "\Pictures\" & [Id] & Me.IDPic & ".jpg"
   
   ElseIf Me.IDPic = 3 Then
       Me.PicPath3 = Application.CurrentProject.Path & "\Pictures\" & [Id] & Me.IDPic & ".jpg"

   ElseIf Me.IDPic = 4 Then
       Me.PicPath4 = Application.CurrentProject.Path & "\Pictures\" & [Id] & Me.IDPic & ".jpg"
   
   ElseIf Me.IDPic = 5 Then
       Me.PicPath5 = Application.CurrentProject.Path & "\Pictures\" & [Id] & Me.IDPic & ".jpg"
   End If
   
   End If
End With

End Function

الكود يقوم بنسخ الصورة الى مجلد Pictures الذي به بجوار البرنامج ويقوم باعادة تسميتها الى حقل id وخقل IDPic

وفي زر الامر1 نضع الكود التالي

    Me.IDPic = 1
    Call XPic

وفي زر الامر2 نضع الكود التالي

    Me.IDPic = 2
    Call XPic

وهكذار لباقي الاوامر

 

العيادة.rar

تحياتي

[محمد التميمي]

7 ساعات مضت, محمد أبوعبدالله said:

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

لم افهم المشكلة بالضبط

لكن دعنا نقوم بعمل كود مجمع لكل الصورا

 

السلام عليكم

بارك الله بك اخي واستاذي ابو عبداللة 

لا توجد مشكلة اخي العزيز كنت اسئل كثرة اكواد الصور بهذه الطريقة بنموذج واحد تؤثر على اداء قاعدة البيانات

بعد ما تفضلت علي بدمج اكواد الصور وهذا ما كنت اريد الملف شغال زي الفل

شكراً جزيلاً وبارك الله بجودك اخي العزيز

تم تعديل أغسطس 22, 2020 بواسطه محمد التميمي

[محمد التميمي]

شكرا

 

تم تعديل أغسطس 22, 2020 بواسطه محمد التميمي

[محمد أبوعبدالله]

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

بالتوفيق اخي الكريم

وبرجاء ضع علامة صح بجوار الاجابة الصحية كما هو موضخ بالصورة ( كمثال ) حنى يعُعلم ان الموضوع تم الاجابة عليه

تحياتي