jjafferr

تفضل يا سيدي 🙂 بدل ان اعيد كتابة الكود مرة اخرى للجزء الآخر ، عملت وحدة خاصة لهذه العملية في نفس النموذج ، بإسم 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 . وعلى سطح المكتب تشوف تجاربي : جعفر

السلام عليكم 🙂 انا استعمل الساعة الرملية لأخبر المستخدم بأن البرنامج مشغول ، هكذا : docmd.hourglass true بقية الكود الخاص بك docmd.hourglass false جعفر

الظاهر ان الموضوع اصبح ملتقا للأصحاب 🙂 اخي الفاضل ، يجب عمله هو عمل التقرير الذي تريده بإسم كل شخص ، ثم لإرسال الايميل ، يجب عمل ملف pdf من التقرير اعلاه ، للشخص المطلوب ، ثم استعمال احد البرامج من الروابط التالية لإرسال الايميل بالمرفق اعلاه (عمل بحث في المنتدى سيعطيك الكثير من هذه الروابط المفيدة) : https://www.officena.net/ib/topic/77563-ارسال-رسالة-من-اكسس-إلى-ياهوو/?tab=comments#comment-498174 https://www.officena.net/ib/topic/77591-ارسال-مرفقات-الى-ايميل-من-الاكسس/?do=findComment&comment=498412 جعفر

حيا الله اخوي عبيد 🙂 الظاهر تلخبط عندك الجعافر 🙂 جعفر

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

وعليكم السلام 🙂 اذا كانت عندك علاقة بين الجداول ، وتكون مختار الاختيار الثالث اللي عليه السهم : . فلما تحذف سجلات الجدول 1 ، سيتم حذف سجلات جميع الجداول التي لها علاقة بهذا الجدول 🙂 جعفر

ردي على حسب المعلومة التي ارفقتها 🙂 بدل ان تعمل حقل BOX لكل سجل ، قد يمكنك استعمال النموذج التالي: . وكود بعد التحديث بعد النقر على قائمة ListBox : Private Sub lst_ID_AfterUpdate() Me.ID.SetFocus DoCmd.FindRecord Me.lst_ID, , , , , acCurrent, True End Sub جعفر 1301.PPPP.accdb.zip

حيا الله الشباب 🙂

شكرا اخي نبراس 🙂 لو استعملت الاداة الخاصة بالكود ووضعت الكود داخل المربع المنبثق الخاص به ، حتى يظهر الكود بالطريقة الصحيحة 🙂 ، ويسهل قراءته : end: Switch(IsNull([تاريخ انتهاء التقرير]);"لم يسلم";[تاريخ انتهاء التقرير]<=Date();"منتهي";[تاريخ انتهاء التقرير]>=Date();"غير منتهي") جعفر

اخي محمد 🙂 لوسمحت اعمل مثال بالنتائج بالاكسل ، علشان ممكن نترجمه الى الاكسس 🙂 جعفر

حياالله الهاوي 🙂 هو نفس الحل في مشاركتي اعلاه (تجنب رقم الخطأ ، الى ان يتم الحفظ) : ولكن بطريقة مختلفه 🙂 جعفر