Rawannnna قام بنشر مايو 1, 2017 قام بنشر مايو 1, 2017 (معدل) السلام عليكم عندي نموذج لادخال تحاليل السكر من جدول ( تحاليل السكر ) كل مريض يدخل عدة بيانات فاليوم عن تحاليل السكر في هذا النموذج اريد كود لادخال البيانات لنفس رقم المريض ___ هنا عملت فورم بشكل مباشر وإدخال مباشر بدون اكواد ولكن اريد كود الادخال للنموذج فالاعلى ننظام متابعة مواعيد مرضى السكر.rar ننظام متابعة مواعيد مرضى السكر.rar تم تعديل مايو 1, 2017 بواسطه Rawannnna
عبدالله كاظم قام بنشر مايو 2, 2017 قام بنشر مايو 2, 2017 بعد كود فتح نموذج "سكرك" نضع الكود التالي Forms![سكرك]![رقم ملف المريض] = Me.رقم_ملف_المريض بحيث يصير الكود بالشكل التالي DoCmd.OpenForm "سكرك", , , , NewRecord Forms![سكرك]![رقم ملف المريض] = Me.رقم_ملف_المريض اتمنى يكون هذا هو المطلوب 2
ابو جودي قام بنشر مايو 2, 2017 قام بنشر مايو 2, 2017 23 ساعات مضت, Rawannnna said: السلام عليكم عندي نموذج لادخال تحاليل السكر من جدول ( تحاليل السكر ) كل مريض يدخل عدة بيانات فاليوم عن تحاليل السكر في هذا النموذج اريد كود لادخال البيانات لنفس رقم المريض ___ هنا عملت فورم بشكل مباشر وإدخال مباشر بدون اكواد ولكن اريد كود الادخال للنموذج فالاعلى ننظام متابعة مواعيد مرضى السكر.rar ننظام متابعة مواعيد مرضى السكر.rar السلام عليكم ورحمة الله تعالى وبركاته اختنا الكريمة @Rawannnna ان شاء الله تعالى تجدى فى هذا التعديل مرادك كما تريدين واكثر قمت ببعض التعديلات اولا اضافة حقل تاريخ فى جدول تحاليل السكر قولى ليــــه هأقول لك ليه انا علشان سببين الاول : يعنى مفروض يكون عندى خلفية بمستويات السكر فى تواريخ سابقة لمقارنتها بتواريخ حدبثه للتسهيل متابعة ومراقبة المستوى ☺ ثانيا والاهم برمجيا : حتى لا يتكرر ادخل بيانات فى وقت واحد بقرائة واحده او حتى بقراءه مختلفة يعنى مثلا مش ينفع المريض محمد عصام فى تاريخ 2/5/2017 يكون مستوى السكر 300 قبل الافطار ويتم تكرار هذا السجل مرة اخرى وكذلك لا يصح ان يكون المريض محمد عصام فى تاريخ 2/5/2017 يكون مستوى السكر 450 قبل الافطار اى تسجيل نتيجه مختلفة بالخطأ فى وقت غير وقت العينه امممممم معلش انا اسف لانى مستعجل حبتين ولا يسمح وقتى الحالى بالنقاش والحوار والمتابعة الجيدة انا عدلت من نفسي بما رايت فيه الصالح قد اكون مخطئ وقد اكون مصيب فى افكارى فإن أصبت فبفضل من الله سبحانه وتعالى وان اخطأت فمن نفسى فتقبلوا خطأى بحلم كذلك عذرا قمت بتعديل المسميات للعناصر على النموذج لتسهيل التكويد بصراحه انا مش باعرف اكود عربى اممممممم ايضا قمت بمسح مصدر بيانات النموذج وجعلته غير منضم واضفت استعلام جديد لاضافة القيم من النموذج الى الجدول وقت الضغط على زر ادخال البيانات واخيرا وليس اخرا اسال الله تعالى ان يهدينا الى ما فيه الخير والفلاح والصلاح والرشاد واسالكم الدعاء لوالدتى بظهر الغيب فنحن فى امس لحاجة لدعوات صالحات بظهر الغيب نظام متابعة مواعيد مرضى السكر_UP.rar الاستاذ @عبدالله كاظم كل لاشكر والتقدير وجعلكم الله سباقون الى الخيرات دائما وابدا اعتذر منكم وكلى خجل فوالله لم ارى والاحظ ردكم اعتذر منك اخى الكريم 4
Rawannnna قام بنشر مايو 3, 2017 الكاتب قام بنشر مايو 3, 2017 13 ساعات مضت, عبدالله كاظم said: بعد كود فتح نموذج "سكرك" نضع الكود التالي Forms![سكرك]![رقم ملف المريض] = Me.رقم_ملف_المريض بحيث يصير الكود بالشكل التالي DoCmd.OpenForm "سكرك", , , , NewRecord Forms![سكرك]![رقم ملف المريض] = Me.رقم_ملف_المريض اتمنى يكون هذا هو المطلوب نفس المطلوب شكرا جززززززيلا
Rawannnna قام بنشر مايو 3, 2017 الكاتب قام بنشر مايو 3, 2017 (معدل) 10 ساعات مضت, ابا جودى said: السلام عليكم ورحمة الله تعالى وبركاته اختنا الكريمة @Rawannnna ان شاء الله تعالى تجدى فى هذا التعديل مرادك كما تريدين واكثر قمت ببعض التعديلات اولا اضافة حقل تاريخ فى جدول تحاليل السكر قولى ليــــه هأقول لك ليه انا علشان سببين الاول : يعنى مفروض يكون عندى خلفية بمستويات السكر فى تواريخ سابقة لمقارنتها بتواريخ حدبثه للتسهيل متابعة ومراقبة المستوى ☺ ثانيا والاهم برمجيا : حتى لا يتكرر ادخل بيانات فى وقت واحد بقرائة واحده او حتى بقراءه مختلفة يعنى مثلا مش ينفع المريض محمد عصام فى تاريخ 2/5/2017 يكون مستوى السكر 300 قبل الافطار ويتم تكرار هذا السجل مرة اخرى وكذلك لا يصح ان يكون المريض محمد عصام فى تاريخ 2/5/2017 يكون مستوى السكر 450 قبل الافطار اى تسجيل نتيجه مختلفة بالخطأ فى وقت غير وقت العينه امممممم معلش انا اسف لانى مستعجل حبتين ولا يسمح وقتى الحالى بالنقاش والحوار والمتابعة الجيدة انا عدلت من نفسي بما رايت فيه الصالح قد اكون مخطئ وقد اكون مصيب فى افكارى فإن أصبت فبفضل من الله سبحانه وتعالى وان اخطأت فمن نفسى فتقبلوا خطأى بحلم كذلك عذرا قمت بتعديل المسميات للعناصر على النموذج لتسهيل التكويد بصراحه انا مش باعرف اكود عربى اممممممم ايضا قمت بمسح مصدر بيانات النموذج وجعلته غير منضم واضفت استعلام جديد لاضافة القيم من النموذج الى الجدول وقت الضغط على زر ادخال البيانات واخيرا وليس اخرا اسال الله تعالى ان يهدينا الى ما فيه الخير والفلاح والصلاح والرشاد واسالكم الدعاء لوالدتى بظهر الغيب فنحن فى امس لحاجة لدعوات صالحات بظهر الغيب نظام متابعة مواعيد مرضى السكر_UP.rar الاستاذ @عبدالله كاظم كل لاشكر والتقدير وجعلكم الله سباقون الى الخيرات دائما وابدا اعتذر منكم وكلى خجل فوالله لم ارى والاحظ ردكم اعتذر منك اخى الكريم كلامك صحيح ومقنع أبو جودي وأسال الله ان يشفي والدتك .. عندي مللاحظة صغيرة .. أيضا اريد رسالة تظهر للمريض عندما يدخل بياناته ويضغط على ادخال ( تم تسجيل نتيجة التحليل ) اين اضع الرسالة تم تعديل مايو 3, 2017 بواسطه Rawannnna
ابو جودي قام بنشر مايو 3, 2017 قام بنشر مايو 3, 2017 4 ساعات مضت, Rawannnna said: كلامك صحيح ومقنع أبو جودي وأسال الله ان يشفي والدتك .. عندي مللاحظة صغيرة .. أيضا اريد رسالة تظهر للمريض عندما يدخل بياناته ويضغط على ادخال ( تم تسجيل نتيجة التحليل ) اين اضع الرسالة اتفضلى الملف بعد التعديل باضافة الرسالة نظام متابعة مواعيد مرضى السكر_UP.rar يتم وضع الرسالة فى نموذج سكرك على زر الامر أمر21 "ادخال" فيصبح الكود بهذا الشكل If IsNull([MS]) Then MsgBox "من فضلك ادخل مستوى السكر" MS.SetFocus ElseIf IsNull([TS]) Then MsgBox "من فضلك حدد وقت اخذ العينة" TS.SetFocus Else DoCmd.SetWarnings False DoCmd.OpenQuery "سكرك" DoCmd.SetWarnings True 'لمسح قيم عناصر التحكم على النموذج بعد ادخال القيم MS = "" TS = "" MsgBox "تم تسجيل نتيجة التحليل" Me.Requery End If 3
Rawannnna قام بنشر مايو 3, 2017 الكاتب قام بنشر مايو 3, 2017 46 دقائق مضت, ابا جودى said: اتفضلى الملف بعد التعديل باضافة الرسالة نظام متابعة مواعيد مرضى السكر_UP.rar يتم وضع الرسالة فى نموذج سكرك على زر الامر أمر21 "ادخال" فيصبح الكود بهذا الشكل If IsNull([MS]) Then MsgBox "من فضلك ادخل مستوى السكر" MS.SetFocus ElseIf IsNull([TS]) Then MsgBox "من فضلك حدد وقت اخذ العينة" TS.SetFocus Else DoCmd.SetWarnings False DoCmd.OpenQuery "سكرك" DoCmd.SetWarnings True 'لمسح قيم عناصر التحكم على النموذج بعد ادخال القيم MS = "" TS = "" MsgBox "تم تسجيل نتيجة التحليل" Me.Requery End If كل الشكر والتقددددددير أبا جودي 1
ابو جودي قام بنشر مايو 3, 2017 قام بنشر مايو 3, 2017 3 ساعات مضت, Rawannnna said: كل الشكر والتقددددددير أبا جودي الشكر لله سبحانه وتعالى اختنا الكريمه الحمد لله تعالى الذى تتم بنعمته الصالحات 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.