jjafferr

الآن تم اخفاء زر Show Pedo ، والصورة تظهر حسب اختيارك من الحقل Kind ، لا يوجد مكان خاص للكيار وآخر للاطفال ، هو مكان واحد للإثنين معا ، 1. التنسيق الشرطي : لعمل لون جديد (او لتغيير لون سابق) ، يجب هذا اللون ان يتطابق مع لون الضرس في الصورة : - لا تختار اللون مباشرة ، وانما اذهب الى more colors . الآن اختار الالوان (تستطيع ان تختارها من التبويب Standard ) ، ولكن يجب ان تأتي الى هذا التبويب لمعرفة ارقام الالوان ، هنا الارقام R=احمر=0 ، G=اخضر=51 ، B=ازرق=102 . 2. اما في الكود ، فنعمل نسخ من المربع الاحمر (جميع الاسطر الاربعة) الى الشرط الجديد (الحشو) ، مع تغيير اللون RGB ليطابق اللون الذي تم اختياره اعلاه : . جعفر 1303.1.YOUSSEF_2020 OK.accdb.zip

جرب هاي : بدل هذا السطر Set Rst1 = db1.OpenRecordset("temp", dbOpenSnapshot) اكتب هذا السطر Set Rst1 = db1.OpenRecordset("Select * FROM temp ORDER BY stuname", dbOpenSnapshot) جعفر

الظاهر طريقتي في العمل تختلف عن طريقتك !! انت تعطي المعلومات بالقطارة ، قطرة قطرة ، ووقت السؤال 😁 لازم اسالك اي نموذج ، والآن لازم اعرف اي زر في النموذج 😁 جعفر

اي نموذج ؟

🙂

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

ممكن عمل هذا الكود في الاستعلام ، ولكنك وبسبب اللغة العربية في الكود ، فلن تعرف ان تغير شيء لاحقا ، لهذا السبب ، الافضل عمل وحدة نمطية ، ويمكنك تعديلها بكل بساطة ، اسميتها qry_values ، ونرسل لها قيمة الحقل من الاستعلام (في المثال السابق ، اسم الحقل كان 2020 ) ، وفي الوحدة النمطية تسمية هذا المتغير هو H : Public Function qry_values(H As Integer) As String If H = 0 Or Len(H & "") = 0 Then ' Zero and Null qry_values = "لا يوجد" ElseIf H = 7 Then ' any other value qry_values = "تم الانتهاء" Else ' return the original value qry_values = H End If End Function . ثم نناديها من الاستعلام ، هكذا : . والنتيجة : جعفر 1306.مثال.accdb.zip

السلام عليكم 🙂 اخي عبدالعليم ، رجاء تخبرنا المطلوب بالتفصيل !! انت اخذت هذه الصور من احد المواضيع اللي رد عليها اخوي @أبو إبراهيم الغامدي ، واللي تم عملها عن طريق 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) جعفر