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

السلام عليكم مشاركه مع اخوانى واساتذتى محمد وعمر جزاهم الله خيرا يمكن استخدام الداله DateValue([date1]) بدل من الداله format تقبلوا تحياتى ومرورى

تفضل .... جرب المرفق ....... ba_11.accdb

تفضل ... انظر الصورة ....

استبدلها بهذه الدالة ....

اللأخ الكريم -محمد-حسن-المحمد تحية لكم توضحت الصورة بشكل جيد لك جزيل الشكر و التقدير

الاستاذ Barna اول حاجه هو عملها انه حول نظام التاريخ بهذه الدالة D: Format([date1];"dd/mm/yyyy") ثم قام بوضع الشرط Between #01/01/2021# And #10/01/2021# للتصفيه واظهار النتائج طبعا انت ممكن تستبدل التاريخ باسم حقل فى نموذج عندك علشان تقدر تغير فى التواريخ لكن انتبه من التاريخ الاصغر والاكبر فى الترتيب فانت لما تقوم بالنقل قم بنقل الدالة والمعيار معا

السلام عليكم ورحمة الله وبركاته أخي الكريم يمكنك ذلك باستخدام التنسيق الشرطي يرجى الاطلاع على الملف المرفق كما أرجو أن يكون جواباً لسؤالك والسلام عليكم aaxlsx.xlsx

تفضل .... 1.accdb

تفضل Database1.accdb

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

تفضل 90939760_1.accdb

Dim frmName As String Dim stlink As String frmName = "اذن الصرف" stlink = "[رقم الفاتورة]=" & Me![رقم الفاتورة] DoCmd.OpenForm frmName, , , stlink Database2.rar

اخي ناصر 🙂 انت رجاء تضع بياناتك حسب هذه الجزئية من سؤالك ، فما فيه فائدة اعطيك مثال ماله علاقة ببرنامجك 🙂 جعفر

وعليكم السلام 🙂 حيا الله وضاح 🙂 شو الحاجة الى هذه الخطوة ، اثناء عمل البرنامج؟ جعفر

النموذج الرابع ... شكل جذاب بإطار مميز هذه المرة شكل جديد معتمد على عناصر مصممة بالفوتوشوب ومدمجة مع عناصر الأكسس 🙂 وملف التصميم كما تعودتم 🙂 ‏‏صفحة رئيسية مطورة - التصميم الرابع.accdb

ولا زالت الإبداعات مستمرة .. 🙂 وهذا التصميم الثالث : القوائم المطوية وكالعادة ملف التطبيق 🙂 صفحة رئيسية مطورة - التصميم الثالث.accdb

الملف الذي رفعته لا يمكن تنزيله (Unavailable) لذلك اقترح تجربة هذا الملف Option Explicit Function Remove_int(Txt, k) Dim Salim_Match, n With CreateObject("VBScript.RegExp") .Global = True .Pattern = "(\d)" If .Test(Txt) Then Set Salim_Match = .Execute(Txt) If k >= Salim_Match.Count Then n = Salim_Match(Salim_Match.Count - 1).FirstIndex Remove_int = Mid(Txt, 1, n) Else n = Salim_Match(k).FirstIndex + 1 Remove_int = Mid(Txt, 1, n - 2) _ & Mid(Txt, n, Len(Txt)) End If Else Remove_int = "N/A" End If End With End Function '+++++++++++++++++++++++++++++++++ الملف مرفق Remove_Only_One_Number.xlsm

السلام عليكم و رحمة الله هذا كود منقول من أحد الكتب يجلب أسماء كل التقارير فى القاعدة ويشغلها من كمبوبوكس الكود فى حدث عند التحميل للنموذج Private Sub Form_Load() Dim newvallist As String newvallist = "" Dim obj As AccessObject For Each obj In CurrentProject.AllReports newvallist = newvallist + Chr(34) + obj.Name + Chr(34) + ";" Next obj Me.objCombo.RowSource = "value list" Me.objCombo.RowSource = newvallist Me.objCombo.Value = Me.objCombo.ItemData(0) End Sub ثم فى حدث بعد التحديث للكمبوبوكس لفتح التقارير حسب الاسم المختار Private Sub objCombo_AfterUpdate() DoCmd.OpenReport Me.objCombo, acViewPreview End Sub الملف المستخدم 2003 - 2007 كود أسماء كل تقارير القاعدة الحالية.rar و هذا تعديل للكود بحيث يجلب أسماء التقارير مع مسمياتها التوضيحية كود أسماء كل 8التقارير.rar

وعليكم السلام استبدل الكود بهذا =DLookUp("[g3s4]";"es4";"[g1s1]= [g1s1]")

موضوع ذو صلة : التحكم باتجاه الصفحة و مقاس الهامش بالكود http://www.officena.net/ib/index.php?showtopic=137 هوامش التقارير, تعديل هوامش التقارير http://www.officena.net/ib/index.php?showtopic=1486 ولضبط الهوامش يسار وأعلى وأسفل ويمين ولكون الصفحة أفقية أو عمودية ولحجم الورق يستخدم الكود التالي : في التقرير في حدث عند الصحفة Report_Page Me.Printer.LeftMargin = 520 Me.Printer.TopMargin = 520 Me.Printer.BottomMargin = 520 Me.Printer.RightMargin = 658 Me.Printer.Orientation = acPRORLandscape Me.Printer.PaperSize = acPRPSA4 ولضبط الهوامش من خارج التقرير تستبدل الكلمة Me على النحو التالي Reports("اسم التقرير").Printer.LeftMargin = 520

Reports("Catalog").Printer.LeftMargin = 1440 'Set left margin to 1 inch Reports("Catalog").Printer.Orientation = acPRORLandscape 'Set orientation to landscape Reports("Catalog").Printer.PaperSize = acPRPSLegal 'Set paper size to legal