عمر ضاحى

تمام اشتغل كده 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 لكن بيجبلى خطأ ف ممكن اعرف سببها

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

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

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

up

الى حد ما نجحت انى اجمع المعلومات لكنى فى خطأ معايا اسم الاستعلام ال بيجمع ويرحل لجدول الرواتب 1_infoEmp الخطأ هو *مرفق ملف 1451.حضور وانصراف موظفينV48.rar

المشكله ان الاستعلام مش بيشوف البيانات غير لو انا واقف عليها

ما شاء الله شغل ممتاذ الله ينور

للاسف معرفتش اعملها 100% فحبيت اني اسهل على نفسي واعمل طريقة جديده لجمع المعلومات فعملت جدول مؤقت للرواتب وسوف اعمل استعلمات الحاق (حوالى 4 الى 6 استعلمات الحاق لنفس الجدول) وارسل فيه البيانات المختلفه من الاستعلمات الى الجدول انا الان واقع فى مشكله اخرى عندي استعلام التسجيل ووظيفته ان يسجل لى وقت تسجيل الرواتب و الرواتب من تاريخ الى تاريخ والاثنين الاخاره بيحصل بياناتهم من الفورم لكنه لا يعمل مش عارف ليه (الفورم بيكون مفتوح وفيه التواريخ مسجله) وعندي مشكلة فى تسجيل اجمالى الاضافى والتأخير والغياب لكل شخص يعنى عندي فى الاستعلام خمس اشخاص مثلا عندهم غياب متفوتين فى العدد الايام اريد ان ارسل لجدول الرواتب البيانات على حسب رقم الوظيفي يضعلى فى العمود بتاعه اجمالى الغياب ان وجد او يضعلى 0 او يتركها فارغ (افضل ان تكون صفر علشان الاخطأ التى من الممكن ان تحدث مستقبليا ) اعتقد انى لو عرفت احل دول كله هيكون دون مشاكل

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

استاذي الجليل جعفر @jjafferr ايضا واجهتني مشكلة اخرى لما حبيت اضيف التاريخ لاني محتاج التاريخ فى عمليت الفتلتره فكرت انى استخدم الجدول OT فى انى اعمل استعلام الحاقى ويكون مصدره الاستعلام التوحيدي ومن ثم اعمل استعلام اخر يضيف لى باقى الناس للجدول حتى يكون معي سجل الموظفين كامل للشهر لكن وجدت ان اسماء الموظفين تضاعفت ل 5 مرات (تكرار) رجعت قولت ابدأ من جديد كما هو فى شرح حضرتك غير ان عمليت الفلتره الرئيسيه لكشف الرواتب بتعتمد على ثلاث نقاط مصدر البيانات للحضور والانصراف والاضافى والغياب وهو جدول ( Dwam_Emp_ALL ) ==> منه اعمل عمليت فلتره للغياب ==> منه باعمل عمليت فلتره هل الموظف نشط ام لا =========> كل ما سبق بيعتمد على محور من محاور الاساس وهو التاريخ بدون وضع فلتره على الفتره الزمنيه وقتها هيكون صعب بل مستحيل ان احسب اى رواتب فتنصحنى اجعل عامل التاريخ والتفعيل يظهرو معي باى وسيله ام ان كل ما بنيته كان خطأ

الله يزيدك من علمه فى حاجات كنت اتعامل معاها كال حافظ ولم افهم معناها والان فهمت معناها زي ان ما كنت اعرف هذه المعلومه غير الخطوات التاليه ولما كنت اوصل للخطأ فى الاغلب ما كنت افهم سببه فكنت ارجع كل حاجه زي ما كانت لاني كنت اظن انى امشي فى طريق خطأ الان عرفت انى كنت على بداية الطريق الصحيح لكنى لم ادخله لانى كنت اجهل ما فيه او اخشي ان اخرب الدنيا فوق انك حليت مشكلتى الا انك علمتني درس جيدا اسأل الله الكريم رب العرش العظيم ان يبارك لك فى عمرك وصحتك ومالك ودنياك وان يغفر لك ويجعلك من اهل الجنه وان يزيدك من علمه جزاك الله كل خير عنا ❤️

استاذي ومعلمي الجليل جعفر @jjafferr انا حاولت كثير لكن فشلت ف كل محولاتي (اول مره اجرب الاستعلام التوحيدي - قراءة عنه لكنى لم اجربه من قبل) جربت انى اضع اعمدة توازى العدد للاستعلام الاخر برضه منفعش اما ان يصدر لى بيانات مكرر او لا يصدر شئ انا ارفقت ملف هل اذا سمح وقت حضرتك تنظر فى الاستعلامات الاتيه وتخبرني ايه سبب عدم نجاحي فى الدمج الاستعلمات هي : -ForSalary1 التى سوف يتم تجميع البيانات فيها -ForSalary1Appsen الطرف الاول -ForSalary1OT الطرف الثاني -Emp_Info (هذا اسم جدول به جميع الاسماء والرواتب سوف احتاجه للحصول على الاسماء وباقى المعلومات الاخري) اريد ان اصنع استعلام يحتى على ارقام الموظفين واسمائهم وبيانات الراتب واجمالى الغياب لكل موظف ان وجد له غياب او الاضافى ايضا ولك جزيل الشكر حضور وانصراف موظفينV47.rar

السلام عليكم اهل الرأي والخبره بعد اذن حضرتكم انا معايا مشكلة فى عمل كشف رواتب المشكله هي عاوز اجمع اكثر من استعلام تجميعي معا 1- عندي جدول فيه رقم الموظف واسمه ومفردات الراتب 2- عندي استعلام تجميعي بيجمعلى البيانات من الحضور والانصراف للغياب 3- عندي استعلام تجميعي بيجمعلى البيانات من الحضور والانصراف للاضافى عاوز اربط بينهم كيف ممكن الربط بينهم ؟ فى استعلام واحد علشان اقدر اعتمد عليه فى عمل الرواتب الشهريه وايه هي الطرق المتاحه وافضلهم فى هذه النقطه ولكم جزيل الشكر