اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

kanory

الخبراء
  • Posts

    2345
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    138

كل منشورات العضو kanory

  1. هذه دلالة انك وجدت الاجابة ........ وعادة توضع لافضل اجابة لك ولسؤالك ..... لان من يرى علامة الصح فلن يدخل الموضوع ( على اساس انك وجدت ضالتك ) فلن تحصل على الاجابات أخي الكريم ...
  2. هدية رائعة من شخص مبدع .... لي ملاحظتن : الاولى : عند ضغط الملف او فكه لو ترك المجال لضغط الملف بدون او بكلمة مرور .... حتى تكون هناك مرونه في استخدام البرنامج حسب ما يرده المستخدم . الثانية : عند ضغط الملفات ذات الاسماء العربية تظهر في الملف المضغوظ على شكل علامات استفهام الثالثة : اشكرك على الهدية القيمة التي نحتاجها كثيرا وخاصة لعمل النسخ الاحتياطية ....
  3. على العموم كل هذه توقعات منكم .. وشكرا الله لكم .... لكن تتوقف الاجابة على رد السائل او ارفاق مرفق واضح لما يريد فعله بالضبط ..
  4. كيف لا ... وقد اختصرت لنا كتابة الاكواد وسرعة الانجاز .... اشكرك مرة اخرى اخي الكريم وكل جهد تبذلة في المنتدى .... هنيئا لنا بك ..
  5. في مصدر بيانات مربع النص ضع هذا =DSum("[Odb_Qty]";"[Odb_PlaningMonthe_ForCost_ProdactionSUM]";"[Odb_Type] Like 'برميل'") وغير لبقية مربعات النص جالون كرتون بالمناسبة هذه الاداة مفيدة جدددددددددددددددددددددددددددا وشكرا لصانعها وبارك فيه
  6. طيب :::: خلينا نفهم انت كيف بتدخل هذه الارقام هل هناك نموذج لذلك ؟؟؟ اذا كانت الاجابة نعم .... 1- نحتاج ان نربط بين جدول هذه البيانات ( الغياب والحضور والقيد ) وجدول الامتحان ........ على الاقل وقت ادخال تلك البيانات 2- نحتاج نضيف حقول في جدول الغياب لليوم والتاريخ والفترة والمادة أو نختصرها بـ ID خاص في جدول الامتحان وهذا الرقم يضاف عند تسجيل البيانات في جدول الغياب 3- الخطوة الاخيرة استعلام للحقول التي نحتاجها في التقرير ....
  7. العين لا تعلو على الحاجب ..... عارف حتقول اذا كان الشخص مقلوب ..... هههههههه
  8. تفضل طريقة اخرى ......... 'السابق 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
  9. ومن دون الكود الطويل لديك ..... استخدم هذا ..... مشاركة مع اخي الكريم واستاذي @Barna بارك الله فيه ..... Dim DstFile As String DstFile = CurrentProject.Path & "\" & Format(Now, "hhmmss") & ".doc" DoCmd.OutputTo acOutputTable, "tabasd", "RichTextFormat(*.rtf)", DstFile, True, "", 0, acExportQualityPrint
  10. هذه حالة المبرمج ..... بعد كتابة كود معين ..... ثم العودة اليه بعد فترة ...... يدرك انه كان بامكاته القيام بذلك بطرق كثيرة اخرى مختصرة ... هههههه .... هذه حالنا وخاصة مع تقدم العمر طبعا انا اقصد نفسي 😁 .. اما انت بسبب مشاغل الدنيا لانك لازلت شابا ربنا يعطيك طولة العمر ...
  11. مشاركة مع حبيبنا المهندس قاسم ..... Not Between 500 And 505
  12. امسح اسم التقرير الموجود في الكود واعد كتابته لان به مسافة غير مرئية ولا يكثر من استخدام On Error Resume Next
  13. استبدل هذا الجزء .... Vl = InputBox("ادخل التاريخ") بهذا الجزء ...... Vl = Forms!test1!tx4
  14. وعليكم السلام ورحمة الله وبركاته نعم اخي الكريم ..يمكن ذلك .. وذلك في رأس الصفحة
  15. قد يسأل سائل وكيف يعرف البرنامج التقرير المراد طباعته ؟؟؟؟؟؟ الجواب : يجب بالطبع قبل هذا الاجراء مباشرةً ان نضع الاجراء الخاص بفتح التقرير المراد طباعته
  16. جزاك الله خيرا .... فاتني التوضيح .... بارك الله فيك ..
  17. اضافة لما ذكر اخي @مبرمج سابق هذا الامر العام .... DoCmd.PrintOut printrange,pagefrom,pageto,printquality,copies,collate
  18. تفضل <<<<<<< 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
  19. وعليكم السلام ورحمة الله هل عملت لها ضغط واصلاح ؟؟؟؟؟
  20. ممكن تعمل قائمة بالاوامر التي تريدها عند الضغط على زر طباعة / معاينة تظهر هذه القائمة المنبثقة مثل الصور .... وتجد في موضوع الاستاذ @jjafferr الكثير من المهارات المطلوبة ::
  21. طيب فكرة لك نفس طريقتي السابقة نحضر فيها البيانات لجدول ثم نقطع الاتصال .... فيكون مصدر بيانات النموذج من نفس الجدول ولي قاعدة البيانات الاصلية .....
  22. وعليكم السلام ورحمة الله .... واياك ...
  23. مشاركة مع الاستاذ خالد .... بارك الله فيه .... غير قناع الادخال في النموذج لمربع نص التاريخ الى هذا .... 00/00/"20"00
  24. انت الاجمل باثراء الموضوع .... فشكرا لك ...
×
×
  • اضف...

Important Information