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

kanory

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

  • Posts

    2354

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

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

  • Days Won

    139

 نوع المحتوي 

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

  1. kanory
    اضافة لما ذكر اخي @مبرمج سابق هذا الامر العام .... DoCmd.PrintOut printrange,pagefrom,pageto,printquality,copies,collate
  2. 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
  3. kanory
    وعليكم السلام ورحمة الله هل عملت لها ضغط واصلاح ؟؟؟؟؟
  4. kanory
    ممكن تعمل قائمة بالاوامر التي تريدها عند الضغط على زر طباعة / معاينة تظهر هذه القائمة المنبثقة مثل الصور .... وتجد في موضوع الاستاذ @jjafferr الكثير من المهارات المطلوبة ::
  5. kanory
    طيب فكرة لك نفس طريقتي السابقة نحضر فيها البيانات لجدول ثم نقطع الاتصال .... فيكون مصدر بيانات النموذج من نفس الجدول ولي قاعدة البيانات الاصلية .....
  6. kanory
    وعليكم السلام ورحمة الله .... واياك ...
  7. kanory
    يشرفني اكون اول من رد على ابداعك ..... جاري التجربة ..... شكرا لك ايها المبدع ....
  8. kanory
    مشاركة مع الاستاذ خالد .... بارك الله فيه .... غير قناع الادخال في النموذج لمربع نص التاريخ الى هذا .... 00/00/"20"00
  9. kanory
    انت الاجمل باثراء الموضوع .... فشكرا لك ...
  10. kanory
    طيب ::::: اولا تخلص من العمليات الحسابية التي دونتها في مربعي النص Earning و Tak_Amnt حسب الصور المرفقة ثانيا : في مربع النص Perst وفي حدث بعد التحديث كما في الصورة ... ضع هذا الكود وجرب .... Me.Earning = [Com_Amnt] * [Perst] Me.Tak_Amnt = Val([Com_Amnt]) + Val([Earning]) Me.Requery واعلمنا بالنتيجة .....
  11. kanory
    هل جربت الكود اخي الكريم ...... أم تتحدث قبل التجريب .... على العموم تفضل ملف بعد التعديل ..... تأريخ تلقائي.rar
  12. kanory
    في شرحك ثلاث قيم للادخال وهي ( Com.Amount و Pers و Earning ) وفي النموذج قيمتان وهي ( Pers و Earning ) ...... اين الثالثة Com.Amount ........ انظر الصورة
  13. kanory
    لم ارى خانة فاضية .... انظر
  14. kanory
    ماذا تقصد بهذه ...
  15. kanory
    لم افهم الية العميل ولن جرب المرفق ربما انتهت مشكلتك ........ Company-v02.rar
  16. 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
  17. kanory
  18. kanory
  19. kanory
    وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ...... Aziz (1).rar
  20. kanory
    تفضل مثالك بعد التعديل ..... وهذه صورة للنتيجة وبدون استعلام ظاهر .... kan.rar
  21. kanory
    طيب الكود يقوم بالازم .... ضعه في حدث عند تحميل النموذج ... اذا وصلت جهازي سوف ادرج لك المثال المطبق ان شاء الله تعالى واعتقد انه يفي بالغرض ولا يمكن الوصول الى بيانات السيرفر غن قبل العابثين 🤣
  22. kanory
    طيب ... ايش رأيك في هذا ...... اذا كان ينفعك ... Me.RecordSource = "SELECT *FROM tbl_Employ IN 'C:\Users\ACER\Desktop\AdoForm\Adb_Dat.accdb'[access];"
  23. kanory
    شكرأ اخي @jjafferr انقذتني لان الملف كبير جدا
  24. kanory
    ارفعها لاي موقع رفع وادرج الرابط هنا .......
  25. kanory
    طبعا الشيئ نفسة في الاستعلام .... انظر ....
×
×
  • اضف...

Important Information

  I accept