عمر ضاحى

اولا باشكرك على تعبك ثانيا ملفك شغال تمام لكن لما طبقت بقى يفلتر ولما اروح للبوكس الثاني يلغي الفلتره الاولى ويعيد الفلتره من اول وجديد مرفق ملف للمشكله لما غيرتها من . الى ! الفلتر لم يعمل جيدا الفلتره باكثر من معيار.rar

🤣 والله فكرت فيها وانا ف الطريق للسكن بس عمرك اطول من عمري وسبقتنى بها هجرب واشوف الفكرتين

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

بعتذر على هذا ظنا منى ان الامر لا يحتاج لها فى المرفق اول ما يتم تشغيل القاعدة سيفتح معك الشاشة المطلوب برمجتها يوجد 2 بحث اريد اذا وضعت كلمة فى البحث الاول (ولنفترض رقم الموظف ) يظهر لى النتائج واذا وضعت كلمة او رقم فى البحث الاخر ولنفترض تاريخ او ملاحظه او اى شئ اخر يظهر لى باقى النتائج حضور وانصراف موظفين.rar

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

استاذي الكريم @د.كاف يار اولا باشكر حضرتك شكرا جزيلا على رد حضرتك لكن انا كنت عاوز صيخه اضعها فى الاستعلام نفسه لانى شغال بالاستعلام دون اكود فقط معادلات فهل يمكن تطوير هذا المعادلة الى شئ اخر لاعطائى نفس النتيجه Like "*" & [Forms]![frmSearchAllReqords]![txtSearch].[Text] & "*"

هذا لتوضيح الفكره بشكل عملى مرفق ملف الفكره tree.accdb

اسمح لى بتقديم فكره اعتقد يمكنك ان تنفذ هذا عن طريق عمل جدول لكل مستوي يعنى الجدول الاول ليكن اسمه مثلا tblA1 وهذا سوف تكون عباره عن بيانات المستوي الاول (الاصول و الاصول الثابته ......) ومن ثوم تعمل جدول اخر وليكن اسمه tblA2 وهذا للمستوي الثاني وهكذا وثم تعمل علاقه بين الجداول حسب المستويات وقد يفيدك الشباب هنا بفكره افضل من هذا لكن هذا ما استطعت ان افكر فيه لمشكلتك

السلام عليكم ورحمة الله وبركاته عندي نموذج ونموذج فرعي فى النموذج الرئيسي يوجد مربع نص اكتب فيه القيمه التى اريد البحث عنها فيظهر لى النتائج فى النموذج الفرعي وهو يعمل جيدا دون مشاكل باستخدام المعيار Like "*" & [Forms]![frmSearchAllReqords]![txtSearch].[Text] & "*" الان اريد ان اضيف مربع بحث اخر باسم txtSearch2 وهذا لكي اعمل فلتره اخرى على الفلتره السابقه مثلا فى المربع الاول txtSearch ابحث عن الاسم والمربع الثاني txtSearch2 ابحث فى التواريخ او رقم التلفون او اى شئ اخر جربت ان اضيف and واضع القيمتين لكن لم تنجح معي هل فى طريقه اوفق بين المعيارين معا

^_^ ترجم علشان افهم

تم حل المشكله السبب هنا عندما قمت بالغاء مماثل للتفصيل وجعلت الاعدادات نصف مقاس الصفحه كانت النتيجه ما اردت باشكرك اخي @ابو البشرعلى محاولتك فى حل المشكله

مرفق ملف test.rar وانا اريد ان اصل لهذه النتيجه

فعلت ولكن النتيجه هي العناون تكرر مع كل اسم انا اريد ان يتكرر فى رأس العمود فقط

السلام عليكم اساتذتى الكرام انا كنت عاوز اعمل تقرير ببيانات العاملين (تقرير من عمودين فى الصفحه الواحده ) لكن عند استعراض التقرير يظهر لى بهذا الشكل وكما هو ظاهر من الصورة العناوين تظهر فى العمود الاول ولا تظهر فى العمود الثاني كيف اجعل العناوين تتكرر فى العمودين

تمام اشتغل كده x = FPath & "\" & SFileName هذا السطر اذا كنت حابب اضيف فيه قيمه متغيره (اسماء المجلدات التى بها الملفات (فى نفس مسار البرنامج) (والمقصودة بالقيمه المتغيره هنا الكمبو بوكس ) هل ازيلد "\" واضع مكانها مثلا me.FolderName

ظهرة هذه المشكله

ما شاء الله لك كل الشكر والعرفان بجرب الملف وممكن احول التكت بوكس الى كمبوبوكس واجعل مصدره جدول والجدول به مسار الملفات المراد طباعتها واسم الملف وبكده ممكن نعمل مثلا اكثر من مجلد مجلد لملفات ال PDF ومجلد اخر مثلا لملفات الورد ومجلد اخر لملفات الاكسيل ....

LH TN LA;GI ما فى مشكله وهذه ملاحظه اشكرك عليها ولك جزيل الشكر

انا اريد ان اطبع مباشرتا بدل الفتح

انا وصلت لامر FollowHyperlink لفتح ملف ال pdf من مجلد ال pdf واصبح بهذا الشكل FollowHyperlink "pdf/04- اشعار مباشرة.pdf" لكن انا اريد ان اجعله اكثر دينماكية هجرب ادور على كود استطيع ان ادمجه مع هذا الكود

اعتقد ان السبب هو المعيار [Forms]![FORM TABLE2-2]![MOhafazh] طبعا المعيار عاوز رقم المحافظه وليس الاسم لكي يعمل لذا يتوجب عليك عمل مفتاح مخفي لكي يعرف رقم المحافظه لكي يعمل جيدا جرب واخبرني

اساتذتي الكرام تحية طيبه طبعا كما هو واضح من عنوان الموضوع عندي مجلد جنب برنامج الاكسيس وليكن اسمه (PDFFILEs) المجلد به عدة ملفات PDF وليكن اسمائهم 01-aaaaa.pdf 02-bbbbb.pdf 03-cccccc.pdf وهي ملفات عبارة عن نماذج عمل اريد ان اصمم ذر لكل ملف من هذه الملفات عند الضغط عليه يخيرني اما ان افتح الملف (PDF) (حتى اقدر احدد عدد النسخ المطلوبه للطباعه او اطبع مباشرتا (فى حالة النسخه الواحده) انا عارف انه طلب بسيط بالنسبه لكم لكنى بحثت ولم اصل لشئ مفيد او لو وصلت لشئ يكن غير كامل وليس المطلوب واغلب المواضيع بخصوص ملفات ال pdf هي للطباعه من التقارير لكني لا اريد ان اطبع من التقارير بل عندي ملف من مصادر خارجيه واريد طباعته (لتوفير الجهد للوصول الى اماكن الملفات وفتحها وطباعتها ولكم جزيل الشكر

تم بحمد لله حل المشكله بواسطة الاستاذ ابو جودي @ابو جودي بارك الله له Dim strTitleMsg As String strTitleMsg = ChrW("1607") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("40") & ChrW("32") & ChrW("1578") & ChrW("1606") & ChrW("1576") & ChrW("1610") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1607") & ChrW("32") & ChrW("41") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1575") & ChrW("1605") Dim MsgStyl As String MsgStyl = vbMsgBoxRight + vbMsgBoxRtlReading + vbCritical Dim MsgOPNull As String MsgOPNull = ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1601") & ChrW("1590") & ChrW("1604") & ChrW("1603") & ChrW("32") & ChrW("1575") & ChrW("1582") & ChrW("1578") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1606") & ChrW("1605") & ChrW("1591") Dim cboMontNull As String cboMontNull = ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1601") & ChrW("1590") & ChrW("1604") & ChrW("1603") & ChrW("32") & ChrW("1575") & ChrW("1582") & ChrW("1578") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1588") & ChrW("1607") & ChrW("1585") _ Dim cboEmbNull As String cboEmbNull = ChrW("1604") & ChrW("1605") & ChrW("32") & ChrW("1610") & ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1582") & ChrW("1578") & ChrW("1610") & ChrW("1575") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1608") & ChrW("1592") & ChrW("1601") Select Case Nz(Me.OP, "") Case Is = "": MsgBox MsgOPNull, MsgStyl, strTitleMsg Case Is = 1 If Len(Me.RegReference) = 0 Or IsNull(Me.RegReference) Or Me.RegReference = "" Or Me.RegReference = vbNullString Then MsgBox cboMontNull, MsgStyl, strTitleMsg Else DoCmd.OpenReport "PrintSalaryAll", acViewPreview End If Case Is = 2 If Len(Me.RegReference) = 0 Or IsNull(Me.RegReference) Or Me.RegReference = "" Or Me.RegReference = vbNullString Then MsgBox cboMontNull, MsgStyl, strTitleMsg ElseIf Len(Me.cbEmpNo) = 0 Or IsNull(Me.cbEmpNo) Or Me.cbEmpNo = "" Or Me.cbEmpNo = vbNullString Then MsgBox cboEmbNull, MsgStyl, strTitleMsg Else DoCmd.OpenReport "PrintSalaryOne", acViewPreview ' End If Case Is = 3 If Len(Me.RegReference) = 0 Or IsNull(Me.RegReference) Or Me.RegReference = "" Or Me.RegReference = vbNullString Then MsgBox cboMontNull, MsgStyl, strTitleMsg Else DoCmd.OpenReport "PrintSalaryAll_CasH", acViewPreview End If Case Is = 4 If Len(Me.RegReference) = 0 Or IsNull(Me.RegReference) Or Me.RegReference = "" Or Me.RegReference = vbNullString Then MsgBox cboMontNull, MsgStyl Else DoCmd.OpenReport "PrintSalaryAll_Transfer", acViewPreview End If End Select نسأل الله ان يتقبل منه

ابشر 0101000.rar

الشروط البسيطه سهله انا محتاج ابني شروط بناء على اختيار من 4 اختيارات طبعا الاختيار الاول ( جميع الموظفين الكل ) لازم يتم اختيار الفتره من الشهور وورقم الاختيار 1 والاختيار الثاني موظف واحد هيكون هناك 3 شروط (الاول الاختيار نفسه وثانيا الشهر وثالثا اسم الموظف) اما الثالث والرابع فهما مثل الاول