اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

مشكلتي في نموذج (مواعيدك )

نموذج يحتوي على خمسة ازرار

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

وهذا النموذج ( عيادة السكري والغدد الصماء ) من جدول المواعيد

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

 

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

ارفقت القاعدة ولتسهيل الدخول 12341234

الرقم السري : 45454545

5903e14b562b3_11.png.442816de35e7351da73b56574757762c.png

نظام متابعة مواعيد مرضى السكر11111111.rar

قام بنشر
7 ساعات مضت, Rawannnna said:

مشكلتي في نموذج (مواعيدك ) نموذج يحتوي على خمسة ازرار

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

::: عليكم السلام

:::لو تم تغير اسماء الحقول واسماء الجداول الى اللغة الانجليزية بيكون افضل :biggrin:

::: في حدث الضغط على زر فتح الفورم ضع الكود التالي مع تغير اسماء الحقول .

Dim a
a = Me.Patientname
DoCmd.OpenForm "DiabeticForm", , , "[Patientname]='" & a & "'"

::: حيث Patientname هو اسم حقل المريض.

::: و Diabeticform هو اسم الفورم المطلوب فتحه على نفس البيانات .... بالتوفيق.

قام بنشر
6 ساعات مضت, Rawannnna said:

السلام عليكم

مشكلتي في نموذج (مواعيدك )

نموذج يحتوي على خمسة ازرار

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

وهذا النموذج ( عيادة السكري والغدد الصماء ) من جدول المواعيد

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

 

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

ارفقت القاعدة ولتسهيل الدخول 12341234

الرقم السري : 45454545

5903e14b562b3_11.png.442816de35e7351da73b56574757762c.png

نظام متابعة مواعيد مرضى السكر11111111.rar

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

جربى بدلا من وضع   المعيار "طبيب العيون"  ادخلى الرقم    2
سيعمل بنجاح :wink2:
لان نوع حقل اسم التخصص رقمى وحضرتك اتعاملتى معاه لنه نصى

 

ان شاء الله ده المطلب الاول وبالنسبة للمطلب الثانى لى عودة

قام بنشر
منذ ساعه, ابا جودى said:

وهذا المرفق يحتوى على التعديلات

 

نظام متابعة مواعيد مرضى السكر2.rar

شكرا أبو جودي على الحل

اسم التخصص رقمي لانه معالج بحث من جدول

الان عملت استعلام خاص لكل عيادة بالمواعيد المسجلة بها

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

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

 

نظام متابعة مواعيد مرضى السكر 88.rar

قام بنشر
2 ساعات مضت, Rawannnna said:

شكرا أبو جودي على الحل

اسم التخصص رقمي لانه معالج بحث من جدول

الان عملت استعلام خاص لكل عيادة بالمواعيد المسجلة بها

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

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

 

نظام متابعة مواعيد مرضى السكر 88.rar

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

نظام متابعة مواعيد مرضى السكر 99.rar

قام بنشر
14 دقائق مضت, ابا جودى said:

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

نظام متابعة مواعيد مرضى السكر 99.rar

 

كل الشكر أبو جودي

بس ممكن اعرف كيف ظهرت الرسالة ( لا يوجد لديك موعد مسجل )

وأين مكان الكود حق الرسالة

 

 

 

قام بنشر (معدل)
17 دقائق مضت, Rawannnna said:

 

كل الشكر أبو جودي

بس ممكن اعرف كيف ظهرت الرسالة ( لا يوجد لديك موعد مسجل )

وأين مكان الكود حق الرسالة

 

 

 

اها طبعا طبعا

الكود موجود فى كل نموذج من النماذج اللى تخص تخصصات العيادات
-مواعيد الجلدية
-مواعيد السكرى والغدد الصماء
-مواعيد العيون
-مواعيد الكلى

 

الكود تم وضعه فى الحدث عند فتح النموذج

الكود
 

If Me.RecordsetClone.RecordCount = 0 Then
    MsgBox "نص الرسالة ", vbInformation, " عنوان الرسالة "
    DoCmd.Close
Else
End If

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

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

تم تعديل بواسطه ابا جودى
قام بنشر
2 دقائق مضت, sandanet said:

استاذي العزيز ممكن تعطينا نسخة تفتح على 2007 ؟

اهلا اهلا اخى الحبيب استاذ @sandanet
ان المرفق بتنسيق accdb
يعنى مفترض انه يفتح على اكسس 2007

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

13 دقائق مضت, sandanet said:

استاذي العزيز ممكن تعطينا نسخة تفتح على 2007 ؟

جرب كده المرفق ده يا استاذ @sandanet :fff::fff:

نظام متابعة مواعيد مرضى السكر mdb .rar

قام بنشر (معدل)

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

 

صيغة الملف accdb الاولى التي لم تفتح معي !! هل النسخة كانت معمولة على  اوفيس 2010 ام 2007؟

Untitled.png

تم تعديل بواسطه sandanet
قام بنشر
34 دقائق مضت, ابا جودى said:

اها طبعا طبعا

الكود موجود فى كل نموذج من النماذج اللى تخص تخصصات العيادات
-مواعيد الجلدية
-مواعيد السكرى والغدد الصماء
-مواعيد العيون
-مواعيد الكلى

 

الكود تم وضعه فى الحدث عند فتح النموذج

الكود
 


If Me.RecordsetClone.RecordCount = 0 Then
    MsgBox "نص الرسالة ", vbInformation, " عنوان الرسالة "
    DoCmd.Close
Else
End If

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

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

 

فهمت جزاك الله خير

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

يقفل الفورم كله , كيف اعدل الكود بحيث يقفل الرسالة بس مايقفل النموذج الأساسي

مسحت من الكود هذا السطر ( DoCmd.Close )

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

ارفقت القاعدة بعد التعديلات الأخيرة

 

نظام متابعة مواعيد مرضى السكر.rar

قام بنشر
10 دقائق مضت, Rawannnna said:

 

فهمت جزاك الله خير

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

يقفل الفورم كله , كيف اعدل الكود بحيث يقفل الرسالة بس مايقفل النموذج الأساسي

مسحت من الكود هذا السطر ( DoCmd.Close )

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

ارفقت القاعدة بعد التعديلات الأخيرة

 

نظام متابعة مواعيد مرضى السكر.rar

ضع مكان الامر docmd.close ضع docmd.cancelevent

اخي @ابا جودى هنالك ماكروات مضمنة ارجو الانتباه لها عند التحويل .. انظر الصورة

Untitled.png

قام بنشر

السلام عليكم:smile:

 

أخي ابا جودي ، الكود التالي سيعطيك النتيجه الصحيحه ، اذا عدد السجلات صفر :

59 دقائق مضت, ابا جودى said:

If Me.RecordsetClone.RecordCount = 0 Then

 

ولكن اذا اردت حساب عدد السجلات ، فلن يعطيك النتيجة الصحيحة ، وذلك ان نتيجة حساب عدد السجلات RecordCount يكون قبل ان يكتمل جلب جميع السجلات ،

لذلك يجب عليك ان تأمر البرنامج للذهاب لآخر سجل ، وعليه سيعرف البرنامج عدد السجلات ، هكذا:

Me.RecordsetClone.movelast
Me.RecordsetClone.movefirst
For i = 1 to Me.RecordsetClone.RecordCount

 

جعفر

  • Like 1
قام بنشر
7 دقائق مضت, jjafferr said:

السلام عليكم:smile:

 

أخي ابا جودي ، الكود التالي سيعطيك النتيجه الصحيحه ، اذا عدد السجلات صفر :

 

ولكن اذا اردت حساب عدد السجلات ، فلن يعطيك النتيجة الصحيحة ، وذلك ان نتيجة حساب عدد السجلات RecordCount يكون قبل ان يكتمل جلب جميع السجلات ،

لذلك يجب عليك ان تأمر البرنامج للذهاب لآخر سجل ، وعليه سيعرف البرنامج عدد السجلات ، هكذا:


Me.RecordsetClone.movelast
Me.RecordsetClone.movefirst
For i = 1 to Me.RecordsetClone.RecordCount

 

جعفر

جزاكم الله خيرا استاذى القدير ومعلمى الجليل ووالدى الحبيب استاذ @jjafferr

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

 

39 دقائق مضت, Rawannnna said:

 

فهمت جزاك الله خير

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

يقفل الفورم كله , كيف اعدل الكود بحيث يقفل الرسالة بس مايقفل النموذج الأساسي

مسحت من الكود هذا السطر ( DoCmd.Close )

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

ارفقت القاعدة بعد التعديلات الأخيرة

 

نظام متابعة مواعيد مرضى السكر.rar

اختنا الكريمة @Rawannnna

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

DoCmd.Close acForm, "مواعيدك"


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

هناك حلان 
الاول ازالة هذا السطر من كل ازرار ااوامر فى نموذج المواعيد فيظل مفتوحا دائما


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

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


 

نظام متابعة مواعيد مرضى السكر .rar

43 دقائق مضت, sandanet said:

ضع مكان الامر docmd.close ضع docmd.cancelevent

اخي @ابا جودى هنالك ماكروات مضمنة ارجو الانتباه لها عند التحويل .. انظر الصورة

Untitled.png

انا مش عارف ايه المشكله عند حضرتك بصراحة انا شغال عندى تمام قبل التحويل وبعد التحويل :rol:

  • Like 1
قام بنشر (معدل)
22 دقائق مضت, ابا جودى said:

جزاكم الله خيرا استاذى القدير ومعلمى الجليل ووالدى الحبيب استاذ @jjafferr

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

 

اختنا الكريمة @Rawannnna

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


DoCmd.Close acForm, "مواعيدك"


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

هناك حلان 
الاول ازالة هذا السطر من كل ازرار ااوامر فى نموذج المواعيد فيظل مفتوحا دائما


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

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


 

نظام متابعة مواعيد مرضى السكر .rar

هاذي اجابة  2 × 1  :biggrin: مرفقك الاخير اشتغل تمام

تم تعديل بواسطه sandanet
  • Like 1
قام بنشر
الان, sandanet said:

اقصد حليت مشكلتين في ردك الاخير .. تحياتي

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

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

قام بنشر

اعتقد انه بالرغم من تشابه الصيغ aacdb في اوفس 2007 فما فوق لكن لايمكن فتح قاعدة محفوظة على اكسس 2010 من اكسس 2007 وهذا ماحصل معي في القاعدة الاولى

 

تحياتي

قام بنشر

@ابا جودى @sandanet @jjafferr 

اشكركم ع التجاوب السريع مع الاعضاء  

الله يعطيكم الف  عافية على جهودكم 

جاري تجربة الملف 

2 ساعات مضت, ابا جودى said:

طيب ثوانى اشوف وارجع لحضرتك تانى :rol:

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

ايوا 

قام بنشر
6 دقائق مضت, Rawannnna said:

@ابا جودى @sandanet @jjafferr 

اشكركم ع التجاوب السريع مع الاعضاء  

الله يعطيكم الف  عافية على جهودكم 

جاري تجربة الملف 

ايوا 

اختنا الكريمة @Rawannnna

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

DoCmd.Close acForm, "مواعيدك"


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

هناك حلان 
الاول ازالة هذا السطر من كل ازرار ااوامر فى نموذج المواعيد فيظل مفتوحا دائما


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

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


من فضلك جربى المرفق هذا ووافينا بالنتيجه

نظام متابعة مواعيد مرضى السكر .rar

قام بنشر
5 ساعات مضت, ابا جودى said:

اختنا الكريمة @Rawannnna

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


DoCmd.Close acForm, "مواعيدك"


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

هناك حلان 
الاول ازالة هذا السطر من كل ازرار ااوامر فى نموذج المواعيد فيظل مفتوحا دائما


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

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


من فضلك جربى المرفق هذا ووافينا بالنتيجه

نظام متابعة مواعيد مرضى السكر .rar

صار تمام

بعد حذف كود اغلاق النموذج

شكككككككككرا

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information