كل الانشطه

تابع شرح استاذنا @jjafferr من هنا لتبديل المكتبات لتعمل على النواتين .

نعم تمام .

يمكن السبب انا عندي اوفيس 64 بت وحضرتك عندك نظام 32 بت المديول ضفت له ptrsafe

مشاركة مع الاساتذة الكرام تفضل أستاذ @TAMER AGOOR محاولتي حسب مافهمت . ووافني بالرد . Private Sub Ch_Click() 'On Error Resume Next If Me.Ch = False Then Me.CmdPrint.Caption = "Print rpt_Emp" Me.CmdPrint.BackColor = vbRed Else Me.CmdPrint.Caption = "Print rpt_Items" Me.CmdPrint.BackColor = vbBlue End If End Sub Private Sub CmdPrint_Click() On Error Resume Next If Me.Ch = False Then Me.CmdPrint.Caption = "Print rpt_Emp" Me.CmdPrint.BackColor = vbRed DoCmd.OpenReport "rpt_Emp", acViewNormal Else Me.CmdPrint.Caption = "Print rpt_Items" Me.CmdPrint.BackColor = vbBlue DoCmd.OpenReport "rpt_Items", acViewNormal End If End Sub

استاذ @عبد اللطيف سلوم المرفق يعمل بكفاءة كما بالشرح . ووضحت لك مكان جدول النظام الذي به الباسوورد .

لما شرحته في طلبك ، ارفق ملف ليتم العمل عليه 😊

جزاك الله خير الجزاء

جزاك الله خير الجزاء

السلام عليكم ورحمة الله وبركاته في مايكروسوفت اكسس لدي جدول اسمه "المواقف" يحتوي على حقل اسمه[رقم الموقف ] نوع ترقيم تلقائي وهو مفتاح اساسي وحقل [ تاريخ الموقف ]وحقل [اليوم ] يرتبط بهذا الجدول اربعة جداول بعلاقة ون تو ميني هي ١-جدول "اجتماعات العاملين "وهذا الجدول مرتبط به جدول اسمه "حضور الاجتماعات " وانشأت منهما استعلام حتى يقوم بحساب عدد المشاركين في كل اجتماع ٢-وجدول "الدورات" وهذا مرتبط به جدول اسمه "المشاركين في الدورات " وانشأت منهما استعلام يحسب عدد المشاركين في كل دورة ٣- وجدول "النزول الميداني ٤-وجدول" المادة التي تم توزيعها" اريد ان يكون هناك نموذج بحث بين تاريخين لطباعة تقرير يومي واسبوعي وشهري وسنوي عندما ادخل تاريخ محدد باليوم مثلا يقوم بعرض التقرير وفي اعمال ذلك اليوم فقط لاجتماعات ذلك اليوم ودورات ذلك اليوم ونزول ذلك اليوم و وتوزيع مادة ذلك اليوم وكذلك عندما اقوم بادخال تاريخ اليوم الى بعد سبعة يقوم بعرض ماتم في تلك السبعة الايام وهكذا بالنسبة للشهري والسنوي

جزاك الله خير الجزاء

وعليكم السلام ورحمه الله وبركاته تفضل اخي لعله طلبك ماكرو قبل الطباعة.xlsm

أخي الكريم تكرار طلبك في مواضيع أخرى لا يحقق لك الإجابة التي تريدها ، افتح موضوع جديد 🤝

وعليكم السلام ورحمة الله وبركاته اخي @صالح الصالحي ، التزاماً بقواعد المنتدى ارجو ان تقوم بفتح موضوع جديد لطلبك ، وإن شاء الله ستجد الحلول المناسبة لطلبك 🥰 . كل الشكر والتقدير لك 🤗

السلام عليكم ورحمه الله وبركاته تفضل لعله طلبك فقط النطاق المسمي Data تم تمديده لحل مشكلتك ‏‏‏‏جديد 1.xlsm

وعليكم السلام ورحمه الله وبركاته تفضل اخى Private Sub TextBox2_Change() Application.OnTime Now() + TimeValue("00:00:02"), "ورقة1.test" End Sub Sub test() Dim Wb As Workbook, WbName As String, xWb As Workbook Dim ws As Worksheet, sh As Worksheet Dim X, M, N Set ws = ThisWorkbook.Worksheets("ورقة1") If TextBox2 = "" Then AutoFilterMode = False Else WbName = "2024.xlsm" WbPath = ThisWorkbook.Path & "\" & WbName For Each Wb In Workbooks If Wb.Name = WbName Then Exit For Next On Error Resume Next Set Wb = Application.Workbooks.Item(WbName) On Error GoTo 0 If Not Wb Is Nothing Then Set sh = Wb.Worksheets("الأرصدة") ws.Range("H1").AutoFilter , field:=8, Criteria1:=TextBox2.Text 1 M = Application.Match(CDbl(Date), sh.Rows(2), 0) If IsError(M) Then ' insert column to date if not found N = Application.Match("*", sh.Rows(2), 0) sh.Columns(N).Insert sh.Cells(2, N).Value = Date GoTo 1 End If X = Application.Match(Val(TextBox2), sh.Columns(M + 2), 0) If Not IsError(X) Then With sh.Cells(X, M) .Value = ws.Cells(1, "I").Value .Interior.ColorIndex = 30 .Font.ColorIndex = 20 End With End If End If Wb.Save ' Save sheet after set data End If End Sub

السلام عليكم ورحمة الله وبركاته في مايكروسوفت اكسس لدي جدول اسمه "المواقف" يحتوي على حقل اسمه[رقم الموقف ] نوع ترقيم تلقائي وهو مفتاح اساسي وحقل [ تاريخ الموقف ]وحقل [اليوم ] يرتبط بهذا الجدول اربعة جداول بعلاقة ون تو ميني هي ١-جدول "اجتماعات العاملين "وهذا الجدول مرتبط به جدول اسمه "حضور الاجتماعات " وانشأت منهما استعلام حتى يقوم بحساب عدد المشاركين في كل اجتماع ٢-وجدول "الدورات" وهذا مرتبط به جدول اسمه "المشاركين في الدورات " وانشأت منهما استعلام يحسب عدد المشاركين في كل دورة ٣- وجدول "النزول الميداني ٤-وجدول" المادة التي تم توزيعها" اريد ان يكون هناك نموذج بحث بين تاريخين لطباعة تقرير يومي واسبوعي وشهري وسنوي عندما ادخل تاريخ محدد باليوم مثلا يقوم بعرض التقرير وفي اعمال ذلك اليوم فقط لاجتماعات ذلك اليوم ودورات ذلك اليوم ونزول ذلك اليوم و وتوزيع مادة ذلك اليوم وكذلك عندما اقوم بادخال تاريخ اليوم الى بعد سبعة يقوم بعرض ماتم في تلك السبعة الايام وهكذا بالنسبة للشهري والسنوي

السلام عليكم ورحمة الله وبركاته في مايكروسوفت اكسس لدي جدول اسمه "المواقف" يحتوي على حقل اسمه[رقم الموقف ] نوع ترقيم تلقائي وهو مفتاح اساسي وحقل [ تاريخ الموقف ]وحقل [اليوم ] يرتبط بهذا الجدول اربعة جداول بعلاقة ون تو ميني هي ١-جدول "اجتماعات العاملين "وهذا الجدول مرتبط به جدول اسمه "حضور الاجتماعات " وانشأت منهما استعلام حتى يقوم بحساب عدد المشاركين في كل اجتماع ٢-وجدول "الدورات" وهذا مرتبط به جدول اسمه "المشاركين في الدورات " وانشأت منهما استعلام يحسب عدد المشاركين في كل دورة ٣- وجدول "النزول الميداني ٤-وجدول" المادة التي تم توزيعها" اريد ان يكون هناك نموذج بحث بين تاريخين لطباعة تقرير يومي واسبوعي وشهري وسنوي عندما ادخل تاريخ محدد باليوم مثلا يقوم بعرض التقرير وفي اعمال ذلك اليوم فقط لاجتماعات ذلك اليوم ودورات ذلك اليوم ونزول ذلك اليوم و وتوزيع مادة ذلك اليوم وكذلك عندما اقوم بادخال تاريخ اليوم الى بعد سبعة يقوم بعرض ماتم في تلك السبعة الايام وهكذا بالنسبة للشهري والسنوي

السلام عليكم ورحمة الله وبركاته في مايكروسوفت اكسس لدي جدول اسمه "المواقف" يحتوي على حقل اسمه[رقم الموقف ] نوع ترقيم تلقائي وهو مفتاح اساسي وحقل [ تاريخ الموقف ]وحقل [اليوم ] يرتبط بهذا الجدول اربعة جداول بعلاقة ون تو ميني هي ١-جدول "اجتماعات العاملين "وهذا الجدول مرتبط به جدول اسمه "حضور الاجتماعات " وانشأت منهما استعلام حتى يقوم بحساب عدد المشاركين في كل اجتماع ٢-وجدول "الدورات" وهذا مرتبط به جدول اسمه "المشاركين في الدورات " وانشأت منهما استعلام يحسب عدد المشاركين في كل دورة ٣- وجدول "النزول الميداني ٤-وجدول" المادة التي تم توزيعها" اريد ان يكون هناك نموذج بحث بين تاريخين لطباعة تقرير يومي واسبوعي وشهري وسنوي عندما ادخل تاريخ محدد باليوم مثلا يقوم بعرض التقرير وفي اعمال ذلك اليوم فقط لاجتماعات ذلك اليوم ودورات ذلك اليوم ونزول ذلك اليوم و وتوزيع مادة ذلك اليوم وكذلك عندما اقوم بادخال تاريخ اليوم الى بعد سبعة يقوم بعرض ماتم في تلك السبعة الايام وهكذا بالنسبة للشهري والسنوي

Try Sub Test() Dim ws As Worksheet, m As Long, i As Long, ii As Long Application.ScreenUpdating = False Set ws = ActiveSheet: m = 2 With ws .Columns("K:M").Clear .Columns("M").ColumnWidth = 11 With .Range("K1").Resize(, 3) .Value = Array("Group", "Number", "Work Date") .Interior.Color = RGB(146, 205, 220) .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter End With For i = 2 To 6 If .Cells(i, 2).Value < .Cells(i, 3).Value And IsNumeric(.Cells(i, 2).Value) And IsNumeric(.Cells(i, 2).Value) Then For ii = .Cells(i, 2).Value To .Cells(i, 3).Value .Cells(m, "K").Resize(, 3).Value = Array(.Cells(i, 1).Value, ii, .Cells(i, 4).Value) m = m + 1 Next ii End If Next i End With Application.ScreenUpdating = True End Sub

تفضل أخي الكريم @أبو محمد سعيد ، هذا السطر :- Like "*" & [Forms]![Form_Name]![Text_Box] & "*" وهذا مثال تجريبي للفكرة Search By Like.accdb

السلام عليكم ورحمة الله وبركاته أريد استخدام الدالة like عن طريق الاستعلام للبحث عن طريق أي جزء من الحقل

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

عند البحث عن اسم حساب جديد يكون رقمه بعد ال 166 بشيت اسماء الحسابات و العملات بعد يظر هذا الخطا اريد المساعدة منكم للحل *للعلم انا اخذت هذا العمل من هذا الموقع وعدلت عليه بما يناسب عملي* ‏‏‏‏جديد 1 - نسخة - نسخة.rar

للأسف ليس لي تجربة حقيقية مع SQL Server لأخدمك بها