مساعدة في جمع حقل حسب نوع الحركة

[سامر محمود]

الاخوة الخبراء الاعزاء

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

عندي نموذج اسمه الحركة فيه كومبو نوع الحركة وارد او منصرف 

عايز اعمل جمع في نهاية التقرير انه يجمع كل حركة في نهاية التقرير 

[Foksh]

اخونا العزيز @سامر محمود ،

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

ارسل مرفقك وستجد العديد من الحلول بإذن الله 😇

[سامر محمود]

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

اخونا العزيز @سامر محمود ،

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

ارسل مرفقك وستجد العديد من الحلول بإذن الله 😇

الاخ الكريم @Foksh

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

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

If Me.نوع الحركة = "æÇÑÏ" Then
Me.w.Visible = True
Me.m.Visible = False
End If
If Me.نوع الحركة = "ãäÕÑÝ" Then
Me.m.Visible = True
Me.w.Visible = False
End If
  If Me.نوع الحركة = "" Then
  Me.w.Visible = True
  Me.w.Visible = True
  End If

 

[Foksh]

منذ ساعه, سامر محمود said:

الاخ الكريم @Foksh

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

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

If Me.نوع الحركة = "æÇÑÏ" Then
Me.w.Visible = True
Me.m.Visible = False
End If
If Me.نوع الحركة = "ãäÕÑÝ" Then
Me.m.Visible = True
Me.w.Visible = False
End If
  If Me.نوع الحركة = "" Then
  Me.w.Visible = True
  Me.w.Visible = True
  End If

 

اخي سامر الكل هنا أخوة ويساند بعضه البعض 😇

 

ما رأيك باستخدام الدالة Case كتجربة 😉 ، يمكن في حالة الجمل الشرطية في حالتك تكون أسهل .

 

Select Case Me.نوع_الحركة
    Case "وارد"
        Me.w.Visible = True
        Me.m.Visible = False
    Case "منصرف"
        Me.w.Visible = False
        Me.m.Visible = True
    Case Else
        Me.w.Visible = True
        Me.m.Visible = True
End Select

حسب نوع الحركة ( منصرف ، وارد ، غير ذلك ) .

وللنصيحة ، عند نسخ الأكواد وكانت تحتوي حروف عربية ، اجعل مؤشر الكتابة باللغة العربية ثم قم بالنسخ من محرر الأكواد الى المشاركة أو العكس من هنا الى هناك 🤗

جرب وأخبرنا بالنتيجة 😇 

تم تعديل أكتوبر 26 بواسطه Foksh

[سامر محمود]

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

اخي سامر الكل هنا أخوة ويساند بعضه البعض 😇

 

ما رأيك باستخدام الدالة Case كتجربة 😉 ، يمكن في حالة الجمل الشرطية في حالتك تكون أسهل .

 

Select Case Me.نوع_الحركة
    Case "وارد"
        Me.w.Visible = True
        Me.m.Visible = False
    Case "منصرف"
        Me.w.Visible = False
        Me.m.Visible = True
    Case Else
        Me.w.Visible = True
        Me.m.Visible = True
End Select

حسب نوع الحركة ( منصرف ، وارد ، غير ذلك ) .

وللنصيحة ، عند نسخ الأكواد وكانت تحتوي حروف عربية ، اجعل مؤشر الكتابة باللغة العربية ثم قم بالنسخ من محرر الأكواد الى المشاركة أو العكس من هنا الى هناك 🤗

جرب وأخبرنا بالنتيجة 😇 

بشكرك علي كرم المساعدة اخي @Foksh

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

[Foksh]

49 دقائق مضت, سامر محمود said:

بشكرك علي كرم المساعدة اخي @Foksh

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

اخي سامر رضي الله عنك وأرضاك 🤗

بما أنك لم تحصل على الحل ، فساعدنا وارسل مرفقك على الأقل 🙄 .

 

انا الآن على سفري ، وقد لا أتمكن من رؤيته في الوقت الحالي ، عل أحد الأساتذة والإخوة يدعمك في الحل بعد إرسالك للملف 😅 .

[سامر محمود]

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

اخي سامر رضي الله عنك وأرضاك 🤗

بما أنك لم تحصل على الحل ، فساعدنا وارسل مرفقك على الأقل 🙄 .

 

انا الآن على سفري ، وقد لا أتمكن من رؤيته في الوقت الحالي ، عل أحد الأساتذة والإخوة يدعمك في الحل بعد إرسالك للملف 😅 .

الاخ العزيز @Foksh

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

الخزينة test.accdb

[Foksh]

أخي سامر ، ارجو منك مستقبلاً أن تركز في طبيعة المعلومات التي تقدمها لنا .

ففي المشاركة الأولى كان النموذج اسمه "الحركة" ، وهو بعد ارسالك للمرفق يقوم بفتح التقرير "حركة حالية" من خلال زر "الطباعة" . وبعد ارسالك للكود التالي :-

في 26‏/10‏/2024 at 13:21, سامر محمود said:

If Me.نوع الحركة = "æÇÑÏ" Then
Me.w.Visible = True
Me.m.Visible = False
End If
If Me.نوع الحركة = "ãäÕÑÝ" Then
Me.m.Visible = True
Me.w.Visible = False
End If
  If Me.نوع الحركة = "" Then
  Me.w.Visible = True
  Me.w.Visible = True
  End If

توضح بعد المرفق انك قفزت لموضوع آخر مختلف في نموذج آخر وتقرير آخر ..

 

على العموم بالنسبة للطلب الأخير وهو بخصوص الكود ؛ فقد تم تصويب الكود بوضعه في المكان الصحيح - وليس في حدث عند تحميل التقرير ، ودون الإعتماد على مربع النص "نوع الحركة" في التقرير نفسه ؛ بل بالقائمة المنسدلة "نوع الحركة" من النموذج "التقرير" - إلى الحدث عند التنسيق للقسم الموجود فيه المربعين ( w , m ) .

 

المرفق بعد التعديل .

 

الخزينة test.accdb

[سامر محمود]

30 دقائق مضت, Foksh said:

أخي سامر ، ارجو منك مستقبلاً أن تركز في طبيعة المعلومات التي تقدمها لنا .

ففي المشاركة الأولى كان النموذج اسمه "الحركة" ، وهو بعد ارسالك للمرفق يقوم بفتح التقرير "حركة حالية" من خلال زر "الطباعة" . وبعد ارسالك للكود التالي :-

توضح بعد المرفق انك قفزت لموضوع آخر مختلف في نموذج آخر وتقرير آخر ..

 

على العموم بالنسبة للطلب الأخير وهو بخصوص الكود ؛ فقد تم تصويب الكود بوضعه في المكان الصحيح - وليس في حدث عند تحميل التقرير ، ودون الإعتماد على مربع النص "نوع الحركة" في التقرير نفسه ؛ بل بالقائمة المنسدلة "نوع الحركة" من النموذج "التقرير" - إلى الحدث عند التنسيق للقسم الموجود فيه المربعين ( w , m ) .

 

المرفق بعد التعديل .

 

الخزينة test.accdb 896 kB · 1 download

@Foksh

استاذي وافتخر 

اشكرك جدا علي المساعدة الكريمة

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

[Foksh]

12 دقائق مضت, سامر محمود said:

@Foksh

استاذي وافتخر 

اشكرك جدا علي المساعدة الكريمة

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

هدفي التوجيه وليس الإنتقاد يا صديقي سامر