kanory

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

ما فهمت عليك .... كيف نسخة واحدة ؟؟؟؟؟ والزرار ظاهر ؟؟؟؟؟ وضح !!!!

جرب هذا ...... DoCmd.SelectObject acReport, "اسم التقرير", True DoCmd.PrintOut , , , , 2

نعم تفضل >>>>>>>>>>>>>>>>>> M_L - Copy.mdb

استخدم هذا الكود بدل الموجود في زر الطباعة ....... DoCmd.OpenReport "print1", acViewNormal, , "[رقم أمر العمل]=" & Forms![نموذج1]![rr]

وعليكم السلام ورحمة الله وبركاته أيش المطلوب وضح ......

تفضل >>>>>> M_L - Copy.mdb

اذا كان تقصد ان هناك تقرير اخر وتريد استخدام نفس الكود ... طبق نفس الطريقة .. وبنعدل بسيط في الارقام وبالمحاولة والخطأ حتى تصل للمطلوب لان كل تقرير يختلف عن الاخر من حيث حجم السجلات به Me.PageHeaderSection.Height = 36 * 287

استخدم الكود بهذه الطريقة مع اكمال بقية الكائنات بنفس الطريقة .................. If (Me.Page / 2) = Int(Me.Page / 2) Then Me.PageHeaderSection.Height = 36 * 287 Me.id_تسمية.Visible = False Me.date1_تسمية.Visible = False Else Me.PageHeaderSection.Height = 0 Me.id_تسمية.Visible = True Me.date1_تسمية.Visible = True End If

تفضل .... 2.accdb

طيب فكرة على فكر اساتذتنا الكرام نقوم بزيادة ونقصان رأس الصفحة كما يلي .... ضع هذا الكود في حدث عند التنسيق .... If (Me.Page / 2) = Int(Me.Page / 2) Then Me.PageHeaderSection.Height = 36 * 287 Else Me.PageHeaderSection.Height = 0 End If جرب واعلمنا بالنتيجة .....

تفضل .... لاحظ التعديل في الاستعلام والتقرير .... 2.accdb ههههه اسف اخي الكريم لم انتبه لردك ......

تفضل ..... Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL As String Set db = CurrentDb strSQL = "SELECT sub.* FROM sub WHERE " strSQL = strSQL & "[No] " & Me![cboFirstOperator] & "" & Me![txtCostCenter] & "" db.QueryDefs.Delete "qryMyQuery" Set qdf = db.CreateQueryDef("qryMyQuery", strSQL) Filter (2).accdb

يبدو ان هناك اجراءان في نفس الوقت ..... ماكروا مثلا او امر حدث الخ تفصح برنامج .... انظر تفسير الخطأ من أكسس

أولا : يجب توحيد العبارة التي تكتب في مربع البحث أي قد تكتب < 5.5 وقد تكتب <5.5 اقصد المسافات لذلك فكرتي باختصار : عمل مربعي قائمة الاول لاختيار علامة ( ><= الخ اخرة) والمربع الثاني تختار منها الرقم ثم عمل زر للبحث .... وفقط ... ثانيا : بعض المسميات المستخدمة هي عبارات محجوزة للاكسس والمفروض لا تستخدم مثل sub ....

مو انت بس .... كلنا راجعنا المعلومات معكم فشكرا لكم جميعا ....

ما ذا تعني هذه ..... هل وجدت الحل أم ماذا ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ على العموم تفضل جرب الشيفرة هذه ...... x = NumX xx = Expr1 r = DCount("[numx]", "XtremQ", "[numx]='" & x & "'" & " and [expr1]=" & xx) If r > 0 Then If MsgBox(" هل تريد تكرار حفظ السجل ؟ ", vbYesNo, " تنبيه ") = vbNo Then Me.Undo Exit Sub Dim RS As Object Set RS = Me.Recordset.Clone RS.FindFirst "[numx]='" & x & "'" & " and [expr1]=" & xx If Not RS.EOF Then Me.Bookmark = RS.Bookmark End If End If

الكود موجود ما يحتاج بخور سيدي جعفر .... ماكروا مرتبط بفانك .... 😄

ماشاء الله عليك مميز

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

الحمد لله رب العالمين ... حياك الله استاذ . خالد @خالد عبد الغفار

طيب ... تفضل ... Dim rst As Recordset '' Dim ast_1, ast_3, ast_4, ast_10, ast_11, ast_12, ast_t, cast_1 As Integer Set rst = CurrentDb.OpenRecordset("tb_mbd", dbOpenDynaset) With rst .MoveFirst Do While Not .EOF .Edit If rst!case_cod.Value = 1 Or rst!case_cod.Value = 2 Or rst!case_cod.Value = 4 Then rst!m_es_1.Value = rst!m_bg1 rst!m_es_3.Value = rst!m_bg1 * 6 rst!m_es_4.Value = rst!m_bg1 * 0 rst!m_es_10.Value = rst!m_bg1 * 0 rst!m_es_11.Value = rst!m_bg1 rst!m_es_12.Value = rst!m_bg1 rst!m_es_t.Value = rst!m_bg1 'Form.Refrm_esh End If If rst!case_cod.Value = 3 Or rst!case_cod.Value = 5 Then rst!m_es_1.Value = rst!m_bg1 rst!m_es_3.Value = rst!m_bg1 * 6 rst!m_es_4.Value = rst!m_bg1 rst!m_es_10.Value = rst!m_bg1 * 0 rst!m_es_11.Value = rst!m_bg1 rst!m_es_12.Value = rst!m_bg1 * 0 rst!m_es_t.Value = rst!m_bg1 'Form.Refrm_esh End If If rst!case_cod.Value = 6 Then rst!m_es_1.Value = rst!m_bg1 rst!m_es_3.Value = rst!m_bg1 * 5 rst!m_es_4.Value = rst!m_bg1 rst!m_es_10.Value = rst!m_bg1 * 0 rst!m_es_11.Value = rst!m_bg1 * 2 rst!m_es_12.Value = rst!m_bg1 * 0 rst!m_es_t.Value = rst!m_bg1 'Form.Refrm_esh End If If rst!case_cod.Value = 7 Then rst!m_es_1.Value = rst!m_bg1 rst!m_es_3.Value = rst!m_bg1 * 5 rst!m_es_4.Value = rst!m_bg1 * 0 rst!m_es_10.Value = rst!m_bg1 rst!m_es_11.Value = rst!m_bg1 rst!m_es_12.Value = rst!m_bg1 rst!m_es_t.Value = rst!m_bg1 'Form.Refrm_esh End If If rst!case_cod.Value = 8 Then rst!m_es_1.Value = rst!m_bg1 rst!m_es_3.Value = rst!m_bg1 * 5 rst!m_es_4.Value = rst!m_bg1 * 0 rst!m_es_10.Value = rst!m_bg1 rst!m_es_11.Value = rst!m_bg1 rst!m_es_12.Value = rst!m_bg1 * 0 rst!m_es_t.Value = rst!m_bg1 'Form.Refrm_esh End If .Update .MoveNext Loop End With '' Call t rst.close MsgBox "تم التحديث"

وانت في صحة وسلامة ...... اخي خالد ... دقق في البيانات هل هذه النتيجة هي المطلوبة ,,,

نعم ممكن اختزاله ... وذلك بتعديل مسميات مربعات النص قليلا .... انظر الكود وحاول قرائته ..... وسوف ارفق المرفق قريبا ..... myT = Array("الأحد", "الإثنين", "الثلاثاء", "الأربعاء", "الخميس") For Each t In myT If Me.to.Value = t Then For i = 1 To 8 If Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] =" & i), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] =" & i), "hh:mm:ss AMPM") Then Me.Controls(t & i).BackColor = vbYellow End If Next i End If Next t

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