jjafferr

لازم ترفق طريقة الاستعمال ، علشان يعرف صاحب السؤال طريقة عمل برنامجك 🙂 جعفر

في النموذج ، على حدث "بعد التحديث" لأي حقل اساسي ، تقدر تضع هذا الكود : If Len(Me.المعرف & "") = 0 Then Me.المعرف = Nz(DMax("[المعرف]", "تتبع") + 1, 0) End If . بس نصيحة ، وبما ان البرنامج بعده في اوله ، اكتب اسماء الحقول في الجدول باللغة الانجليزية ، ومو لازم تكتب معنى الكلمة بالانجليزي ، فبدل كلمة طالب/تلميذ ، مو لازم تكتب Student ، تقدر تكتبها مثل نطقها بالعربي Talib ، مثلا 🙂 جعفر

اخي @almamare12 🙂 قصد اخوي @ابو البشر ، ان الكود يعمل بطريقة صحيحة ، ولكن معلومات المعرف غير موجودة في جدول تتبع 🙂 جعفر

وعليكم السلام 🙂 هذه المعلومة غير كافية لمعرفة اصل المشكلة !! جعفر

حياك الله 🙂

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

وعليكم السلام 🙂 جميل ، بساطة الواجهة ، والاكواد 🙂 جعفر

وعليكم السلام 🙂 شكرا اخوي @kanory اخي كمال، هنا ستجد رابط لأحد البرامج المجانية (للاستعمال الشخصي) : جعفر

وعليكم السلام 🙂 الخانات الفارغة تظهر عندك في استعلام المجاميع ، لذلك ، يجب ان تخبر الاستعلام ان يضع 0 في القيمة الفارغة باستخدام الامر NZ ، بدل هذه النتيجة . نعمل هذا التغيير . فنحصل على جعفر

سيدي الفاضل ، الخطأ مو من جانبك ، وانما من جانبي انا 🙂 انا اخبرتك سابقا : . وهذا معناه ، نأخذ حقول الاكسل : 1. A1 : من الخلية 1 في الحقل A ، 2. U655361 : الى الخلية 655361 من الحقل U . بينما لما فتحت ملف الاكسل حقك للاستعلام 6 ، اتضح انك تعديت الحقل U ووصلت الى AL . لهذا السبب ، يجب ان نختار الحقول الى حقل ابعد ، مثل BA ، فلما نغير استعلامك الى هذا الحقل : . نرى انه قد عرض جميع الحقول : . وقد قمت بتعديل هذا في برنامجك ، بالاضافة الى بعض الامور الاخرى 🙂 ولما نظرت الى الاستعلام 4 ، اتضح انك تعديت BA ، واصبح الجقل الجديد DA !! فالسؤال اللي يطرح نفسه ، هل فيه مشكلة اذا جعلت الحقول الى ابعد من هذا ؟ والجواب حسب ما ارى ، لا ، لا توجد مشكلة ، فقط بطئ بسيط في فتح الاستعلام 🙂 عند استيراد بياناتك مرة اخرى الى الجداول ، حصلت على هذا الخطأ . والذي معناه (في حالتك) ، انه في الاستعلام ، يجب عليك اختيار الحقول مرة اخرى ، بحيث ما يكون عندك حقل بهذه الطريقة جعفر 1506.3.Export captions to excel.mdb.zip

كان الموضوع شيقا ، ويفتح عالم جديد ، و لسببين رأينا اغلاق الموضوع قبل فتحة: 1. لأنه ليس برمجة الاكسس ، 2. لأنه سيحتاج الى دعم فني ، وكذلك لأنه ليس اكسس ، فليس مكانه هنا 😁 . الحمدلله ما قال: جعفر بيقول ان الموضوع سيكون مخالف 😂 جعفر

احم احم سمعتوا شباب ، يعني في منا فائدة ،يا الله صيروا شطّار واسمعوا الكلام 😎

وعليكم السلام دكتور محمد 🙂 هذه معلومة جديدة تضاف الى رصيدي ، شكرا لك 🙂 جعفر

وعليكم السلام اخوي احمد 🙂 ما ادري انت راسلت من ، ولكني الآن ارفع موضوعك للإدارة 🙂 جعفر

وعليكم السلام اخوي امير 🙂 اذا اردت استعمال الكود الموجود في مرفقي ، وتضع كلمة سر على ملف الاكسل الذي تم تصديره ، فاليك الاختيارات: بدل هذه الاسطر 'Save wb objXLWb.Save objXLWb.Close استعمل احد هذه الخيارات 1. اذا اردت ان يكون للملف كلمة سر فقط 'Save wb objXLWb.SaveAs Password:="1234" objXLWb.Close 2. 4567اذا اردت ان يكون للملف كلمة سر لفتحته 1234، ولكن لا يستطيع تعديله إلا بكلمة سر ثانية 'Save wb objXLWb.SaveAs Password:="1234", writeResPassword:="4567" objXLWb.Close 'https://exceloffthegrid.com/vba-code-password-protect-excel-file/ . اما اذا سؤالك كان بحفظ الاكسل بطريقة اخرى ، فرجاء اعمل موضوع جديد 🙂 جعفر

متابع ومنتظر 🙂 جعفر

السلام عليكم 🙂 يمكننا عمل طريقة تلقائية للعمليات التي تقوم بها ، هناك بعض الاسئلة التي ممكن تساعدنا في مساعدتك بشكل افضل : 1. هل ستصدر/تحذف/تستورد بيانات جميع جداولك : أ- يمكنك ان تكتب اسم الجدول بطريقة نعرف انه من الجداول التي ستصدرها (مثل: جدول استعارة_tbl ، او tbly_table_Name ن او اي حروف او ارقام (في نهاية الاسم) )، ب- او تكتب اسم الجدول بطريقة نعرف انها من الجداول التي لا تريد تصديرها ، ج- او تعمل جدول خاص تدخل فيه اسماء للجداول التي تريد تصديرها ، وطبعا الاختيار اعلاه سينطبق على الحذف والاستيراد. 2. هل جميع ملفات الاكسل ستكون في مجلد واحد ، او اكثر من مجلد؟ جعفر

لم ترفق محاولتك ، فلن استطيع مساعدتك في توجيهك لتصحيح خطأك !! انا اعطيتك الخطوات في هذه المشاركة: . ولما تعمل الخطوات ، يكون استعلامك (طبعا ملف الاكسل لازم يكون موجود في المسار) : SELECT T1.* FROM [Excel 8.0;HDR=YES;IMEX=1;Database=D:\Documents\Downloads\MyBackup\سجل الجرد.xls].[Sheet1$A1:U65536] AS T1; . افتح الاستعلام في وضع التصميم ، ثم اتبع الخطوات اللي اعطيتك في الرابط اعلاه. جعفر

وعليكم السلام 🙂 لمعرفة تاريخ شهرين من اليوم: dateadd("m",2,date) . اذن، اذا شهرين من اليوم اكبر من او يساوي شهرين من بداية العقد ، dateadd("m",2,date) >= dateadd("m",2,Start_Date) . جعفر

وعليكم السلام 🙂 مع/بدون تصفية ، نفس الطريقة ، ولكن هل rbt_Ahsa_Emploly اسم متغير او اسم تقرير ؟ اذا كان اسم تقرير ، فيجب ان تضع الاسم بين علامتي "" ، هكذا : DoCmd.OpenReport "rbt_Ahsa_Empoly", acViewReport, , , , Me.Name . واذا كان الخطأ غير هذا ، فرجاء تفتح موضوع جديد له ، مع وضع رسالة الخطأ 🙂 جعفر

السلام عليكم اخوي rockjone33 🙂 في الواقع ما اقدر افهم كل كلامك ، فرجاء تأخذني على قد عقلي وفهمني اللي تقوله 🙂 اذا قصدك دوال الاكسس الجاهزة مثل docmd.transferspreadsheet ، فكلامك صحيح 100% ، اذا كان التصدير والاستيراد لنفس حقول جدول الاكسس ، ولكن الطلب "التصدير الى الاكسل بتسمية الحقل وليس اسمه" ، وهذا لا يمكن عمله بدالة الاكسس ، سواء لتصدير البيانات او استيرادها 🙂 لهذا السبب اضطؤينا لأخذ طريق آخر 🙂 جعفر

كان عندك بعض الدوال موجودة اكثر من مكان ، فهذا كان يسبب الخطأ ، حذفت كل شيء زائد من برنامجك 🙂 جعفر db8.zip

ابحث في برنامجك اللي كنا نشتغل عليه ، عن دالة بإسم MakeFolder ، موجودة في وحدة نمطية مستقلة ، انسخ الدالة الى برنامجك 🙂 جعفر

وعليكم السلام 🙂 عملت حقل اختيار صح/خطأ ، تسميته "اختيار الكل" ، فلما تختاره ، يختار القائمة كاملة ، ولما تشيل الاختيار عنه ، يلغي اختيار القائمة ، وهذا الكود يعمل اللازم : Private Sub chk_Select_All_AfterUpdate() Dim i As Integer If Me.chk_Select_All = -1 Then 'Selete All For i = 0 To Me.lst_invoices.ListCount - 1 Me.lst_invoices.Selected(i) = True Next i Else 'DeSelete All For i = 0 To Me.lst_invoices.ListCount - 1 Me.lst_invoices.Selected(i) = False Next i End If End Sub . وشفت عندك استعلام ما تريده يعرض عدد كبير من المعلومات ، فعملت لك جدول خاص بالمعلومات اللي ما نريدها ، واضفت لك اسم/رقم المجموعة iGroup حتى تقدر تضيف معلومات لإستعلامات اخرى . فأصبح الاستعلام . جعفر 1513.2.Not in final.accdb.zip

هذا صحيح ، ولكن الاهم من هذا هو ، انك تسمح للمستخدم ان يغير الخطأ في اسم العميل (مثلا، او يعطيه اسم آخر) ، وتظل/تبقى جميع بيانات ارقام العميل في بقية الجداول كما هي ، ولا تحتاج انك تروح لجميع الجداول وتعمل تحديث من اسم العميل القديم الى اسم العميل الجديد : . جعفر