jjafferr

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

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

وعليكم السلام اخوي امير 🙂 اذا اردت استعمال الكود الموجود في مرفقي ، وتضع كلمة سر على ملف الاكسل الذي تم تصديره ، فاليك الاختيارات: بدل هذه الاسطر '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

. اذا فتحت اي من برامج الاكسس عن طريق احد برامج Hex (مثل: http://www.mh-nexus.de) سترى ان هناك معلومات في الملف ، ولكن لما تفتح برنامجك ، فلا يوجد به اي معلومات ، وهذا معناه انه لايوجد شيء في الملف يمكن استرجاعه ، مثل ما قلت لك ، لا تضيع وقت زيادة في محاولة استرجاع الملف ، وانما ضع جهدك في الرجوع الى النسخة السابقة الاحتياطية Backup وواصل الطريق من هناك. جعفر

بس بشرط ، ان يتم هذا تلقائيا عن طريق دالة في وحدة نمطية ، مثل هاي المشاركة مثلا . يا الله ، قول بسم الله الرحمن الرخيم ، وخلي هذا المشروع على فائمتك ، وان شاء الله البرنامج يشوف النور قريبا 🙂 ايه ، بس لولا اقتراحك ، لو ما كنت انا في عالم افكاره اصلا 🙂 واليد الواحدة ما تصفق 🙂 جعفر

رجاء مناقشة هذا الموضوع في الموضوع الآخر جعفر

تم مناقشة هذا الخطأ في مجموعة مواضيع: . ولقد استخدمت احد برامج الاصلاح ، . ولم يستطع البرنامج حتى استرجاع الجداول ، فبرنامجك معطوب ، وارجع الى النسخ السابقة وواصل طريقك من هناك !! جعفر

السلام عليكم 🙂 يا ريت نستفيد من حل ما وراء الستار 🙂 جعفر

وعليكم السلام اخوي سلمان 🙂 تم جمع جميع مواضيع باركود QR هيئة الزكاة في هذا الرابط . جعفر

وعليكم السلام 🙂 اولا ، الحمدلله انك قدرت تعمل تصدير لبيانات الاستعلام 🙂 ثانيا ، اليك طريقتي: هذا هو الاستعلام qry_Export_Text . استعمل هذا الكود لتصدير الاستعلام الى ملف نص ، ولا تغير شيء في الكود سوى المتغيرين: Query_Table_Name و File_Path Dim Temp As String, File_Path As String, Query_Table_Name As String Query_Table_Name = "qry_Export_text" File_Path = "D:\me.txt" DoCmd.TransferText acExportDelim, , Query_Table_Name, File_Path, False, , 65001 Open File_Path For Input As #1 Temp = Input(LOF(1), #1) Close #1 Temp = Replace(Temp, Chr(34), "") Open File_Path For Output As #1 Print #1, Temp Close #1 . وشرح الكود: تصدير نص ، اسم الجدول/الاستعلام ، اسم ومسار الملف التصدير ، لا تعرض اسماء الحقول ، 65001 معناه ان البيانات قد يكون بها حروف عربية Unicode لهذا فصيغة الحفظ يجب ان تراعي هذا DoCmd.TransferText acExportDelim, , Query_Table_Name, File_Path, False, , 65001 . لما عملت التصدير ، هكذا كان الملف : "02-May-22,1,74.29,0,,,,abu gehad,02-May-22,1,74.29,0,,,,abu gehad" "19-May-22,4,701.75,0,,,,sd investment,19-May-22,4,701.75,0,,,,sd investment" "19-May-22,10,32850,0,,,,sd investment,19-May-22,10,32850,0,,,,sd investment" . ولكني لا اريد علامة " في بداية ونهاية الاسطر ، وللعلم ، بلغة الكمبيوتر ، العلامة " = Chr(34) فقمت بقراءة ملف النص جملة/دفعة واحدة (لم اقرأ الملف سطر بسطر) ، وحفظه في المتغير Temp : Open File_Path For Input As #1 Temp = Input(LOF(1), #1) Close #1 . عملت امر بإستبدال العلامة " الى لا شيء ، وكما قلت اعلاه : بلغة الكمبيوتر ، العلامة " = Chr(34) فاصبح المتغير Temp يحتوي على نص الملف بدون العلامة " تحذير: اذا كان الملف يحتوي على علامة " في وسط الكلمات ، فيجب معالجة ملف النص بقراءته سطر بسطر ، ثم حذف اول وآخر " فيه ، ثم تجميع الاسطر. Temp = Replace(Temp, Chr(34), "") . الآن وقد اصبح النص نظيفا ، فنحفظه من المتغير الى الملف مرة اخرى (طبعا ملف النص يجب ان يكون مغلق) Open File_Path For Output As #1 Print #1, Temp Close #1 . والنتيجة 02-May-22,1,74.29,0,,,,abu gehad,02-May-22,1,74.29,0,,,,abu gehad 19-May-22,4,701.75,0,,,,sd investment,19-May-22,4,701.75,0,,,,sd investment 19-May-22,10,32850,0,,,,sd investment,19-May-22,10,32850,0,,,,sd investment جعفر

. نعم يتم الترقيم من اول سجل ، اما اذا اردت التحديث يصير من السجل اللي انت عليه ، اوقف عمل هذا السطر : جعفر

اذا كان الحقل منضم في الجدول ، فيجب ان تعمله من نوع مذكرة ، وفي اخر الاعدادات في الجدول ، اعمله Rich Text ، ولكن وقبل ان تعمل هذا التغيير جرب التالي: في التقرير ، اعمل حقل غير مضمن ، واعطيه برمجيا قيمة الحقل اللي تريد العمل عليه 🙂 جعفر

هممم اذا عملنا جدول خاص فيه: "مصدر بياناته و مسمياته وبعض تنسيقاته وفق للقيمة المحمله" لكل نوع ، يكون اسهل في التعامل معه !! شكرا على الفكرة 🙂