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

وعليكم السلام ورحمة الله وبركاته استاذنا الفاضل @ابوخليل سامحني لاني مسحت البيانات واضافات بيانات من عندي حتى افهم جزء من الموضوع اضفت في جدول tblSub_Tsjeel عدد 156 مرافق 5 مشرفين + 84 حاج + 156 مرافق = 245 مقعد = اجمالي مقاعد الباصات 5 * 49 = 245 مقعد نفضل الكود التالي وارجوا ان يكون هو المطلوب واذا كان خطأ فسامحني مرة اخرى فقد حاولت حسب ما فهمت ولك الشكر On Error Resume Next ' تصفير حقل degree mySQL = "Update tbl_Tsjeel" mySQL = mySQL & " SET degree = 0" CurrentDb.Execute (mySQL) ' اذا كان مشرف يأخذ رقم 1 mySQL = "Update tbl_Tsjeel" mySQL = mySQL & " SET degree = 1 WHERE id <=7" CurrentDb.Execute (mySQL) ' اذا كان راكب يأخذ رقم 2 mySQL = "Update tbl_Tsjeel" mySQL = mySQL & " SET degree = 2 WHERE id >7" CurrentDb.Execute (mySQL) 'توزيع المشرفين على 5 باصات mySQL = "Select * From tbl_Tsjeel" mySQL = mySQL & " WHERE degree = '1'" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst Do While Not rst.EOF For i = 1 To 5 rst.Edit rst!busNum = Str(i) rst.Update rst.MoveNext Next Loop rst.Close: Set rst = Nothing '============================================================== 'توزيع الحجاج على 5 باصات mySQL = "Select * From tbl_Tsjeel" mySQL = mySQL & " WHERE degree = '2'" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst Do While Not rst.EOF For i = 1 To 5 rst.Edit rst!busNum = Str(i) rst.Update rst.MoveNext Next Loop rst.Close: Set rst = Nothing '============================================================== 'توزيع المرافقين على 5 باصات mySQL = "Update tblSub_Tsjeel" mySQL = mySQL & " SET busNum = 0" CurrentDb.Execute (mySQL) Dim strSQL As String strSQL = "UPDATE tbl_Tsjeel " & vbCrLf strSQL = strSQL & " INNER JOIN tblSub_Tsjeel " & vbCrLf strSQL = strSQL & " ON tbl_Tsjeel.userid = tblSub_Tsjeel.userid SET tblSub_Tsjeel.busNum = [tbl_Tsjeel]![busNum];" CurrentDb.Execute (strSQL) haj.mdb تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Dim db As DAO.Database Set db = CurrentDb Dim tField As DAO.TableDef Dim Fld As DAO.Field Set tField = db.TableDefs("Table1") Set Fld = tField.CreateField("Check1", dbBoolean) tField.Fields.Append Fld Fld.Properties.Append Fld.CreateProperty("DisplayControl", dbInteger, CInt(acCheckBox)) تحياتي

تفضل اخي الكريم انظر الى حقل اجمالي الاجازات وحقل عدد الاجازات المتبقية بالنموذج مثال(6).rar تحياتي

السلام عليكم قم بعمل تجميع في الاستعلام تفضل اخي الكريم Courses_DB.rar تحياتي

في الحقل الذي تريد اظهار التاريخ فيه على النموذج تحياتي

السلام عليكم لعرض اخر اجازة لموظف DLast("[egfrom]"; "[egaza]"; "[empno] =" & empno) ضع اولا في جدول العملاء رصيد كل موظف من الاجازات ثم بعد ذلك اطرح الاجازات من هذه القيمة تحياتي

صدقت استاذنا جعفر تلألأت سماء الاكسس باستاذنا الفاضل @خالد سيسكو بالتوفيق اخي الحبيب تحياتي

بالتوفيق اخي الكريم تحياتي

جربت من جديد ويعمل تمام الحمد لله ولكن يحتاج الى الذهاب الى اول سجل تفضل الكود من جديد DoCmd.GoToRecord , , acFirst Dim DB As DAO.Database Dim rst As Recordset Set DB = CurrentDb Set rst = DB.OpenRecordset("select * from tbl_sheet") rst.MoveFirst Do Until rst.EOF rst.Edit rst("amount_sheet") = Me.amount_sheet rst.Update rst.MoveNext DoCmd.GoToRecord , , acNext Loop Set DB = Nothing Set rst = Nothing Form.Requery تحياتي

السلام عليكم انت تقول له ابحث عن السجل الموافق لمربع التحرير وسرد وهو بالتالي يحضره لك Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[empno ] = " & Str(Nz(Me![مربع_تحرير_وسرد74], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark اكتفي ببقية الاوامر وسيضيف اجازة جديدة لنفس الموظف اكتفي بهذا فقط mosama = Me.مربع_تحرير_وسرد74.Column(3) center = Me.مربع_تحرير_وسرد74.Column(4) empno = Me.مربع_تحرير_وسرد74.Column(0) emp_e_name = Me.مربع_تحرير_وسرد74.Column(2) Me.txtname.Value = Me.مربع_تحرير_وسرد74.Text تحياتي

السلام عليكم راجع المرفق بارك الله فيك تحديث من نموذج الي جدول بشرط_2.rar تحياتي

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

تفضل اخي الكريم ملاحظة الترقيم سيعمل معك عند ادراج سجل جديد لأن الترقيم في حدث Form_AfterInsert ترقيم متقدم.rar تحياتي

وعليكم السلام ورجمة الله وبركاته يوجد مثال رائع لاستاذنا ابوخليل ترقيم متقدم.rar يمكنك التحكم بعدد الاصفار بجوار الرقم من خلال السطر التالي Me!Receiptno = "R-" & Format(xNext, "0000") & "-" & prtyr تحياتي

وعليكم السلام ورحمة الله وبركاته المنطقة الملونة = مربع خانة ومربع خانة لا يعرض النتائج وضعت لك استعلام انظر اليه سترة معيار التاريخ طبق بنفس الطريقة حسب ما تريد DB(1).rar تحياتي

استاذنا الفاضل @أبو عبدالله الحلوانى اقصد انك قمت بتغيير خحم ورق الطباعة الى a5 لكن التقرير ما زال محتفظ باعداداته والعناصر التي عليه بنفس المقاسات لم تتغير الحقيقة جربت الموضوع قبل ذلك فالذي وصلت اليه كتابة اسماء العناصر يدوياً Me.TextBox1.Width = Me.TextBox1.Width / 2 فارجو ان يحاول معنا الاخوة في هذا الموضوع الشيق لعلنا نصل الى نتيجة ان شاء الله تحياتي

تفضل اخي الكريم قاعدة بيانات التلاميذ(2).rar يفضل اخذ نسخة احتياطية من برنامج اولا قبل التجربة تحياتي

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

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

وعليكم السلام ورحمة الله وزبركاته استاذنا الفاضل @أبو عبدالله الحلوانى الكود التالي صحيح msgbox me.width وهو يعطي النتيجة بالبوصة والبوصة = 2.541cm ولمعرفة العرض بالضبط اقسم الرقم الناتج على 2.541cm وايضاً 2.541cm = 1440 twips ولتحديد العرض من خلال الكود نضرب 1440 twips في الرقم المراد تحديد العرض به بالبوصة Me.Width = 1440 * 6 تحياتي

ضع الكود التالي في وجدة نمطية جديدة Option Compare Database Public Declare PtrSafe Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub للاخفاء ضع هذ الكود في حدث عند التحميل للنموذد الرئيسي Call HideAccess للاظهار ضع هذا الكود في زر امر Call ShowAccess تحياتي مع مراعاة ان تجعل النماذج والتقارير منبثقة

ما شاء الله عليك استاذنا الفاضل وجزاك الله خيراً تحياتي

بارك الله فيك استاذنا الفاضل وجزاك الله خيرا تحياتي

بالتوفيق اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته لمعرفة حجم قاعدة البيانات نستخدم الامر FileLen(CurrentDb.Name) مع ملاحظة ان الرقم يخرج بالبايت بعني انك ستحتاج الى قسمته على 1024 ليعطيك الحج بالكيلوبايت ثم القسمة على 1024 ليعطيك الحجم بالميجا استخدم الكود التالي وهو عند حجم 30000000 بايت يما يعادل 30 ميجا تقريباً If FileLen(CurrentDb.Name) > 30000000 Then Application.SetOption "Auto compact", True Else Application.SetOption "Auto compact", False End If الكود يقوم بوضع علامة صح امام خيار ضغط واصلاح قاعدة البيانات عند الاعلاق تحياتي