تاريخ انتهاء الصلاحية الاول فالاول

[ahmedabuzena]

في 25‏/7‏/2023 at 20:52, Eng.Qassim said:

لازم تتعلم ..والا كيف تعمل برنامج لزبون ..وبعد بكرى حصلت مشكلة !! كيف راح تحلها 

بصراحة لم اطلع على الجداول والمسميات الا فيما يخص سؤالك 

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

اخى قاسم الحمد لله عرفت اظبط الاعداد واشتغل تمام  باقى فقط combo box مش راضى يعمل فلتر لل 3 جداول

Database5.rar

[عمر ضاحى]

3 ساعات مضت, ahmedabuzena said:

اخى قاسم الحمد لله عرفت اظبط الاعداد واشتغل تمام  باقى فقط combo box مش راضى يعمل فلتر لل 3 جداول

Database5.rar 276.38 kB · 0 downloads

المشكله انك اولا مش ضايف عامل التصفيه فى النماذج الفرعيه

فكيف هيعمل التصفيه ؟

المشكله التى واجهتني هو هذا الاستعلام 

SELECT [item].[Item_Name], [item].[Item_Name] FROM [item] ORDER BY [Item_Name] UNION select 0, '***All item***' from item ORDER BY Item_Name;

  هنا القيمه 0 تدل على ***All item***

طبعا الحل المفترض فى النماذج الفرعيه

جربت اضع هذا الشرط

' الحل الاول
IIf([Forms]![on HandF]![Productid]<>0;[Forms]![on HandF]![Productid];([Purchase_Invoice_sub].[Item_Name]))
'الحل اثاني 
IIf([Forms]![on HandF]![Productid]<>0;([Purchase_Invoice_sub].[Item_Name]) Like [Forms]![on HandF]![Productid];([Purchase_Invoice_sub].[Item_Name]))

 

كلهم يعطينى نفس الخطأ عند محاولت تغير القيمه فى القائمة المنسدله 

 

[شايب]

53 دقائق مضت, عمر ضاحى said:

المشكله التى واجهتني هو هذا الاستعلام 

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

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

وفي المعيار نضع

Like "*" & [Forms]![on HandF]![Productid] & "*"

نفس المعيار للنماذج الفرعية الثلاثة

اخونا شايب 🌹

 

تم تعديل يوليو 27, 2023 بواسطه شايب

[عمر ضاحى]

6 دقائق مضت, شايب said:

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

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

وفي المعيار نضع

Like "*" & [Forms]![on HandF]![Productid] & "*"

نفس المعيار للنماذج الفرعية الثلاثة

اخونا شايب 🌹

 

الطريقه دي مش مشكله 

هو عاوز يظهر جميع البيانات و يقدر يظهر صنف معين 
اما الطريقه دي عادية هتظهر صنف واحد دائما 

[شايب]

16 دقائق مضت, عمر ضاحى said:

اما الطريقه دي عادية هتظهر صنف واحد دائما 

لا عند عدم الاختيار تظهر جميع الاصناف

وممكن نجعلها تظهر الكل بالكود

ولكن هي مجرد مشاركة فلتكن رفع للموضوع

[ahmedabuzena]

1 ساعه مضت, شايب said:

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

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

وفي المعيار نضع

Like "*" & [Forms]![on HandF]![Productid] & "*"

نفس المعيار للنماذج الفرعية الثلاثة

اخونا شايب 🌹

 

السلام عليكم اشتغل معايا بس اول صنف apidone لا يعمل في التصفية وall items لاظهار كل الاصناف لا يعمل

Database6.rar

[Eng.Qassim]

اجعل مصدر الصف للكومبوبوكس هكذا 

SELECT item.Item_Name FROM item ORDER BY item.Item_Name;

لان القديم يخص حقلين 

وامسح ال 0 من Default value 

تم تعديل يوليو 27, 2023 بواسطه Eng.Qassim

[شايب]

2 ساعات مضت, ahmedabuzena said:

السلام عليكم اشتغل معايا بس اول صنف apidone لا يعمل في التصفية وall items لاظهار كل الاصناف لا يعمل

 

منذ ساعه, Eng.Qassim said:

اجعل مصدر الصف للكومبوبوكس هكذا 

اخونا العزيز شايب يقول ما نحتاج نغير مصدر الكمبوبكس

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

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

الطريقة الثانية مشابهة للاولى ولكن من خلال الفلترة والغاء الفلترة

الطريقة الثالثة وهي نفس ما اشرت اليه في ردي الاول ولكن المعيار يكون متغير عام

في وحدة نمطية نضع الاتي

Public x As String
Public Function t()
    t = x
End Function

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

If Me.Productid.Column(1) = "***All item***" Then
x = vbNullString
Else
x = Me.Productid.Column(1)
End If
Me.Refresh

وفي معيار الاستعلام للنماذج الثلاثة نضع الامر

Like "*" & Nz(t()) & "*"

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

الملف مرفق

اخونا الشايب🌹

Database51.rar

[Eng.Qassim]

اخونا @شايب مبدع جدا وأفكاره جميلة

[ahmedabuzena]

2 ساعات مضت, شايب said:

 

اخونا العزيز شايب يقول ما نحتاج نغير مصدر الكمبوبكس

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

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

الطريقة الثانية مشابهة للاولى ولكن من خلال الفلترة والغاء الفلترة

الطريقة الثالثة وهي نفس ما اشرت اليه في ردي الاول ولكن المعيار يكون متغير عام

في وحدة نمطية نضع الاتي

Public x As String
Public Function t()
    t = x
End Function

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

If Me.Productid.Column(1) = "***All item***" Then
x = vbNullString
Else
x = Me.Productid.Column(1)
End If
Me.Refresh

وفي معيار الاستعلام للنماذج الثلاثة نضع الامر

Like "*" & Nz(t()) & "*"

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

الملف مرفق

اخونا الشايب🌹

Database51.rar 242.78 kB · 3 downloads

شكرا اخى اشتغل تمام واشكر كل من شارك معك في حل هذة المشكلة بارك الله فيكم جميعا 

[شايب]

2 ساعات مضت, شايب said:

اخونا العزيز شايب يقول ما نحتاج نغير مصدر الكمبوبكس

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

في مشاركة الاخ شايب السابقة اشار الى طريقة استخدام متغير عام للفلترة عن طريق معيار في الاستعلام

وفي هذه المشاركة فلترة النماذج الثلاثة عن طريق الكود

في حدث بعد التحديث للقائمة المنسدلة نضع الامر

Dim ctl As Control
For Each ctl In Me.Form.Controls
If (ctl.ControlType = 112) Then
If Me.Productid.Column(1) = "***All item***" Then
ctl.Form.FilterOn = False
Else
Me.Purchase_Invoice_F.Form.Filter = "[Item_Name] like '" & Me.Productid.Column(1) & "'"
Me.Sales_Invoice_F.Form.Filter = "[Item_Name] like '" & Me.Productid.Column(1) & "'"
Me.stockF.Form.Filter = "[prdc] like '" & Me.Productid.Column(1) & "'"
ctl.Form.FilterOn = True
End If
End If
Next
Me.Refresh

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

نعم ممكن ولكن الاخ شايب يكتفي بما سبق ويترك التجويد للاساتذة والخبراء

الملف مرفق

اخونا شايب 🌹

 

Database61.rar

4 دقائق مضت, ahmedabuzena said:

شكرا اخى اشتغل تمام واشكر كل من شارك معك في حل هذة المشكلة بارك الله فيكم جميعا 

الشكر لله

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

اخونا شايب 🌹

[ahmedabuzena]

44 دقائق مضت, شايب said:

في مشاركة الاخ شايب السابقة اشار الى طريقة استخدام متغير عام للفلترة عن طريق معيار في الاستعلام

وفي هذه المشاركة فلترة النماذج الثلاثة عن طريق الكود

في حدث بعد التحديث للقائمة المنسدلة نضع الامر

Dim ctl As Control
For Each ctl In Me.Form.Controls
If (ctl.ControlType = 112) Then
If Me.Productid.Column(1) = "***All item***" Then
ctl.Form.FilterOn = False
Else
Me.Purchase_Invoice_F.Form.Filter = "[Item_Name] like '" & Me.Productid.Column(1) & "'"
Me.Sales_Invoice_F.Form.Filter = "[Item_Name] like '" & Me.Productid.Column(1) & "'"
Me.stockF.Form.Filter = "[prdc] like '" & Me.Productid.Column(1) & "'"
ctl.Form.FilterOn = True
End If
End If
Next
Me.Refresh

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

نعم ممكن ولكن الاخ شايب يكتفي بما سبق ويترك التجويد للاساتذة والخبراء

الملف مرفق

اخونا شايب 🌹

 

Database61.rar 233.72 kB · 1 download

الشكر لله

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

اخونا شايب 🌹

ربنا يزيدك من علمه وجعله في ميزان حسناتك

[ahmedabuzena]

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

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

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

apidone.rar

[شايب]

24 دقائق مضت, ahmedabuzena said:

لاخ شايب شغال والصنف دة شغال تمام مرفق البرنامج الخاص بي بعد تطبيق المثال الخاص للاخ شايب على برنامجى الصنف هو apidone syrup 

اسعد الله صباحكم

ههههه هذه المشكلة اكتشفتها بالامس وسببها مدخل البيانات وتعمدت تركها لعلك تبحث وتكتشف السبب وقمت بحلها في مرفق السابق مع علمي بانه مثال 😀

لا يوجد خطأ في الكود وهذه المشكلة بسيطة جدا

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

انظر للصورة وفقط اخذف الفراغ قبل الاسم

 

apidone.rar

[ahmedabuzena]

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

اسعد الله صباحكم

ههههه هذه المشكلة اكتشفتها بالامس وسببها مدخل البيانات وتعمدت تركها لعلك تبحث وتكتشف السبب وقمت بحلها في مرفق السابق مع علمي بانه مثال 😀

لا يوجد خطأ في الكود وهذه المشكلة بسيطة جدا

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

انظر للصورة وفقط اخذف الفراغ قبل الاسم

 

apidone.rar 122.4 kB · 2 downloads

تسلم الف شكر تمام اشتغل ربنا يباركلك جزاكم الله خيرا

[شايب]

منذ ساعه, ahmedabuzena said:

تسلم الف شكر تمام اشتغل ربنا يباركلك جزاكم الله خيرا

بالتوفيق لك

احيانا بسبب اخطاء الادخال وقد يكون التعديل اليدوي صعب لوجود العديد من عمليات الادخال  ونرغب بمعالجة المشكلة من خلال الكود

وممكن ذلك من خلال دالة TRIM

TRIM(اسم الحقل)

ويمكن هنا توظيفها في معيار الفلترة

ونكتفي بهذا القدر والله الموفق

اخونا الفاضل  شايب 🌹

[ابوخليل]

36 دقائق مضت, شايب said:

اخونا الفاضل  شايب 🌹

😇

[شايب]

24 دقائق مضت, ابوخليل said:

😇

مش حالك ياعمنا العود

عش رجبا ترى عجبا