kingskull

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

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

UPDATE Base SET Base.ysno = true WHERE (((Base.[نوع الموافقة])=[Forms]![Base]![مربع_تحرير_وسرد110] AND (Base.[حالة الدارس])=[Forms]![Base]![مربع_تحرير_وسرد115]))

Scholars_New.rar

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

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

الحالة الاولى 

اذا كلا المربيعين يحملان القيمة "الكل" تظهر جميع السجلات واذا اخترت تحديد يتم تحديد كل السجلات هذه تم عملها بنجاح 

الحالة الثانية 

اذا المربع الاول يحمل قيمة و المربع الثاني يحمل قيمه اخرى فان السجلات يتم فرزها بناءً على القيمتين بنجاح 

مثال المربع الاول يتم اختيار "إبتعاث" والثاني "مبتعث" فان السجلات يتم فرزها بدون مشكلة 

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

انظر الصورة

الحالة الثالثة احدى المربعين يحمل القيمة "الكل" و القيمة الثانية اي قيمة أخرى

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

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

والشكر موفور لكم جميعا 

Scholars_New.rar

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

السلام عليكم

مرحبا اخي الكريم

جرب التالي

    If [Forms]![FormName]![FieldName] = "محمد" _
    Or [Forms]![FormName]![FieldName] = "خالد" _
    Or [Forms]![FormName]![FieldName] = "علي" Then

تحياتي

وفقك الله ابو عبدالله ممتاز جدا اسعدك الله

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

انا عرفت اضيف قيمه واحده ولكن عدت قيم لا اعرف الصيغة مثال 

[forms]![formname]![fieldname]= "محمد"

اريد مع اسم محمد مثلا عدت اسماء كيف الصيغه هل هي هكذا ؟

[forms]![formname]![fieldname]= "محمد, خالد,علي"

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

6 دقائق مضت, د.كاف يار said:

تفضل طلبك اخي الكريم مع ايقاف رسائل التنبيه

تحديد الجميع بالماكرو.accdb 1.11 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 تنزيلات

بيض الله وجهك يالغالي والاخوان جميعا

با اختصر السالفه واعذروني 🙏 عندي نموذج به سجل مستمر واريد فقط ان يتم اختيار تحديد السجلات بعد التصفيه حسب مربع تحرير وسرد طبعا كما ذكر استاذي ازهر موجود مربع التحرير 

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

وهذا الكود المستخدم 

Private Sub cmdMark_Click()
DoCmd.SetWarnings False
If [Forms]![Base]![مربع_تحرير_وسرد110] = "إيفاد" & "إبتعاث" & "إجازة دراسية" & "موافقة مسائية" & "موافقة نهاية الأسبوع" & "دراسة عن بعد" Then
DoCmd.ApplyFilter "", "([Base]![نوع الموافقة] = [Forms]![Base]![مربع_تحرير_وسرد110]"
 DoCmd.RunSQL "UPDATE Base SET Type.ysno = true"
 DoCmd.RunSQL "UPDATE Base SET Base.ysno = false"
 DoCmd.ShowAllRecords
ElseIf [Forms]![Base]![مربع_تحرير_وسرد110] = "الكل" Then
DoCmd.RunSQL "UPDATE Base SET Base.ysno = true"
Else
 End If
DoCmd.SetWarnings True
End Sub

Scholars.rar

4 ساعات مضت, الفلاحجى said:

UPDATE tblYesNo SET tblYesNo.[YesNo] = -1;

كيف اجعل الماكرو يشغل هذا الكود لا اريد وضعه كـ vba

وفقك الله اجرب واشوف يالغالي

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

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

استخدمت خيار SetproPerty  واعطيت القيمة -1 لكن يحدد سجل واحد فقط 

مع خالص التقدير 

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

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

اسعد الله اوقاتكم بالمسرات 

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

لكن عند فرز البيانات او اضافة سجل يتم حذف الحقل "رقم" من الجدول وهو مضاف في الفهرسه تصاعديا ولا يمكن اعادته حيث يظهر الخطأ تم تعريف حقول كثيره Too many fields are defined 

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

Scholars.rar

تماما كما هو مطلوب بارك الله فيك وفي عملك ام عبدالله

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

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

لدي ورقة عمل بها تقريبا 16 عمود بها العمود الاول مثلا رقم الموظف والعمود الاخير نسخته من ورقة اخرى به كذلك رقم الموظف

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

مثلا الرقم 1122 في العمود الاول يقع في الصف الخامس ومثله 1122 في العمود الاخير يقع في الصف الثامن

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

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

المثال مرفق ايها السادة

مثال.zip

اخي الكريم

جرب هذا :

Me![text27] = DSum("[ertbat_last1]", "all", "[b_no]='" & [b_no] & "'" & " and [yes] ='" & "نعم" & "'")

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

ايها الاخوة ستحل مشكلتي لو تم تصحيح الخطأ في هذا الكود

Me![text27] = DSum("[ertbat_last1]", "all", _

	"[yes] = 'نعم'" And _

	 "[b_no] = & Me.b_no & '")

Me![text27] = DSum("[ertbat_last1]", "all", _

	"[yes] = 'نعم'")

Me![text27] = DSum("[ertbat_last1]", "all", "[b_no]='" & Me.b_no & "'")

اريد كلاهما مع بعض في كود و احد

اخوي

الاستعلامات تحقق لك اكثر مما تتخيل فحاول توظيفها في استخراج المجاميع والاحصاءات

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

السلام عليكم

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

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

  stDocName = Me.مربع_تحرير_وسرد22

	DoCmd.OpenForm stDocName

طبعا تغير مربع_تحرير_وسرد22 باسم مربع التحرير والسرد الذي تستخدمه

وهذا مثال مرفق

combo.zip

Me![text1] = DSum("[field1]", "tab", "[yn]='" & Me.yn & "'")

Private Sub أمر17_Click()

If yn = "نعم" Then

Me![text1] = DSum("[field1]", "tab", "[yn]='" & Me.yn & "'")

Else

  Me.text1 = 0

If yn = "لا" Then

Me![text2] = DSum("[field2]", "tab", "[yn]='" & Me.yn & "'")

Else[/size]

[size=5]  Me.text2 = 0[/size]

[size=5]End If

End If

Me.Refresh

Me.Requery

End Sub

test.zip

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

ان كان ما ارفقته يفي بحاجتك فلا بأس ولكن فضولي ما زال حول بنية الجدول ، فاذا زادت مرات الايداع (ريال1 وهللة1 , ......،......) عن الحد او العدد الوارد بالجدول فماذا تفعل؟؟؟

لماذا لا يكون الامر غير ذلك ببنية اخرى ، وتستخدم الارقام بشكلها الرياضي الطبيعي ، وتفصل الهللات عن الريالات ضمن النموذج والتقرير (شكلا) ؟؟؟

وذلك حفاظا على قوة وصحة قاعدة بياناتك !!!

...........

نعم اللهم لك الحمد

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

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

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

الشخص الذي قام بعمل البرنامج غير متواجد حاليا و قرار فصل الهلل جاء في فترة غياب المختص فقمت بحسب معرفتي البسيطة بمحاولة التعديل ووصلت في تعديل البرنامج الى90% لكن اشكلت علي طريقة زيادة ريال عندما تبلغ مجاميع الهلل اكثر من 99

اتمنى اني وضحت الموضوع ولك خالص التحية والتقدير

أخي.... (عذرا لم أفهم إسمك)

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

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

بإنتذار ردكم

........

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

الامر الاخر سبب فصل الهللات عن الريالات بسب اعتراض احد المسؤولين في احد الوزارات على التقرير المطبوع بشكله العادي اي يريد ان تُفصل الهلالات والريالات في التنسيق حتى يسهل قراءتها

وطبعا الملف المرفق يتبع نفس الالية للبرنامج الذي اري ان اعد عليه

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

ايداع_الايرادات _الحكومية_غرام .rar

example.zip

أخي الكريم حليت المشكلة والفضل لله ثم لك

اضفت استعلام آخر وربطته بالتقرير الثاني

والإستعلام الاول ارجعت عامل التصفية الى لا و نعم وربطته بالتقرير الاول

اشكرك وتعبناك معنا

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

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

الملف بعد التعديل وبه مشكلة التكرار

راصد.zip

تفضل اخوي

حسب طلبك

ولو انه لايقضل كتابه الحاله في كل مره يتم فيها انشاء سجل جديد لحتمال الخطاء الاملائي

الحل السليم هوانشاء جدول للحالات يتكون من مفتاح اساسي رقم و حقل للحاله من نوع نص

ثم اكتب جميع الحالات الموجوده فيه

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

وبذلك يستطيع المستخدم اختيار الحاله بدلا من كتابتها

أسأل الله بواسع منه وفضله ان يكتب اجرك ويوفقك دنيا وآخره

بيض الله وجهك وانار الله بصيرتك ورحم الله والديك وحفظك الله في مالك واهلك وولدك

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