kanory

هل جربت الكود اخي الكريم ...... أم تتحدث قبل التجريب .... على العموم تفضل ملف بعد التعديل ..... تأريخ تلقائي.rar

في شرحك ثلاث قيم للادخال وهي ( Com.Amount و Pers و Earning ) وفي النموذج قيمتان وهي ( Pers و Earning ) ...... اين الثالثة Com.Amount ........ انظر الصورة

لم ارى خانة فاضية .... انظر

ماذا تقصد بهذه ...

لم افهم الية العميل ولن جرب المرفق ربما انتهت مشكلتك ........ Company-v02.rar

تفضل ..... 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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ...... Aziz (1).rar

تفضل مثالك بعد التعديل ..... وهذه صورة للنتيجة وبدون استعلام ظاهر .... kan.rar

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

طيب ... ايش رأيك في هذا ...... اذا كان ينفعك ... Me.RecordSource = "SELECT *FROM tbl_Employ IN 'C:\Users\ACER\Desktop\AdoForm\Adb_Dat.accdb'[access];"

شكرأ اخي @jjafferr انقذتني لان الملف كبير جدا

ارفعها لاي موقع رفع وادرج الرابط هنا .......

طبعا الشيئ نفسة في الاستعلام .... انظر ....

واذا تريدها في التقرير بدون استعلام انظر الصورة ....

هل هذه الصورة المطلوبة ..... تفضل ..... Expr2: Round([t]/[tt]*100;2) & "%" استخدم هذا في الاستعلام

وعليكم السلام ورحمة الله وبركاته معوض خير ..... هذا ما تم استيراده ...... برنامج سلف العاملين 2022 (AccessFIX).mdb

الاكواد موجودة في المنتدى لعلك تبحث عنها .... أو ان ان وجدت فرصة اقتطعها من برنامجي لادرجها هنا .... لانها تصبح غير قابلة التعديل وخاصة للنماذج والتقارير ..... اما الجداول فممكن التعديل عليها .... السائل كان يسأل عن النماذج ..... والافضل دائما في حالة البرامج اجعلها قاعدتين ( امامية - خلفية ) ليسهل التعامل معها سواءا كانت MDE أ MDB

طلبنا المرفق حتى لا تطول الاستفسارات والتعديلات .... تفضل ........... Forms![Customers]![Address].ColumnWidth = -2 وانا اتوقف عند هذا الحد !!!

ممكن تزودنا بمرفق بسيط للفكرة وماذا تريد ان تعمل ... بارك الله فيك

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

وعليكم السلام ورحمة اله وبركاته .... اذا كانت نسخ البرنامج تم توزيعها بصيغة ( MDB أو ACCDB ) يمكن ارسال برنامج صغير فيه النماذج المعدلة .... وظيفة هذا البرنامج حذف النماذج القديمة من البرنامج لدي المستخدمين ثم اضافة النماذج المعدلة الى برامج المستخدمين ... ( لكن يجب عمل نسخ احتياطية قبل ذلك ) طبعا هناك طرق اخرى ... لو استخدمت البحث في المنتدى كان أفضل لاثراء افكارك بافكار أخرى ... ..............................................................................................................

أو جرب هذا الكود ..... DoCmd.OutputTo acReport, "rpt1"

طيب حاول البحث في المنتدى تجد العديد من المواضيع منها هذا الشرح .....