mrnooo2000

حاول تضع مثال لكى يساعدك الاخوة

ارجو توضيح ما تقصده

اذا ماذا سيعرض النموذج اذا لم يكن هناك بيانات بالجدول ضع بيانات بالجدول أخى ثم جرب

تأكد من وجود بيانات فى الجدول tbltemp

تفضل أخى جرب المرفق Aboyossos_MedicalLab2013.rar

أخى الكريم البيانات تأتى من جدول واحد و ليس من جدولين و ان كنت تقصد بيانات القائمة فهذه بيانات تعرض فقط و لكن لا يتم حفظ أى بيانات منها سوى رقم الدورة و هو حقل فى نفس الجدول عموما يمكنك استبدال هذا الكود بكود الاخت زهرة بالنموذج If DLookup("[id_civil]", "data"…

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

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

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

تفضل أخى ضع هذا الكود بدلا من الكود الموجود فى حدث فتح النموذج On Error Resume Next Dim d1 As Date Dim d2 As Date d1 = Me.sdate 'DLookup("Datee", "tbltemp") d2 = Format(Date, "yyyy/mm/dd") If IsNull(d1) Or d1 = d2 Then Exit Sub Else DoCmd.SetWarnings False DoC…

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

أخى الكريم بداية 1- لا تستخدم التسميات العربية للحقول و الجداول حتى لا تسبب لك المتاعب عند كتابة الأكواد 2- أنت لا تحتاج الى كثير من الحقول الموجودة بالجداول فكل الحقول المحسوبة لا حاجة لها لأنك ستقوم بحسابها بالنموذج أو بالاستعلام ثانيا بالنسبة لمثالك تم التع…

أقصد هنا جدول data

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

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

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

اخى الكريم ضع مثال مبسط لما تريد لكى تسهل على من يريد مساعدتك

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

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

هذا هو الكود بعد التعديل فقط ضبط المسافات و اسم العمود Name من الاسماء المحفوظة لذلك يجب تغييره Private Function createtable() As Boolean Dim qdf As DAO.QueryDef Dim db As DAO.Database Dim strSQL As String strSQL = "CREATE TABLE tblsystem (" strSQL = strSQL & …