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

kanory

الخبراء
  • Posts

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

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

  • Days Won

    140

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

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

Important Information