نجوم المشاركات

كمساهمة في وصولك للحل يمكنك استعمال هذه المعادلة في K6 سحبها لأسفل للحصول على مستمر وخرج وجديد =IF(AND(J6=2022,COUNTIF($B$6:$B$23,B6)=2),"مستمر",IF(AND(J6=2022,COUNTIF($B$6:$B$23,B6)=1),"خرج",IF(AND(J6=2023,COUNTIF($B$6:$B$23,B6)=1),"جديد",""))) بالتوفيق

ماشاء الله عليك يا أستاذ @محمد هشام. دايما مبدع و أفكارك خارج الصندوق

وعليكم السلام ورحمة الله تعالى وبركاته اثراءا للموضوع وبعد ادن الاستاد الكبير @ياسر خليل أبو البراء تفضل اخي يمكنك الابحار كما تشاء داخل مجلداتك وتعبئة جميع الملفات الموجودة داخل الفولدرات على الليست بوكس وفتحها مباشرة عند الظغط اليك الرابط التالي للمعاينة https://streamable.com/uv6f29 ملاحظة : لقد جعلت الكود افتراضي على الفولدرات الموجودة في نفس مسار الملف يمكنك تعديلها على حسب احتياجاتك داخل الكود التالي Private Sub UserForm_Initialize() ' مسار وجود الملف myPatch = Application.ThisWorkbook.Path ' قم بتحديد القرص الخاص بك 'myPatch = "D:\" Set MH = CreateObject("Scripting.FileSystemObject") Set dossier = MH.GetFolder(myPatch) Me.ListBox1.Clear: Me.ListBox2.Clear: Me.ListBox3.Clear Me.ListBox4.Clear: Me.ListBox5.Clear: Me.ListBox6.Clear n = 0 For Each d In dossier.SubFolders Me.ListBox1.AddItem d.Name Me.ListBox1.List(n, 1) = dossier.Path n = n + 1 Next Me.TextBox1 = dossier.Path listefichiers dossier.Path End Sub تعبئة الليست ياسماء الفولدرات 2.xlsm

دى عاوزلها روقان واحلى سطل شااى بس والله عجبتنى الفوكيرة دى واوعدك افكر فيها

عليكم السلام تفضل أخي الكريم يجب مراعاة أن يكون الملفين مفتوحين شيت رقم 1.xlsm

عليكم السلام لا توجد خاصية اسمها ارتفاع الصف الافتراضي لكن يمكنك التحايل للوصول للهدف ب استخدام نوع خط معين وحجم خط كبير نسبيا من ملف -- خيارت -- عام بالتزفيق

السلام عليكم ورحمه الله وبركاته هل بالامكان انشاء فكره قريبه إلى نقش الهاتف بالاكسس مع احداثيات الارقام المضغوط عليها ولا من عدمه

وعليكم السلام ورحمة الله وبركاته استبدل الفاصله , بالفاصلة المنقوطة ;

ولا تزعلى نفسك سهله ان شاء الله اتفضلى يا افندم غيرى الكود السابق بالكود اللاحق Private Sub pname_AfterUpdate() If Not NewRecord Then Exit Sub Dim strDLookupFlds As String Dim stLinkCriteria As String Dim MyVariable As String Dim Arry() As String MyVariable = Me.pname stLinkCriteria = "[pname] ='" & MyVariable & "'" '|String On Error GoTo ErrorHandler strDLookupFlds = DLookup("[pname] & '|' & [code] & '|' & [ptitle] & '|' & [bdate] & '|' & [gender] & '|' & [phone] & '|' & [mobile] & '|' & [adress] & '|' & [email] & '|' & [wt] & '|' & [ht]", "[reservation_tbl]", stLinkCriteria) Arry = Split(strDLookupFlds, "|") Me.code = Arry(1) Me.ptitle = Arry(2) Me.bdate = Arry(3) Me.gender = Arry(4) Me.phone = Arry(5) Me.mobile = Arry(6) Me.adress = Arry(7) Me.email = Arry(8) Me.wt = Arry(9) Me.ht = Arry(10) ExitHandler: Exit Sub ErrorHandler: Select Case Err.Number Case Is = 94: pname.Requery: Resume ExitHandler Case Else MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description Resume ExitHandler End Select End Sub وغيرى الكود الخاص بزر امر الاضافة الى الكود الاتى Private Sub Add_cmd_Click() On Error GoTo Err_NewRec DoCmd.Requery DoCmd.GoToRecord , , acNewRec Exit_Err_NewRec: Exit Sub Err_NewRec: MsgBox Err.Description Resume Exit_Err_NewRec End Sub وهذا مرفقكم بعد التعديل lab3(2).zip

فى حالة جلب البيانات واسترجاعها الكود شغال تمام ولكن فى حالة تسجيل اسم مريض جديد الرساله دى بتطلع ممكن حضرتك تجرب تكتب اسم مريض جديد وانت هتفهمنى

اكيد وحتما سوف تجدين من هم افضل من بكثير من اخوانى الكرام او اساتذتى العظماء الذين اتعلم منهم فى هذا الصرح الشامخ فقط انا طويلب علم هاو الله يسلم حضرتك لا شكر على واجب اهلا بيكى فى اى وقت ولكن ارجوكى اقبلى نصيحتى بفصل بيانات المريض فى جدول منفصل بعيدا عن جدول التحاليل ونتائجها واخيــرا شرفتى المنتدى يا بنت بلادى

الفيلدات التانيه كدا اتقفلت مش عارف اكتب فيها حاجه كدا اتحول لفورم بحث فقط بجد مش عارفه من غيرك كنت هعمل ايه متشكره جدا تسلم لذوقك

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

تم توظيف الحل بشكل سليم شكرا جزيلا اخي فوكش

نيابة عن اخي خليفة SavRefe as integr الموجود في الوحدة النمطية زائد لا يعمل والاستاذ خليفة غفل عن حذفه يمكنك حذف الوحدة النمطية فهي زائدة المتغير SavRef as integr داخل محرر النموذج هو الذي يعمل لاحظ الفرق بين الكلمتين : حرف e وهو على اسمه متغير حسب الحاجة .. تتبعه في الاحداث داخل محرر النموذج ،،، كل حدث اعطيناه قيمة مختلفة من اجل ضبط العملية

مثال طيب وجميل جدا من انسان طيب واجمل واجمل فى مساعدته للأخرين جزاك الله كل خير اخى خليفة

حصلت عندي قاعدتان يمكن يكون فيهما ضالتك . إخفاء واظهار الجداول والكائنات.rar

ممكن العمل بدونها لكن الكود بيطول جداً ، بنحجز قيم عددية بإستخدام ( SavRefe as integr) لتسهيل انشاء الأحداث في الكود .

هل تنفع هذه الفكرة testDbNotes.accdb

الغفو اخي يسعدني حقا انني استطعت مساعدتك تفضل لقد تم تصحيح الاكواد الدي قمت باظافتها انت على اخر ملف مرفوع على المنتدى وتفعيلها على ورقة 7 و8 شاشة الدخول مع صلاحيات 4.xlsb

السلام عليكم لتعم الفائدة ارفق لكم كود يقوم بربط جدول من قاعدة بيانات sql برمجيا قد يحتاج الى ضغط واصلاح حتى يظهر الجدول Database6.accdb

جرب تشغيل هذا الكود في كل الشيتات Sub Clear_All_Filters() On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 End Sub بالتوفيق

إخوانى engyasin, حلبي, gelani

أخى engyasin انا كدة ابتديت افهم ممكن تتغلب على هذا الموضوع بعمل Trusted Location من داخل الاكسيس كما يمكنك عملة عن طريق الريجسترى كالتالى: انشئ ملف نصى جديد بأى إسم تريد على أن يكون إمتداده .reg ضع به الكود النالى: Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1] "Path"="D:\\" "AllowSubfolders"=dword:00000001 "Description"="" "Date"="09/18/2019 07:56" هنا جعلت درايف ال D بكامله أمان لأى ملف أكسيس وبالتالى أعتقد والله أعلم لن تظهر لك Enable Content جرب وبالتوفيق

يمكن الفكرة ما ما قدرت اوصلها يكون تقرير واحد كل عمود فيه ارقم سالبه و ارقام موجبه اسفل التقرير يكون فيه سطرين واحد لجمع الاعداد الموجبه واحد لجمع الاعداد السالبه ما يكون تقريرين منفصلين