نجوم المشاركات

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

شوف المرفق ده ممكن يعجبك ويفيدك Full Control Of Print Report.rar

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

شكرا جزيلا

المخزن (1)_2.rar

جزاك الله خيرا استاذ محمد

اتفضل تلوين السجل بالفاتوره2.rar

اخى الفاضل لابد من تعريف الشيت المراد الترحيل اليه كمتغير قبل الترحيل وتحديد كل control فى اليوزر فورم هايرحل لاى مكان فى اى شيت بالتحديد فى المرفق انا حليت لك مشكلة اول 2 يوزر فورم UserFormCards و UserFormCHQ ارجع للكود لفهم التغير Copy.rar

الفكرة قريبة من الاولى ولكن هنا عملنا فلترة وفصل حسب النادي لاحظ القيمة الافتراضية في الجدول فمنطقيا قد يكون النقص من اليمين او يكون من اليسار لذا اي حقل فارغ ستظهر فيه العبارة الخاصة به rs.MoveFirst c1 = rs!club For i = 1 To ii If rs!club = c1 Then rs2.AddNew rs2!player1 = rs!player rs2!pl1club = rs!club rs2.Update rs.MoveNext Else rs.MoveNext End If Next i rs.MoveFirst rs2.MoveFirst For i2 = 1 To ii If rs!club <> c1 Then rs2.Edit rs2!player2 = rs!player rs2!pl2club = rs!club rs2.Update rs2.MoveNext rs.MoveNext Else rs.MoveNext End If Next i2 Append5.rar

لقد أجريت بعض التعديلات هنا. جزاكم الله خيرا.rar

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

وعليكم السلام انا رأيي لو كان التوزيع عشوائي او بالتوالي واحد ثم الذي يليه عموما تفضل هذا الكود يعمل حسب طلبك On Error GoTo err_g DoCmd.SetWarnings False DoCmd.RunSQL "DELETE Matches.*, * FROM Matches" DoCmd.SetWarnings True Dim rs, rs2 As Recordset Dim i, i2, c0, c1, c2 As Integer Set rs = CurrentDb.OpenRecordset("Qry1") Set rs2 = CurrentDb.OpenRecordset("Matches") c0 = DCount("*", "Qry1") c1 = c0 \ 2 c2 = c0 Mod 2 If c2 = 1 Then c1 = c1 + 1 rs.MoveFirst For i = 1 To c0 If rs.RecordCount = c1 + 1 Then rs2.MoveFirst For i2 = rs.RecordCount To c0 rs2.Edit rs2!player2 = rs!player rs2.Update rs2.MoveNext rs.MoveNext Next i2 If rs.RecordCount = c0 Then GoTo g Else rs2.AddNew rs2!player1 = rs!player rs2.Update rs.MoveNext End If Next i g: If c2 = 1 Then rs2.MoveLast rs2.Edit rs2!player2 = " بدون منافس" rs2.Update Else Exit Sub End If rs.Close rs2.Close err_g: Exit Sub Append2.rar

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

اخي الكريم سيتم نقل الموضوع الى الاعلانات الشخصية يمكنك هناك طرح مطلوبك ووضع وسيلة اتصال

وعليكم السلام تم مناقشة الموضوع هنا والنتيجة كانت جعفر

السلام عليكم ورحمة الله وبركاته اليوم لقد اشتقت اليكم في صرح المنتدى العظيم أوفسنا لقد أرفقت ملف بسيط جدا وأرجو أن ينال اعجابكم مع كل احتراماتي لكم أخوكم في الله مناد سفيان. damier.rar

انا حسب رأيي الاكواد احسن من الماكروات كون معي للشرح الكود هذا الكود بيحدد فرم داخلي اللي باسم فرم سور اللي داخل نموذج فرم معلومات Forms!frmmaelomat!Frmsub.SetFocus وهذا الكود بيحدد السجل اللي تم بحث عنه DoCmd.RunCommand acCmdSelectRecord وهذا الكود بيحذف اللي حدد من قبل DoCmd.RunCommand acCmdDeleteRecord وهذا الكود بيخلي الكومبوبوكس خالي من البيانات اللي من قبل دخلناه لكي نبحث لريكورد Forms!frmmaelomat!Combo1 = "" وهذا الكود بيعمل ريكويري لنموذج الداخلي لكي بيظهر كل بيانات من جديد Forms!frmmaelomat!Frmsub.Requery لكن هناك اذا بتستخدم مربع نصي للبحث ما عليك الا ان تضع اسم مربع النصي بدل اسم كومبوبوكس هذا والله اعلم مع تقدير

السلام عليكم ورحمة الله وبركاته انك ما ارفقت قاعدة بياناتك لكن انا عملت هذا اتفضل استخدمت هذا الكود لحذف في نموذج فرعي Forms!frmmaelomat!Frmsub.SetFocus DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Forms!frmmaelomat!Combo1 = "" Forms!frmmaelomat!Frmsub.Requery حذف من نموذج فرعي.rar

السلام عليكم ورحمة الله أخي الكريم، المشكل الذي ذكرته ليس في الأوفيس وإنما في ملف Registry الخاص بالويندوز... وإن شاء الله حل هذه المشكلة يكون بتنفيذ الأداة في الملف المرفق وهي تقوم بتصحيح الخلل في ملف Registry تلقائيا والمتعلق بخصائص HTM/HTML... أرجو أن تفيدك هذه الأداة... أخوك بن علية html_association_fix.zip

استخدم الدالة التالية اكتب مصدر الحقل المراد الترقيم فيه كما يلي =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