محمد أبوعبدالله

السلام عليكم اضف الكود التالي If Rs("F_Name") = Me.Xname.Column(0) Then If DatePart("m", Rs("F_Date")) = DatePart("m", XDate) Then MsgBox "تم ادخال بيانات العامل / " & Me.Xname.Column(0) & " لهذا الشهر" Exit Sub End If End If Up-1.rar تحياتي

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

السلام عليكم ربما تكون المشكلة في 1 : صممت البرنامج على access 32 والجهاز الجديد access 64 او العكس الحل : اذا كان الملف بصيغة accdb ولم يتم تحويله الى accde فالبرنامج سيعمل بدون مشاكل ان شاء الله اما اذا كان تم تحويله فلن يعمل 2 - يوجد لديك في التصميم الاساسي عناصر في النماج والتقارير باسماء عربية والجهاز الجديد اللغة العربية فيه غير مكتملة فيه الحل : تغيير اسماء حميع العناصر من اللغة العربية الى اللاتينية ( الانحليزية ) مثال : نص1 تغييره الى text1 ... وهكذا باقي العناصر ( مربعات النص - كومبوبوكس - زر امر ... الخ ) تحياتي

وعليكم السلام ورحمة الله وبركاته جرب الكود التالي مع تغيير اسم الجدول واسم الحقل حسب برنامجك mySQL = "Select * From Table1" mySQL = mySQL & " ORDER BY Id" Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) For i = 1 To 999 Me.Text1.Value = Me.Text1.Value & " " & rst![Reag] & " or " rst.MoveNext If rst.EOF Then Exit Sub End If Next i تحياتي

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

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

تفضل اخي الكريم والمشكلة كما ذكرت لك في اسماء الحقول Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "ExaminationT", "Patient=" & Forms!All_Data!Patient_id & " and [DataEntryDate] = #" & Me.Date_Examination & "#") > 0 Then MsgBox "تاريخ الزيارة مكرر", vbInformation, "تحذير" Cancel = True End If End Sub مشكلة تكرار الكشف فى نفس اليوم.rar تحياتي

هذا موضوع سيفيدك ان شاء الله تحياتي

اخي الكريم اضغط الملف باي برنامج مثل winrar سوف يتقلص الحجم كثيرا تحياتي

ضعه في حدث Private Sub Form_BeforeUpdate(Cancel As Integer) End Sub ولكن قبل ذلك لا بد من الانتباه وتغيير التالي حسب برنامجك tbl1 = اسم الجدول Patient = اسم المريض ونوعه رقم disclosure_date = حقل التاريخ ولو وضعت الجزء الذي به المشكلة من البرنامج في مثال لكن ايسر لنا ولك اخي الكريم تحياتي

السلام عليكم تفضل اخي الكريم If DCount("*", "tbl1", "Patient=" & Patient & " and [disclosure_date] = #" & me.disclosure_date & "#") > 0 Then MsgBox "مكرر", vbInformation, "تحذير" Cancel = True End If تحياتي

وجزاكم الله خيرا اخي الكريم وبالتوفيق دائما تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم iif([id]=1;(DateAdd("n";5;Date()));Date()) تحياتي

الحمد لله تم ما تريده

تفضل اخي بلال za-Test1.rar تحياتي

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

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

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

اقصد جدول القسم لان رقم الفوج مرتبط باسم القسم فالافضل تقسيمه جدول الافواج : رقم الفوج - اسم الفوج جدول الاقسام : رقم القسم - اسم القسم - رقم الفوج تحياتي

اعتقد الخطأ سيكون في اسماء الحقول او النموذج الفرعي عموما احذف السطر التالي On Error Resume Next ثم افتح النموذج ونفذ الخطوات اذا ظهر خطأ صوره هنا واعتقد انه في اسماء الحقول او النموذج الفرعي تحياتي

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Test p.rar تحياتي

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

لم تواجهني هذه المشكلة انظر الصورة برجاء توضيح اكثر اخي الكريم تحياتي