ابوخليل

فيك الخير والبركة استاذنا الفاضل جعفر ادامك الله ذخرا لإخوانك

لم اطلع على المرفق ولكني عملت لك هذا حسب ما فهمت Dim i As Integer Private Sub ID_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then i = i + 1 If i = 3 Then MsgBox "اعمل الإجراء" Exit Sub End If Else i = 0 End If End Sub test1.mdb

للرفع

تفضل dbskn_up.mdb

مشاركة مع اخي الاستاذ خالد اذا كان مصدر التقرير استعلام ، اعمل عمود جديد وضع هذه القيمة فيه واجعله هو مصدر بيانات الحقل date1 : format([textedate];"dd/mm/yyyy") باعتبار textedate هو حقل التاريخ الموجود في الاستعلام اذا توصلت للحل والا كما اشار عليك الاستاذ خالد بارفاق مثالك

عليكم السلام نعم .. اذا اعلنت عنه كمتغير عام

عليكم السلام مثلا لمعرفة عدد تكرار الحرف a في مربع النص text1 استخدم مثل هذا Len([text1])-Len(Replace([text1];"a";""))

مرحبا اخي حسان تعليقي من شقين : وقبل ذلك اعتذر عن التعديل على المثال لاني لا املك اكسس في حاسوبي الشق الأول : الترقيم حيث يمكنك ادراج رقم المكتب ضمن الرقم وايضا لست بحاجة الى العلامة الفاصلة (السلاش) بحيث يتكون الرقم من اربع خانات للسنة وخانتين لرقم المكتب على اعتبار ان المكاتب سوف تزيد مستقبلا وباقي الرقم من اليمين للترقيم المعاملة ( مفتوح بدون عدد ) فيكون اترقيم على النحو التالي : 2020011 2020012 2020013 ....... وهكذا ايضا يمكنك ادراج رمز ( رقمي ) ضمن هذا الترقيم يعبر عن الصادر او الوارد لو احببت تعمل على جدول واحد ملحوظة : من خلال هذه المعطيات الثابتة يمكن في التقارير استخراج التالي : فصل المعاملات الصادرة من الواردة معاملات كل مكتب على حدة ترتيب المعاملات حسب النوع وحسب الرقم ................................................................................ الشق الثاني : واضح ان المكاتب في اماكن متفرقة وانك تجمع البيانات بالنسخ واللصق اذا هذا صحيح فيجب عليك التفكير بطريقة تجمع بها هذه البيانات بدون تدخل يدوي من الطرق : جمع قواعد البيانات الواردة من المكاتب في مجلد واحد ( لاحظ ان كل قاعدة ستحمل اسما مختلفا حسب اسم المكتب ) ثم تعمل استعلاما يجلب لك هذه البيانات .

السلام عليكم اخي الحبيب ابو احمد عنوان الموضوع يكاد يكون اهم من الموضوع نفسه _ كلما كان العنوان يصف الموضوع وصفا دقيقا مختصرا كل ما كانت الفائدة اعم وأشمل انظر الى عنوانك الذي كتبته ، والى الذي كتبته انا الى جانبه ايهما ادق وصفا . بارك الله فيك وزادك علما وحرصا وتميزا ،،،

عليكم السلام ارفق برنامجك هنا فلن تعدم المساعدة من اخوانك

اخي الحبيب وفقك الله يكفي منك عند عدم حصولك على مطلوبك ، فقط كتابة كلمة : للرفع وعند حصولك على الاجابة الشافية تؤشر امامها كأفضل اجابة الجميع هنا طلاب علم .

اخي الكريم : هذا المنتدى للتعلم والتعليم وتبادل الخبرات يوجد قسم خاص للاعلانات في الشاشة الرئيسية للموقع ، يمكنك عرض طلبك هناك ، نقدر لك تفهمك يغلق ،،،

شرح مختصر وافي وللفائدة بحثت عن بقية رموز العناصر فخرجت بهذه النتيجة : 126 - acAttachment 108 - acBoundObjectFrame 106 - acCheckBox 111 - acComboBox 104 - acCommandButton 119 - acCustomControl 103 - acImage 100 - acLabel 102 - acLine 110 - acListBox 114 - acObjectFrame 105 - acOptionButton 107 - acOptionGroup 124 - acPage 118 - acPageBreak 101 - acRectangle 112 - acSubform 123 - acTabCtl 109 - acTextBox 122 - acToggleButton

تكرما وتفضلا ابا فريد هلا شرحت لنا هذين السطرين If ctl.ControlType = 109 Then ctl.BackStyle = 1 الموجودة ضمن الكود ادناه ماذا تعني هذه الارقام 109 و 1 وهل هناك ارقام اخرى لها خصائص مختلفة Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer) If X1 Then Dim ctl As Control For Each ctl In Me.Detail.Controls If ctl.ControlType = 109 Then ctl.BackStyle = 1 ctl.BackColor = 14933454 End If Next Else For Each ctl In Me.Detail.Controls If ctl.ControlType = 109 Then ctl.BackStyle = 1 ctl.BackColor = 16777215 End If Next End If X1 = Not X1 End Sub

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