kanory

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

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

كيف لا ... وقد اختصرت لنا كتابة الاكواد وسرعة الانجاز .... اشكرك مرة اخرى اخي الكريم وكل جهد تبذلة في المنتدى .... هنيئا لنا بك ..

في مصدر بيانات مربع النص ضع هذا =DSum("[Odb_Qty]";"[Odb_PlaningMonthe_ForCost_ProdactionSUM]";"[Odb_Type] Like 'برميل'") وغير لبقية مربعات النص جالون كرتون بالمناسبة هذه الاداة مفيدة جدددددددددددددددددددددددددددا وشكرا لصانعها وبارك فيه

طيب :::: خلينا نفهم انت كيف بتدخل هذه الارقام هل هناك نموذج لذلك ؟؟؟ اذا كانت الاجابة نعم .... 1- نحتاج ان نربط بين جدول هذه البيانات ( الغياب والحضور والقيد ) وجدول الامتحان ........ على الاقل وقت ادخال تلك البيانات 2- نحتاج نضيف حقول في جدول الغياب لليوم والتاريخ والفترة والمادة أو نختصرها بـ ID خاص في جدول الامتحان وهذا الرقم يضاف عند تسجيل البيانات في جدول الغياب 3- الخطوة الاخيرة استعلام للحقول التي نحتاجها في التقرير ....

العين لا تعلو على الحاجب ..... عارف حتقول اذا كان الشخص مقلوب ..... هههههههه

تفضل طريقة اخرى ......... 'السابق Me.نص1 = Me.نص1.ItemData(Me.نص1.ListIndex - 1) 'التالي Me.نص1 = Me.نص1.ItemData(Me.نص1.ListIndex + 1) 'اول سجل Me.نص1 = Me.نص1.ItemData(0) 'اخر سجل Me.نص1.Selected(Me.نص1.ListCount - 1) = True

ومن دون الكود الطويل لديك ..... استخدم هذا ..... مشاركة مع اخي الكريم واستاذي @Barna بارك الله فيه ..... Dim DstFile As String DstFile = CurrentProject.Path & "\" & Format(Now, "hhmmss") & ".doc" DoCmd.OutputTo acOutputTable, "tabasd", "RichTextFormat(*.rtf)", DstFile, True, "", 0, acExportQualityPrint

هذه حالة المبرمج ..... بعد كتابة كود معين ..... ثم العودة اليه بعد فترة ...... يدرك انه كان بامكاته القيام بذلك بطرق كثيرة اخرى مختصرة ... هههههه .... هذه حالنا وخاصة مع تقدم العمر طبعا انا اقصد نفسي 😁 .. اما انت بسبب مشاغل الدنيا لانك لازلت شابا ربنا يعطيك طولة العمر ...

مشاركة مع حبيبنا المهندس قاسم ..... Not Between 500 And 505

امسح اسم التقرير الموجود في الكود واعد كتابته لان به مسافة غير مرئية ولا يكثر من استخدام On Error Resume Next

استبدل هذا الجزء .... Vl = InputBox("ادخل التاريخ") بهذا الجزء ...... Vl = Forms!test1!tx4

وعليكم السلام ورحمة الله وبركاته نعم اخي الكريم ..يمكن ذلك .. وذلك في رأس الصفحة

قد يسأل سائل وكيف يعرف البرنامج التقرير المراد طباعته ؟؟؟؟؟؟ الجواب : يجب بالطبع قبل هذا الاجراء مباشرةً ان نضع الاجراء الخاص بفتح التقرير المراد طباعته

جزاك الله خيرا .... فاتني التوضيح .... بارك الله فيك ..

اضافة لما ذكر اخي @مبرمج سابق هذا الامر العام .... DoCmd.PrintOut printrange,pagefrom,pageto,printquality,copies,collate

تفضل <<<<<<< Public Sub colorSet(frm As Form) With frm.Form .Section(acHeader).BackColor = 12874308 .Section(acDetail).BackColor = 16769023 .Section(acFooter).BackColor = 12874308 End With End Sub

وعليكم السلام ورحمة الله هل عملت لها ضغط واصلاح ؟؟؟؟؟

ممكن تعمل قائمة بالاوامر التي تريدها عند الضغط على زر طباعة / معاينة تظهر هذه القائمة المنبثقة مثل الصور .... وتجد في موضوع الاستاذ @jjafferr الكثير من المهارات المطلوبة ::

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

وعليكم السلام ورحمة الله .... واياك ...

يشرفني اكون اول من رد على ابداعك ..... جاري التجربة ..... شكرا لك ايها المبدع ....

مشاركة مع الاستاذ خالد .... بارك الله فيه .... غير قناع الادخال في النموذج لمربع نص التاريخ الى هذا .... 00/00/"20"00

انت الاجمل باثراء الموضوع .... فشكرا لك ...

طيب ::::: اولا تخلص من العمليات الحسابية التي دونتها في مربعي النص Earning و Tak_Amnt حسب الصور المرفقة ثانيا : في مربع النص Perst وفي حدث بعد التحديث كما في الصورة ... ضع هذا الكود وجرب .... Me.Earning = [Com_Amnt] * [Perst] Me.Tak_Amnt = Val([Com_Amnt]) + Val([Earning]) Me.Requery واعلمنا بالنتيجة .....