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

[سامر محمود]

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

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

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

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

[Foksh]

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

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

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

[سامر محمود]

  في 26‏/10‏/2024 at 05:07, Foksh said:

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

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

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

Expand  

الاخ الكريم @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]

  في 26‏/10‏/2024 at 10:21, سامر محمود 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

 

Expand  

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

 

ما رأيك باستخدام الدالة 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, 2024 بواسطه Foksh

[سامر محمود]

  في 26‏/10‏/2024 at 11:46, 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

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

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

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

Expand  

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

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

[Foksh]

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

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

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

Expand  

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

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

 

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

[سامر محمود]

  في 26‏/10‏/2024 at 12:50, Foksh said:

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

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

 

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

Expand  

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

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

الخزينة test.accdbFetching info...

[Foksh]

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

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

  في 26‏/10‏/2024 at 10: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

Expand  

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

 

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

 

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

 

الخزينة test.accdbFetching info...

[سامر محمود]

  في 27‏/10‏/2024 at 13:04, Foksh said:

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

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

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

 

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

 

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

 

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

Expand  

@Foksh

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

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

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

[Foksh]

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

@Foksh

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

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

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

Expand  

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