علي المصري

الكود يعمل جيدا عندي وانا بستخدمه في قاعدة بيانات منذ أربعة أشهر ولكني لم استطع تطبيقه على الفورم الخاص بك دائما تظهر رسالة انه هناك خطأ في vba للفورم ولا ادري كيف حلها حاول تجرب الكود على فورم جديد بعيد قاعدة البيانات الخاصة بك أولا للتأكد من ان الكود يعمل ام لا الملف الخاص بي سوف ارفقه مرة ثانية اختار grade 10 ثم section A AliElmasry.rar

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

تفضل اخي الكريم AliElmasry.rar

مثال على الكود AliElmasry.rar

استخدم الدالة التالية اكتب مصدر الحقل المراد الترقيم فيه كما يلي =RowNum([Forms]![Data]) حيث data هو اسم النموذج ضع الدالة التالية في موديول جديد Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Forms]![theNameoftheForm]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function

السلام عليكم ورحمة الله وبركاته اشكر كل من ساهم في الموضوع من السادة الاعضاء لكم جزيل الشكر على ما تقدموه من مساعدات لنا في هذ الصرح العظيم شكرا جزيلا وجزاكم الله خير إليكم الدلة التالية لعمل ترقيم تلقائي في النموذج ( العمل ليس لي ولكنه نتيجة بحث على الانترنت واستخدمته واتي بالنتيجة المطلوبة ) ( للأمانة العلمية ) اكتب مصدر الحقل المراد الترقيم فيه كما يلي =RowNum([Forms]![Data]) حيث data هو اسم النموذج ضع الدالة التالية في موديول جديد Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Forms]![theNameoftheForm]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function

تفضل اخي الكريم KEY.rar

إعتذار لابد منه للخبير أبو عارف لقد قمت بتجربة الكود الخاص بك مرة أخرى ووجدته صحيح ما عدا الفاصلة بين الأرقام الفاصل هي ; بدلا من , شكرا جزاك الله خيرا

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

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

جربي التالي في وضع التصميم للجدول tbl1 وفي حقل cus_name خلي الفهرسة indexed قيمتها ( نعم بدون تكرار ) ( Yes (No Duplicates)

لعل المرفق يفي بالغرض Al-Zahraa Lab.rar

طريقة اخرى بجانب طريق الاستاذ حسين العربي إذا اردت ان لا يتم الحفظ إلا بعد تعبئة حقل معين من بداية تصميم الجدول اجعل هذا الحقل مطلوب ( Required ) عن طريق جعل الاختيار نعم كما بالصورة

استخدم الجملة التالية DoCmd.SetWarnings False في البداية للكود ثم في نهاية الكود DoCmd.SetWarnings True

تفضل استاذ أبو آلاء لعله يكون المطلوب 2السجل.rar

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

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

لدي جدولين Students names - MainTable بينهما علاقة one to many عملت استعلام من الجدولين بمعيار يعتمد على 2 قائمة منسدلة في الفورم follow3 ولكن عند تشغيل الاستعلام يعطى لا شيء ( فارغ ) فهل من حل مرفق الجداول والاستعلام والفورم D1.rar

ترقبوا إن شاء الله الاصدار الجديد

توضيح بسيط start day قيمته من 0 إلى 6 وهي الارقام المقابلة لاسم اليوم هل هذا هو المقصود

تفضل اخي الكريم لعله يكون المطلوب البرنامج.rar

الحمد لله قمت بعمل التالي واتحلت المشكلة Private Sub MyLang_Afterupdat() On Error GoTo MyLang_AfterUpdate_Err If MyLang = 1 Then With SName .RowSource = "SELECT * FROM QryStuNamesAr ORDER BY ID" .ColumnCount = 4 .BoundColumn = 1 .ColumnWidths = "2in.;0in.;0in.;0in." End With Else With SName .RowSource = "SELECT * FROM QryStuNamesEn ORDER BY ID" .ColumnCount = 4 .BoundColumn = 1 .ColumnWidths = "2in.;0in.;0in.;0in." End With End If MyLang_AfterUpdate_Err: If MyLang = 1 Then With SName .RowSource = "SELECT * FROM QryStuNamesAr ORDER BY ID" .ColumnCount = 4 .BoundColumn = 1 .ColumnWidths = "2 بوصة;0 بوصة;0 بوصة;0 بوصة " End With Else With SName .RowSource = "SELECT * FROM QryStuNamesEn ORDER BY ID" .ColumnCount = 4 .BoundColumn = 1 .ColumnWidths = "2 بوصة;0 بوصة;0 بوصة;0 بوصة " End With End If End Sub ولكن اطمع في حل مختصر

متاسف اخي ramhan على عدم الرد شكرا لاهتمامك وجزاك الله خيرا

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

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