ابوخليل

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

مبارك استاذ حسام زادك الله علما ونفع بك

السلام عليكم استمر على الخط 128 ، غالبا جميع اجهزة الباركود تقرأه

+1

عليكم السلام ورحمة الله وبركاته الطريقة هو ان تنشء حقلا رقميا في الجدول تكون قيمته الافتراضية صفر ، وعند كل امر طباعة للتقرير يتم تحديث هذا الحقل + 1 بحيث لو تمت طباعة التقرير للمرة الرابعة يظهر لك في التقرير الرقم 4

السلام عليكم الوصول الى البيانات سحابيا ليست مشكلة أمام ميكروسوف ، ففي الاصدار 2003 يوجد تبويب خاص بانشاء صفحات الوصول ، وقد تم الغاؤها في الاصدارات الحديثة ، وانا تعاملت معها واذكر عملت برنامجا يجلب بيانات لحظية من السوق المالي . المشكلة الحقيقية تتمثل في الواجهات

عليكم السلام جرب تبحث داخل المنتدى يوجد الكثير حول تحريك الصور وهذا واحد منها وهذا مثال من مكتبتي سرعة_سيارات.mdb

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

لم اطلع على المرفق ولكني عملت لك هذا حسب ما فهمت 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

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

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

السلام عليكم اساتذتي واحبتي الأعزاء في المرفق تقرير يعرض السجلات كمجموعات ، حيث تجدون ان كل عدد من السجلات تشترك في حقل الـــ id بمعنى ان الرقم في حقل id مكرر في اكثر من سجل ستلاحظون وجود سجل واحد فقط ومجموعة مكونة من سجلين ومجموعة أكثر المطلوب : تطبيق لونين فقط على مجموعة السجلات مثلا الأبيض والرمادي بحيث تتمييز كل مجموعة بلون والمجموعة التي بعدها باللون الآخر وهكذا ... الفكرة : هي تمييز كل مجموعة عن ما بعدها من اجل تيسير الملاحظة والمتابعة ، وان صعب التطبيق لا بأس من تطبيق الفكرة بغير الألوان وبطرق أخرى مثلا بخط فاصل ونحو ذلك .. تقبلوا شكري وتقديري db1.mdb

نهنىء انفسنا بانضمام الاستاذ احمد الفلاحجي الى قائمة الخبراء الف مبروك حبيبنا .. زادك الله علما ..