jjafferr

السلام عليكم 🙂 اخي عبدالعليم ، رجاء تخبرنا المطلوب بالتفصيل !! انت اخذت هذه الصور من احد المواضيع اللي رد عليها اخوي @أبو إبراهيم الغامدي ، واللي تم عملها عن طريق HTML . ولكن طلبك في موضوعك الاول كان عبارة عن عرض مجلدات ثم عرض الملفات في تلك المجلدات !! جعفر

عفوا ، شو الفرق بين هذا السؤال ، وهذا جعفر

السلام عليكم 🙂 استعملت احد جداول هذا الملف : . عملت مقارنة للسرعة لـ 3 طرق مختلفة على جدولين بنفس البيانات (2,844,047 سجل في كل جدول) : . الاستعلام 1 ، كما عمله اخي حسام : DELETE salaries1.*, salaries1.emp_no1, salaries1.from_date1 FROM salaries1 WHERE (((salaries1.emp_no1) In (SELECT emp_no2 FROM [salaries2])) AND ((salaries1.from_date1) In (SELECT from_date2 FROM [salaries2]))); . واستغرق الاستعلام 28 ثانية لفتح البيانات (وليس لحذف البيانات) : . الاستعلام 2 ، كما عملته انا : DELETE salaries1.emp_no1, salaries1.* FROM salaries1 WHERE (((salaries1.emp_no1) In (Select emp_no1 from qry_Similars))); . واستغرق الاستعلام 18 ثانية لفتح البيانات (وليس لحذف البيانات) : . الاستعلام 3 ، بطريقة جديدة : DELETE salaries1.*, salaries1.emp_no1, salaries1.from_date1 FROM salaries1 WHERE (((salaries1.emp_no1) In (SELECT emp_no2 FROM [salaries2] WHERE salaries1.[emp_no1]=[salaries2].[emp_no2] AND [salaries1].[from_date1]=[salaries2].[from_date2]))); . واستغرق الاستعلام لفتح البيانات (وليس لحذف البيانات) : . جعفر

اعرض الملف ملف قاعدة بيانات اكسس يحتوي على 3,919,015 سجل ، لتجربة سرعة برنامجك السلام عليكم 🙂 لعمل برنامجك ، فلا يكفي ان تجربه على بضع سجلات ، وانما يجب تجربته على اكبر قدر ممكن من السجلات ، وخصوصا اذا كان برنامجك سيعمل في شبكة 🙂 لذا ، انزل هذا الملف الى مكتبتك ، واعمل منه نسخة لكل تجربة تريد تعملها 🙂 لا اذكر من اين انزلت هذا الملف ، ولكنه من الملفات المفيدة جدا 🙂 قاعدة البيانات هذه ، تحتوي على بيانات وهمية ، وحجم الملف المضغوط حوالي 30 ميجابايت ، بينما عند فك الضغط يكون حجم الملف حوالي 219 ميجابايت ، يمكن انزال برنامج مجاني من هذا الرابط لكي تفك ضغط الملف (انا استعمله كأحد برامجي الاساسية 🙂 ) : https://www.7-zip.org/ جعفر هنا رابط لمقارنة سرعة الحلول ، باستعمال هذا الكم من البيانات : صاحب الملف jjafferr تمت الاضافه 08 ديس, 2020 الاقسام قسم الأكسيس

1 و 2 فهمتها ، ويجب تجربتها على مثال ، 3. ما فهمت هاي !! جعفر

كلمة And لا محل لها من الاعراب !! جعفر

وعليكم السلام 🙂 لازم يكون عندك مجلد اسمه Save_Me ، في نفس مجلد برنامجك : Private Sub cmd_rpt_Click() Dim file_name As String file_name = Application.CurrentProject.Path & "\Save_Me\Blah.pdf" DoCmd.OutputTo acOutputReport, "rpt_Name", acFormatPDF, file_name, False, , , acExportQualityPrint Shell "C:\Windows\explorer.exe /select," & file_name, vbNormalFocus End Sub . جعفر 1305.zip

وعليكم السلام 🙂 اول خطوة هي عمل حقل ترقيم تلقائي Auto_ID في كلا الجدولين ، هذه الجداول والبيانات الموجودة ، والبيانات المتشابهة بين الجدولين : . نعمل استعلام يأتي هذه النتائج : . . ثم نعمل استعلام حذف ، بحيث معيار Auto_ID الجدول TB1 نأخذه من نتائج الاستعلام qry_Similars : . وبعد تشغيل الاستعلام ، هذه نتائج الجداول : . جعفر 1304.مثال اوفيسنا استعلام حذف بيانات من جدول بناء على جدول اخر.accdb.zip

هذا الذي اشرت اليه في الرابط ، واذا لم يكن كذلك ، فاعطنا تفاصيل دقيقة ، او ارفق مثال به طلبك 🙂 جعفر

تفضل يا سيدي 🙂 بدل ان اعيد كتابة الكود مرة اخرى للجزء الآخر ، عملت وحدة خاصة لهذه العملية في نفس النموذج ، بإسم Reset_Fields : Private Sub Reset_Fields() On Error GoTo err_Reset_Fields For i = 11 To 48 Me("A_" & i) = 0 Me("A_" & i).Visible = True Me("A_" & i).BorderStyle = 1 'solid Me("A_" & i).BorderWidth = 2 Me("A_" & i).BorderColor = RGB(255, 255, 255) Next i For i = 51 To 85 Me("P_" & i) = 0 Me("P_" & i).Visible = True Me("P_" & i).BorderStyle = 1 'solid Me("P_" & i).BorderWidth = 2 Me("P_" & i).BorderColor = RGB(255, 255, 255) Next i Exit_Reset_Fields: Exit Sub err_Reset_Fields: If Err.Number = 2465 Then 'the numbers are 11 to 28, then 38 to 48 'so instead of doing another loop, we'll ignor the error Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_Reset_Fields End Sub . ثم ناديتها مرتين : عند الحالي ، لما ننتقل من سجل الى آخر : . وعند النقر على زر "Show Pedo" جعفر 1303.YOUSSEF_2020 OK.accdb.zip

وعليكم السلام 🙂 يمكن عندك نفس المشكلة التي هنا تعذر على Microsoft Access العثور على ملف قاعدة البيانات - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

وعليكم السلام 🙂 هلا والله 🙂 اضف السطرين اللي عليهم سهم الى كودك : جعفر

وعليكم السلام 🙂 هناك رسائل تحذير ورسائل خطأ ، اما رسائل الخطأ ، فيجب اصطياد رقم الخطأ ، وثم عمل رسالة خاصة بالخطأ : . وهذا الرابط: كود حذف عند ظهور اي رسالة خطأ في نموذج ادخال بيانات - قسم الأكسيس Access - أوفيسنا (officena.net) اما رسائل التحذير ، فيمكن اسكاتها بهذه الطريقة (طبعا هذا كود عام ، وقد تحتاج دمج السابق في الكود التالي) : docmd.setwarnings false msgbox "الآن سنقوم بعملية الحاق البيانات" او msgbox "الآن سنقوم بعملية حذف البيانات" كود برنامجك docmd.setwarnings true msgbox "تمت عملية الحاق البيانات بنجاح" او msgbox "تمت عملية حذف البيانات بنجاح" جعفر

تم تعديل مثال اخونا Kanory ليعمل على النواتين 32بت و 64بت ، وبصيغة mdb 🙂 جعفر Kan_Fonts.zip

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

وعليكم السلام 🙂 لعمل استعلام توحيد ، هناك شرط واحد فقط ، وهو تساوي عدد الحقول الظاهرة (الغير مخفية) في كل استعلام. الاستعلام الاول يرسل بيانات 5 حقول الى الوحدة النمطية dm (وهذا غير مهم بالنسبة الى استعلام التوحيد) ، ولكن المهم ان الاستعلام فيه حقل واحد فقط : SELECT dm([Numéro de compte],[Clé],[montant global],[nombre de bénificiaires],[Mois],[Année]) AS LIGNECD FROM tbl2 . والاستعلام الثاني يرسل بيانات 4 حقول الى الوحدة النمطية cd (وهذا غير مهم بالنسبة الى استعلام التوحيد) ، ولكن المهم ان الاستعلام فيه حقل واحد فقط : SELECT cd([N° compt CCP],[Cle CCP],[Montant],[Nom &Prénom &fr]) AS LIGNECD FROM tbl1 . لهذا السبب تمكنا من توحيد الاستعلامين في استعلام واحد. اما الاستعلام الجديد (احد الاستعلامات الجديدة) فهو يحتوي على 6 حقول : SELECT Employee.[N° compt CCP],Employee.[Cle CCP],Employee.[Nom &Prénom &fr], +1 AS TheType, Sum(Cridi.Cridi_Value) AS SumOfCridi_Value, -1 AS M FROM Employee INNER JOIN Cridi ON Employee.EmployeeID = Cridi.EmployeeID GROUP BY Cridi.EmployeeID, Employee.[Nom &Prénom &fr], Employee.[N° compt CCP],Employee.[Cle CCP], +1, "Cridi", Month([Cridi_Date]), Year([Cridi_Date]) HAVING (((Month([Cridi_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Cridi_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) فلا يمكن توحيد الاستعلام ذو الحقل الواحد (الاستعلام الاول) ، مع هذا الاستعلام ذو الاكثر من حقل واحد. جعفر

هذه احد الدروس 🙂 إنشاء دروس VBA أكسس - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

وعليكم السلام 🙂 تفضل : R: IIf([2020]=0,"Nothing",[2020]) . . والنتيجة : . جعفر

وعليكم السلام 🙂 جرب نفس النموذج الان ، والتفاصيل لما ارجع ان شاء الله 🙂 جعفر bb - Copy.zip

وعليكم السلام 🙂 ارجو ان يكون هذا قصدك : . والكود عند تحميل النموذج : Private Sub Form_Load() Dim DBDAO As DAO.Database Dim mySQL As String mySQL = "Select * From aa" Set DBDAO = CurrentDb Set Me.Recordset = DBDAO.OpenRecordset(mySQL, dbOpenDynaset) End Sub . والنتيجة : . جعفر bb - Copy.zip

اريد اعرف اسم ملف الايقونه ، ويمكن انك في اعدادات المجلد ، ما جعلت اسم صيغة الملف تظهر ، رجاء خليها تظهر هكذا : . وبعدين صور لي اسم الملف لما تظهر صيغته

ليش غيرت الكود ؟ انت محتاج تغير فقط السطرين !! شو اسم ملف الايقونه الجديدة (اعمل صورة من الشاشة لوسمحت) ، وشو الاسم اللي تريده يظهر على سطح المكتب ؟

🙂

وعليكم السلام 🙂 ما كنت ادري اني عملت هذا المثال 😁 بحثت ونزلت ايقونة هذا الدبدوب . ووضعتها في نفس مجلد البرنامج (انا كسلان ، ما اردت ان اغير مسار الايقونه في الكود 🙂 ) : . وعليه ، غيّرت السطرين في الكود ، علشان: اشير الى اسم الايقونه الجديدة ، والاسم اللي اريده يظهر على سطح المكتب . وهذا كود الوحدة النمطية بالكامل : Function Make_Desktop_Shortcut() 'With CreateObject("WScript.Shell") ' With .CreateShortcut(.SpecialFolders("Desktop") & "\Export_to_Excel.lnk") ' .TargetPath = "C:\Stuff\Test.mdb" ' .WindowStyle = 1 ' .Hotkey = "" ' .IconLocation = "C:\Test\Test.ico, 0" ' .Description = "Test Icon Substitution" ' .WorkingDirectory = "C:\Stuff\" ' .Save ' End With 'End With DB_Name = Application.CurrentProject.Name DB_Path = Application.CurrentProject.Path 'icon_Name = "Arc5.ico" icon_Name = "Gingerbread-Bear.ico" icon_Path = Application.CurrentProject.Path icon_Name_Path = icon_Path & "\" & icon_Name With CreateObject("WScript.Shell") 'With .CreateShortcut(.SpecialFolders("Desktop") & "\Export_to_Excel.lnk") With .CreateShortcut(.SpecialFolders("Desktop") & "\دبدوب.lnk") .TargetPath = DB_Path & "\" & DB_Name .WindowStyle = 1 .Hotkey = "" .IconLocation = icon_Name_Path .Description = "Done by jj" .WorkingDirectory = DB_Path & "\" .Save End With End With End Function . وعلى سطح المكتب تشوف تجاربي : جعفر