اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تعديل كود فتح وغلق عمود من نوع no , yas


إذهب إلى أفضل إجابة Solved by سامي الحداد,

الردود الموصى بها

السلام عليكم

قد حاولت واتوصلت لكود يفتح السجلات ولكن للاسف لا يفتح الا سجل واحد فقط

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

ارسال.rar

رابط هذا التعليق
شارك

وعليكم السلام اخي حمدي

اليك الكود التالي جرب ووافنا بالنتيجة

	DoCmd.SetWarnings False

    If Me.SELCTALL = True Then
        DoCmd.RunSQL "UPDATE email SET  selectrow = True;", dbFailOnError
    ElseIf Me.SELCTALL = False Then
        DoCmd.RunSQL "UPDATE email SET selectrow = False;", dbFailOnError
    End If
    Me.Requery

    DoCmd.SetWarnings True

بالتوفيق

  • Like 1
رابط هذا التعليق
شارك

6 ساعات مضت, سامي الحداد said:

وعليكم السلام اخي حمدي

اليك الكود التالي جرب ووافنا بالنتيجة

	DoCmd.SetWarnings False

    If Me.SELCTALL = True Then
        DoCmd.RunSQL "UPDATE email SET  selectrow = True;", dbFailOnError
    ElseIf Me.SELCTALL = False Then
        DoCmd.RunSQL "UPDATE email SET selectrow = False;", dbFailOnError
    End If
    Me.Requery

    DoCmd.SetWarnings True

بالتوفيق

السلام عليكم

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

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

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

Private Sub SELCTALL_AfterUpdate()   
  DoCmd.SetWarnings True
                        DoCmd.RunSQL "UPDATE email SET[SendStuts]=Null , SelectRow ='R' "
                        DoCmd.Requery
                DoCmd.SetWarnings False

رابط هذا التعليق
شارك

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

ارسال_02.rar

تم تعديل بواسطه AbuuAhmed
رابط هذا التعليق
شارك

1 ساعه مضت, AbuuAhmed said:

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

ارسال_02.rar 23.07 kB · 3 downloads

السلام عليكم

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

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

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

فهو يفتح السجلات ولكن لم يقوم بغلقها وهذا هو الكود ولك تحياتى

Private Sub SELCTALL_AfterUpdate()
  DoCmd.SetWarnings True
                        DoCmd.RunSQL "UPDATE email SET[SendStuts]=Null , SelectRow ='R' "
                        DoCmd.Requery
                DoCmd.SetWarnings False
End Sub 

رابط هذا التعليق
شارك

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

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

ارسال_03.rar 24.12 kB · 4 downloads

الغالى على القلب اشكرك على اصرارك على التواصل لحل ولكن للاسف مازالت المشكلة موجودة وتتوقف الوحدة النمطية عند هذا السطر   StudentEmaile = rs.Fields("email_c")

رابط هذا التعليق
شارك

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

ارسال_04.rar

  • Like 1
رابط هذا التعليق
شارك

37 دقائق مضت, AbuuAhmed said:

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

ارسال_04.rar 26.36 kB · 0 downloads

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

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

رابط هذا التعليق
شارك

في 28‏/11‏/2022 at 22:42, حمدى الظابط said:

تعديل كود فتح وغلق عمود من نوع no , yas
مرفق نموذج Form1 اريد عند الضغط بصح يفتح كل علامات الخطاء عمود (تحديد )

أخي إذا هذه المشكلة حسب العنوان والوصف "حلت" فاخبرنا واختر أفضل إجابة ، ويمكنكم فتح موضوع آخر لأي مشكلة ليس لها علاقة بالعنوان.

رابط هذا التعليق
شارك

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

أخي إذا هذه المشكلة حسب العنوان والوصف "حلت" فاخبرنا واختر أفضل إجابة ، ويمكنكم فتح موضوع آخر لأي مشكلة ليس لها علاقة بالعنوان.

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

رابط هذا التعليق
شارك

4 ساعات مضت, حمدى الظابط said:

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

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

 

16 ساعات مضت, AbuuAhmed said:

نا تلخبطت 🙂
هل:
Yes = T
No = R

لم تجاوب على هذا السؤال ولم تخبرنا أيه يعني T وأيه يعني R اللي فهمته T يعني تم الإرسال.
أنت بطريقتك تنسب لنا فشل من غير مفشل وتحرجنا أمام الناس، يا أخي أولا اعترف لنا رجاءً 🙂 أن ما قمنا به تم بشكل صحيح ثم ابحث عن حل للمشلكة الأخرى. 

  • Like 1
رابط هذا التعليق
شارك

17 ساعات مضت, AbuuAhmed said:

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

 

لم تجاوب على هذا السؤال ولم تخبرنا أيه يعني T وأيه يعني R اللي فهمته T يعني تم الإرسال.
أنت بطريقتك تنسب لنا فشل من غير مفشل وتحرجنا أمام الناس، يا أخي أولا اعترف لنا رجاءً 🙂 أن ما قمنا به تم بشكل صحيح ثم ابحث عن حل للمشلكة الأخرى. 

السلام عليكم

استاذى الجليل AbuuAhmed

حرفT يعنى غلق السجل وحرف R يفتح السجل وهذا الحقل موجود يالجدول باسم  SelectRow واخد قيمة افتراضية لكل السجلات حرف T

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

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

Private Sub SELCTALL_AfterUpdate()
  DoCmd.SetWarnings True
                        DoCmd.RunSQL "UPDATE email SET[SendStuts]=Null , SelectRow ='R' "
                        DoCmd.Requery
                DoCmd.SetWarnings False
End Sub 

رابط هذا التعليق
شارك

السلام عليكم اخي الكريم حمدي

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

تفبل تحياتي

If Me.SELCTALL = True Then

        DoCmd.SetWarnings True
        DoCmd.RunSQL "UPDATE email SET[selcted]=True , SelectRow ='R' ", dbFailOnError
        DoCmd.RunSQL "UPDATE email SET[SendStuts]=True , SelectRow ='R' ", dbFailOnError
        
    ElseIf Me.SELCTALL = False Then
    
        DoCmd.RunSQL "UPDATE email SET[selcted]=Null , SelectRow ='T' ", dbFailOnError
        DoCmd.RunSQL "UPDATE email SET[SendStuts]=Null , SelectRow ='T' ", dbFailOnError
End If
        DoCmd.SetWarnings False
        DoCmd.Requery
   If Me.Dirty Then Me.Dirty = False

 

  • Thanks 1
رابط هذا التعليق
شارك

3 ساعات مضت, سامي الحداد said:

السلام عليكم اخي الكريم حمدي

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

تفبل تحياتي

If Me.SELCTALL = True Then

        DoCmd.SetWarnings True
        DoCmd.RunSQL "UPDATE email SET[selcted]=True , SelectRow ='R' ", dbFailOnError
        DoCmd.RunSQL "UPDATE email SET[SendStuts]=True , SelectRow ='R' ", dbFailOnError
        
    ElseIf Me.SELCTALL = False Then
    
        DoCmd.RunSQL "UPDATE email SET[selcted]=Null , SelectRow ='T' ", dbFailOnError
        DoCmd.RunSQL "UPDATE email SET[SendStuts]=Null , SelectRow ='T' ", dbFailOnError
End If
        DoCmd.SetWarnings False
        DoCmd.Requery
   If Me.Dirty Then Me.Dirty = False

 

السلام عليكم العزيز الغالى استاذ سامى الحداد

تم التجربة على الكود الخاص بك ويعمل بكفاءة 100% ولكنه يضع فى حقل حالة الارسال رقم -1

وعند تم الارسال يتم حذف -1 ويضع نم الارسال

والكود المرفق بعد التعديل مؤخوذ من الكود الخاص بك يلغى -1 فى حقل حالة الارسال

والاتنين يعملو بكفاءة عالية وممتازة الاول يضع -1 فى حقل حالة الارسال

والثانى يزيل -1 من حقل حالة الارسال والاثنين يعملو بكفاءة

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

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

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

If Me.SELCTALL = True Then

        DoCmd.SetWarnings True
        DoCmd.RunSQL "UPDATE email SET[selcted]=True , SelectRow ='R' ", dbFailOnError
        
    ElseIf Me.SELCTALL = False Then
    
        DoCmd.RunSQL "UPDATE email SET[selcted]=Null , SelectRow ='T' ", dbFailOnError
       
End If
        DoCmd.SetWarnings False
        DoCmd.Requery
   If Me.Dirty Then Me.Dirty = False
تم تعديل بواسطه حمدى الظابط
رابط هذا التعليق
شارك

  • أفضل إجابة

وعليكم السلام اخي حمدي

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

3 ساعات مضت, حمدى الظابط said:

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

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

لا تنسى إغلاق هذا الموضوع.

تحياتي

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

11 ساعات مضت, AbuuAhmed said:

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

استاذي الجليل أبو أحمد حفظك الرحمن

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

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

في 30‏/11‏/2022 at 05:31, AbuuAhmed said:

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

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

على العموم استاذي الحبيب انا اسف ان كنت قد أسات في اي شيئ بحقكم. اكرر اعتذاري

تحياتي لشخصكم الكريم ودمتم في رعاية الله  

  • Like 1
رابط هذا التعليق
شارك

حياك الله أخي @سامي الحداد ، ملاحظتي جديدة قديمة وليست مقتصرة على هذا الموضوع، بس جات في رأسك لأنك الوحيد المشارك هنا 🙂 ، آسف لإزعاجك ولكن هذه حقيقة لا يمكن اخفاءها.

رابط هذا التعليق
شارك

في 30‏/11‏/2022 at 00:31, AbuuAhmed said:

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

ارسال_04.rar 26.36 kB · 3 downloads

القاضل استاذ ابو احمد

اولا لك كل الشكر والاحترام على مجهودك واصرارك على تقديم افضل الحلول

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

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

رابعا وهذا هو الاهم

اذا نظرت لاول مشاركة فى الموضوع كانت باسم الاستاذ سامى الحداد

ولم يوفق فى حل المشكلة ولم يزعل او يضابق

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

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

وارجوا عدم الزعل من سوء تفاهم غير مقصود

 

في 1‏/12‏/2022 at 08:32, حمدى الظابط said:

السلام عليكم

استاذى الجليل AbuuAhmed

حرفT يعنى غلق السجل وحرف R يفتح السجل وهذا الحقل موجود يالجدول باسم  SelectRow واخد قيمة افتراضية لكل السجلات حرف T

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

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

Private Sub SELCTALL_AfterUpdate()
  DoCmd.SetWarnings True
                        DoCmd.RunSQL "UPDATE email SET[SendStuts]=Null , SelectRow ='R' "
                        DoCmd.Requery
                DoCmd.SetWarnings False
End Sub 

 

تم تعديل بواسطه حمدى الظابط
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information