عمر ضاحى

باعتذر على التأخر فى الرد لظروف الشغل الان هذا تفعلها انت كيفما تشاء انا اعطيتك الفكره حضرتك استخدم الطريقة المناسبه لعمل هذا ممكن تجرب هذا النموذج للاسف خبرتي فى ان ابرمج مش كبيره انا وضعت الاساس باقى ان احد ممكن يبرمجه لك لانى بصراحه حاولت لكن معرفتش افعل نقطة ان يتم الحفظ حسب الصفحه المتفعله مرفق شكل ممكن تجربه 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 شروط (الاول الاختيار نفسه وثانيا الشهر وثالثا اسم الموظف) اما الثالث والرابع فهما مثل الاول

السلام عليكم ورحمة الله وبركاته معي هذا الكود لفتح تقارير If (Me.OP) = 1 And (Me.RegReference) > 0 Then DoCmd.OpenReport "PrintSalaryAll", acViewPreview Else MsgBox "You Don't select Time Of Salary" & vbCrLf & "لم يتم اختيار فترة الرواتب", vbCritical, "Warning" & " - " & "تحذير" Exit Sub ElseIf (Me.OP) = 2 And (Me.cbEmpNo) = Null And (Me.RegReference) = Null Then DoCmd.OpenReport "PrintSalaryOne", acViewPreview Else MsgBox "You Don't select Emp No Or Time Of Salary" & vbCrLf & "لم يتم اختيار الموظف او فترة الرواتب", vbCritical, "Warning" & " - " & "تحذير" Exit Sub ElseIf (Me.OP) = 3 And (Me.RegReference) > 0 Then DoCmd.OpenReport "PrintSalaryAll_Cash", acViewPreview Else MsgBox "You Don't select Time Of Salary" & vbCrLf & "لم يتم اختيار فترة الرواتب", vbCritical, "Warning" & " - " & "تحذير" ElseIf (Me.OP) = 4 And (Me.RegReference) > 0 Then DoCmd.OpenReport "PrintSalaryAll_Transfer", acViewPreview Else MsgBox "You Don't select Time Of Salary" & vbCrLf & "لم يتم اختيار فترة الرواتب", vbCritical, "Warning" & " - " & "تحذير" End If لكن بيجبلى خطأ ف ممكن اعرف سببها

الف الف شكر على التوضيح ده كل يوم بتعلم جديد من حضرتك بارك الله فيك وزادك الله من العلم والرفعه

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

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