اذهب الي المحتوي
أوفيسنا

kanory

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2312

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

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

  • Days Won

    138

 نوع المحتوي 

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

  1. kanory
    ومن دون الكود الطويل لديك ..... استخدم هذا ..... مشاركة مع اخي الكريم واستاذي @Barna بارك الله فيه ..... Dim DstFile As String DstFile = CurrentProject.Path & "\" & Format(Now, "hhmmss") & ".doc" DoCmd.OutputTo acOutputTable, "tabasd", "RichTextFormat(*.rtf)", DstFile, True, "", 0, acExportQualityPrint
  2. kanory
    هذه حالة المبرمج ..... بعد كتابة كود معين ..... ثم العودة اليه بعد فترة ...... يدرك انه كان بامكاته القيام بذلك بطرق كثيرة اخرى مختصرة ... هههههه .... هذه حالنا وخاصة مع تقدم العمر طبعا انا اقصد نفسي 😁 .. اما انت بسبب مشاغل الدنيا لانك لازلت شابا ربنا يعطيك طولة العمر ...
  3. kanory
    مشاركة مع حبيبنا المهندس قاسم ..... Not Between 500 And 505
  4. kanory
    امسح اسم التقرير الموجود في الكود واعد كتابته لان به مسافة غير مرئية ولا يكثر من استخدام On Error Resume Next
  5. kanory
    استبدل هذا الجزء .... Vl = InputBox("ادخل التاريخ") بهذا الجزء ...... Vl = Forms!test1!tx4
  6. kanory
    وعليكم السلام ورحمة الله وبركاته نعم اخي الكريم ..يمكن ذلك .. وذلك في رأس الصفحة
  7. kanory
    قد يسأل سائل وكيف يعرف البرنامج التقرير المراد طباعته ؟؟؟؟؟؟ الجواب : يجب بالطبع قبل هذا الاجراء مباشرةً ان نضع الاجراء الخاص بفتح التقرير المراد طباعته
  8. kanory
    جزاك الله خيرا .... فاتني التوضيح .... بارك الله فيك ..
  9. kanory
    اضافة لما ذكر اخي @مبرمج سابق هذا الامر العام .... DoCmd.PrintOut printrange,pagefrom,pageto,printquality,copies,collate
  10. kanory
    تفضل <<<<<<< 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
  11. kanory
    وعليكم السلام ورحمة الله هل عملت لها ضغط واصلاح ؟؟؟؟؟
  12. kanory
    ممكن تعمل قائمة بالاوامر التي تريدها عند الضغط على زر طباعة / معاينة تظهر هذه القائمة المنبثقة مثل الصور .... وتجد في موضوع الاستاذ @jjafferr الكثير من المهارات المطلوبة ::
  13. kanory
    طيب فكرة لك نفس طريقتي السابقة نحضر فيها البيانات لجدول ثم نقطع الاتصال .... فيكون مصدر بيانات النموذج من نفس الجدول ولي قاعدة البيانات الاصلية .....
  14. kanory
    وعليكم السلام ورحمة الله .... واياك ...
  15. kanory
    يشرفني اكون اول من رد على ابداعك ..... جاري التجربة ..... شكرا لك ايها المبدع ....
  16. kanory
    مشاركة مع الاستاذ خالد .... بارك الله فيه .... غير قناع الادخال في النموذج لمربع نص التاريخ الى هذا .... 00/00/"20"00
  17. kanory
    انت الاجمل باثراء الموضوع .... فشكرا لك ...
  18. kanory
    طيب ::::: اولا تخلص من العمليات الحسابية التي دونتها في مربعي النص Earning و Tak_Amnt حسب الصور المرفقة ثانيا : في مربع النص Perst وفي حدث بعد التحديث كما في الصورة ... ضع هذا الكود وجرب .... Me.Earning = [Com_Amnt] * [Perst] Me.Tak_Amnt = Val([Com_Amnt]) + Val([Earning]) Me.Requery واعلمنا بالنتيجة .....
  19. kanory
    هل جربت الكود اخي الكريم ...... أم تتحدث قبل التجريب .... على العموم تفضل ملف بعد التعديل ..... تأريخ تلقائي.rar
  20. kanory
    في شرحك ثلاث قيم للادخال وهي ( Com.Amount و Pers و Earning ) وفي النموذج قيمتان وهي ( Pers و Earning ) ...... اين الثالثة Com.Amount ........ انظر الصورة
  21. kanory
    لم ارى خانة فاضية .... انظر
  22. kanory
    ماذا تقصد بهذه ...
  23. kanory
    لم افهم الية العميل ولن جرب المرفق ربما انتهت مشكلتك ........ Company-v02.rar
  24. kanory
    تفضل ..... Sub kan() On Error GoTo w Dim i As Integer Dim sCount As Integer sCount = Me.Recordset.RecordCount DoCmd.GoToRecord , , acFirst For i = 0 To Me.Recordset.RecordCount Me.datem = DateAdd("d", i, Me.kano) DoCmd.GoToRecord , , acNext Next DoCmd.Requery Exit Sub w: MsgBox "تم" End Sub Private Sub تأريخ_تلقائي_Click() Me.kano = Me.datem kan End Sub
  25. kanory
×
×
  • اضف...

Important Information

  I accept