الضغط على الصورة يتم الترحيل (الالحاق) بدل من الضغط على اسم الصنف

[الحلبي]

الاخوة الافاضل السلام عليكم 

مرفق مثال مشروح عليه المطلوب

 ببساطة عند الضغط على اسم الصنف (صنف1) مثلا يتم الترحيل الى النموذج الفرعى بدون اى مشاكل

المطلوب ان نضغط على الصورة نفسها يتم الترحيل بدل من الضغط على اسم الصنف

صار لى مدة طويلة احاول ولم اصل للمطلوب

جزاكم الله خير

الاصناف.rar

[د.كاف يار]

تفضي هذه المشاركة من قبلي

الاصناف.rar

[الحلبي]

استاذنا الفاضل الدكتور / @د.كاف يار

جميل جدا وجزاك الله كل خير 

ارجو توضيح ما هو التعديل الذي تم

وياريت بقاء زر الامر لان به اسم الصنف او عمل تكست يحمل اسم الصنف

ولماذا الصورة مكررة فى الفرعى

[الحلبي]

بعد مراجعة الملف مرة اخرى قد تبين لى التعديل الذى تم 

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

ياريت يكون التعديل على الكود المرفق داخل نموذج voice  لانه من غير المنطقى ان اضيف عشرين كود لكل صنف

عموما جزاك الله خير وبارك الله فيك ان لم يكن لدى حضرتك الوقت يمكن احد الاخوة يكون عنده حل اخر 

[أبو إبراهيم الغامدي]

في ١١‏/٩‏/٢٠٢٠ at 18:37, حلبي said:

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

كيف ستفعل بهذه العشرين أو أكثر! هل ستلجأ إلى فتح التصميم وإعادة رصف الصور في كل مرة؟! 

أقترح عليك استخدام النموذج المستمر؛ لتتخلص من العرض والطول الزائدين، خاصة وأنت ستخدم نموذج الأصناف داخل نموذج آخر..

 

[الحلبي]

استاذنا الفاضل القدير / @أبو إبراهيم الغامدي

حياك الله

اولا : اشكرك وجزاك الله خيرا على المداخلة واعتبر نفسى محظوظ لهذه المداخلة

ثانيا : يبدو ان حضرتك قد مررت على المثال المرفق بسرعة دون ان تتفحص محتواه وطبعا عندك حق من شكل المثال وصيغة سؤالى الغير كاملة جعلك تطرح هذا السؤال

وان سمحت لى ان اوضح لحضرتك ان تصميم النموذج يهيأ مرة واحدة والسبب ان الكود داخل محرر الاكواد يقوم بنفسه بكتابة اسم الصنف على اى زر يوضح داخل النموذج الفرعى

بمعنى انى اضع فى الفرعى مثلا عشرين زر امر يتبعه عشرين مربع صورة فارغ والكود عليه ان يقوم باختيار الازار حسب مسار الموجود فى الجدول المسمى t1 ولا يظهر باقى العشرين

وانما انا وضعت عشرين تحت الزيادة والنقصان فى اي وقت . 

فالمطلوب هنا تعديل الكود فى النموذج المسمى voice بحيث بدل من الضغط على زر الامر ليقوم بالاضافة ان نضغط على الصورة نفسها لان الزر مساحة العرض صغيرة وغير واضحة للمستخدم

بينما الصورة كبيرة ويكون الضغط عليها اسهل واوضح 

كل الاحترام والتقدير لحضرتك 

تم تعديل سبتمبر 12, 2020 بواسطه الحلبي

[أبو إبراهيم الغامدي]

أهلا  @حلبي

عنصر تحكم الصورة في أكسس لا يقبل التركيز ولذا فإن (Screen.ActiveControl) لا يمكن أن يعيد قيمة الخصيصة (Tag) الخاصة بالصورة! 

نحن بحاجة إلى شيء يكون مقبولا مع جميع العناصر.. أجريت التعدل اللازم .

الأصناف.zip

تجربتي يمكن تعجبك!

عند التقر على الصورة، إذا كانت المادة موجودة تزيد الكمية!

PRODUCTS.zip

[الحلبي]

استاذنا القدير / @أبو إبراهيم الغامدي

الله الله الله عليك يعجز لسانى عن كلمات الشكر والتقدير والتحية لكم 

حل فوق الممتاز ـ ما هذا ـ ما هذا الذى تفعله باكسس صحيح  انتم اهل التخصص والخبرة عندكم  

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

المرفقات كل منهما احلى من الأخر وطبعا اعجبتنى جدا جدا تجربتكم بعمل نموذج مستمر ولكن لا ادرى لماذا تظهر عندى عدة رسائل بالخطأ  فى المرفق products

كما ان الصور لا تثبت بعد اختيارها فى النموذج المسمى name_f  ارجو ان تجربة مرة اخرى 

ولكن تعديلكم للكود فى المرفق الاول عبقرى وسحرى فى نفس الوقت 

شكرى وتقديرى لكم 

[أبو إبراهيم الغامدي]

27 دقائق مضت, حلبي said:

الله الله الله عليك يعجز لسانى عن كلمات الشكر والتقدير والتحية لكم 

حل فوق الممتاز ـ ما هذا ـ ما هذا الذى تفعله باكسس صحيح  انتم اهل التخصص والخبرة عندكم  

رحمك الله أ. حلبي..

ما أعتقد أني فعلت شيء.. كل ما في الأمر أني مررت رقم الصنف في الدالة خاصتك! 

[الحلبي]

استاذنا القدير / @أبو إبراهيم الغامدي

اقتباس

ما أعتقد أني فعلت شيء.. كل ما في الأمر أني مررت رقم الصنف في الدالة خاصتك! 

 

بعض الاحيان بعض الطلبة المبتدئين مثلى يحب ان يثبت جدارته امام معلمه

فقمت ببعض التعديلات على كود حضرتك كما موضح فى المثال المرفق حتى احصل على اصغر كود ممكن وحتى يتناسب مع عملى

والسؤال الآن : ماذا لو ؟ في النموذج voice كما فى المرفق الجديد  نموذج فرعى اخر مثلا نسميه f3 وبه ايضا اسماء اصناف اخرى وصورهم

هل اعيد واكرر نفس الكود (عند التحميل ) ام هناك طريقة بكود يوضع بدل تكرار الكود

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

فجزاكم الله خير على ما تفعلوه مع المبتدئين مثلى .

الضغط على صورة الصنف.rar

[أبو إبراهيم الغامدي]

منذ ساعه, حلبي said:

هل اعيد واكرر نفس الكود (عند التحميل ) ام هناك طريقة بكود يوضع بدل تكرار الكود

لا.. كل ما عليك فعله هو إخراج الشفرة من حدث OnLoad ووضعها في إجراء جديد مع محدد غرضي واحد، ثم في حدث OnLoad تمرر إليه اسم النموذج.. 

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

Private Sub Form_Load()
   SET_EVENTS (Me.f1)
End Sub

Sub SET_EVENTS(F As Object)
   On Error Resume Next
   Dim pt
   Dim i
   Dim rst As Recordset
   Dim ctl As Control
   
   Set rst = CurrentDb.OpenRecordset("SELECT * FROM t1 WHERE d_f='1'")
   
   '-- IMAGE CONTROL
   rst.MoveFirst
   For Each ctl In F.Controls
   '    typefile = TypeFileFromPath(CurrentProject.Path & "\Image\" & rst(1))
      If ctl.ControlType = acImage Then
         If Not rst.EOF Then
            ctl.Picture = ""
            ctl.Tag = rst(0): ctl.Visible = True: ctl.OnClick = "=halaby('" & ctl.Tag & "')"
            pt = CurrentProject.Path & "\Image\" & rst(0) & ".jpg"
            If Dir(pt) <> "" Then
                ctl.Picture = pt
            Else
               ctl.Picture = CurrentProject.Path & "\Image\Noimage.jpg"
            End If
            rst.MoveNext
         End If
      End If
   Next
   '-- COMMAND_BUTTON CONTEOL
   rst.MoveFirst
   For Each ctl In F.Controls
      If ctl.ControlType = acCommandButton Then
         If Not rst.EOF Then
            ctl.Tag = rst(0): ctl.Caption = rst(2): ctl.Visible = True:
            ctl.OnClick = "=halaby('" & ctl.Tag & "')"
            rst.MoveNext
         End If
      End If
   Next
   
   rst.Close
   Set rst = Nothing
End Sub

 

[الحلبي]

الاستاذ القدير / @أبو إبراهيم الغامدي

اسف للتأخير

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