عمر ضاحى

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

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

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

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

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

up

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

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

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

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

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