jjafferr

اخي @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

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

في الواقع المبرمج يحتاج الى عمل نسخ احتياطية في كل مرحلة من عمله ، الرابط التالي فيه برنامج صرت ما استغني عنه في مراحل عملي لبرنامج ، يحتفظ بنسختي الحالية (نسخة واحدة فقط) ، ويقوم بتنظيف برنامجي من البيانات المحذوفة بعمل ضغط واصلاح Compact and Repair ، وتنظيف الكود بعمل Decompile/Compile ، ويخبرني اذا عندي مشاكل في الكود ، ثم يقوم بعمل نسخ احتياط ويعطيها تسلسل : . اما الزبون ، فتعطيه نسخة احتياطية ، اذا صارت له مشكلة ، يقوم بأخذ نسخة منها ، واستعمالها. جعفر

السلام عليكم 🙂 تفضل : لما تنقر على رقم 1 ، يفتح لك النموذج الآخر ، تنقر على السجلات اللي تريد الحاقها (نقرة اخرى على السجلات لعدم اختياره) ، ثم النقر على الزر 3 ، ليعمل الحاق السجلات ، ويخرج من النموذج . هذا كود النموذج : Option Compare Database Option Explicit Private Sub cmd_close_Click() DoCmd.close acForm, Me.Name, acSaveNo End Sub Private Sub cmd_Select_Click() On Error GoTo err_cmd_Select_Click Dim items As Variant Dim myIN As String myIN = Empty For Each items In Me.lst_invoices.ItemsSelected myIN = myIN & "," & Me.lst_invoices.Column(0, items) Next items 'Debug.Print Mid(myIN, 2) If Len(myIN & "") = 0 Then MsgBox "رجاء اختيار رقم الفاتورة من القائمة" Exit Sub End If Dim qdf As DAO.QueryDef Dim Replace_With As String, sqlString As String, Query_Name As String Dim pos_1 As Integer, pos_2 As Integer Query_Name = "append query customer account sub dollar ListBox" Set qdf = CurrentDb.QueryDefs(Query_Name) pos_1 = InStr(qdf.SQL, "In (") - 1 pos_2 = InStr(pos_1, qdf.SQL, ")") Replace_With = "In (" & Mid(myIN, 2) & ")" sqlString = Mid(qdf.SQL, 1, pos_1) & _ Replace_With & _ Mid(qdf.SQL, pos_2 + 1) 'Debug.Print sqlString qdf.SQL = sqlString DoCmd.SetWarnings False DoCmd.OpenQuery Query_Name DoCmd.SetWarnings True Exit_cmd_Select_Click: Call cmd_close_Click Exit Sub err_cmd_Select_Click: If Err.Number = 1 Then Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_cmd_Select_Click End If End Sub . مع الاعتذار ، اني عملته بالنسخة الموجودة في آخر مشاركة ، ومو نسختك الاخيرة 🙂 جعفر 1513.1.Not in.accdb.zip