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

ما باقي بالعمر الكثير ...... وانا بدعبس بملفاتي حصلت مجموعة برمجيات كنت سويتها سابقاً منها هذا المرفق وهو يعمل لدي أحد أصدقائي وللحين مابه مشاكل .. باسوورد تحديث الجداول (1001) وباسوورد الوحدات النمطية أو الشفت (tariq1991) .... أنا برفق الفولدر كامل . القاعدة (WaitingMain 2010) بحجرة التسجيل . القاعدة (Role_CheckUp) بحجرة الكشف العام . القاعدة (Role_Consultation) بحجرة الاستشارات . القاعدة (Role_MedicalAnalytics) بحجرة العلاج الطبيعي . القاعدة (Role_Pharmacy) بالصيدلية . القاعدة (Role_Physiotherapy) بمعمل التحاليل . القاعدة (Role_Radiology) بحجرة الاشعة . .القاعدة (Role_Surgery) بحجرة العمليات . ولابد كل القواعد على شبكة واحده لأن الكل مرتبط بحجرة التسجيل . . واي استفسار أو طلب أنا حاضر . Khalifa Hospital.rar

السلام عليكم خسب المثال المرفق يبدو أنك تريد دالة للتقريب إلى أقرب 0.1 (أعشار)، وليس معادلة باقي القسمة (mod) التي تعمل عادة مع الأعداد الصحيحة. =CEILING(A2; 0.1) =ROUNDUP(A2*10;0)/10 تقريب.xlsx

وعليكم السلام ورحمة الله وبركاته =IFERROR(AGGREGATE(15;6;A4:A30;ROW($A$1));"") السبب الرئيسي هو أن ROW($A$1) ثابت دائماً وكذلك النطاق يجب ثتبيته بحيث لا يتغير عند السحب ليصبح A$4:A$30 بدل A4:A30 ولحل المشكلة اختر احدى المعادلات =IFERROR(AGGREGATE(15;6;A$4:A$30;ROW(A1)-ROW(A$1)+1);"") =IFERROR(AGGREGATE(15;6;$A$4:$A$30;ROW(A1));"") =IFERROR(AGGREGATE(15;6;$A$4:$A$30;ROW(A1:A1));"") =IFERROR(AGGREGATE(15;6;$A$4:$A$30;ROW(A4)-ROW($A$4)+1);"") اليك الملف وبه تطبيق المعادلات الاربعة السابقة ntega_elec_new.xlsb

وعليكم السلام ورحمة الله وبركاته الكود به مشكلتان الاولى اسم الشيت بدل Sheet30 يكون Sheets("Sheet30") الثانية اسم الليبل بدل Label3 يكون Label4 اليك الملف وبه التعديل MAM2.xlsm

وعليكم السلام ورحمة الله وبركاته 🙂 جرب طريقتي في حماية قاعدة البيانات .. أنقل جميع مكونات القاعدة لبرنامجك وشغله .. 🙂 وهذي طريقة ضبط الإعدادات .. لفتح البرنامج في وضع التصميم : كلمة المرور لفتح الإعدادات : 123 ( قم بتغييرها لاحقا ) الحماية تشمل : 1- إخفاء الجداول وجميع مكونات البرنامج . 2- منع الفتح بزر الشفت Shift . 2- منع إضهار لوحة التحكم عند الضغط على F11 . وهذا يعتبر الحد الأدنى والأشهر في حماية قاعدة البيانات .. ويمكنك التعمق للوسائل الأكثر احترافية مثل حماية صفحة الأكواد بكلمة مرور وحفظ الملف بصيغة accde وحماية الملف بكلمة مرور وغيرها .. دمتم سالمين 🙂 Database Security Template.accdb

وعليكم السلام تفضل هذا الملف ربما يفيدك ويكون به المطلوب ان شاء الله وبالتوفيق المحطة.xlsm

الاخ الفاضل / عبدالله بشير عبدالله جزاك الله خيرا ... هذا ما كنت اريد معرفته لك مني كل التحية والتقدير . ولكل من شارك معك ا/ عبدللرحيم و ا/ أبوعيد

هذا مثالي : لن يتم الحذف الا من خلال الزر فقط حتى لو صنعت زرا جديدا للحذف فلن تتمكن FMK2.rar

احدى الطرق مثلا في مثالي المرفق اعلاه 1- نمنع الحذف من خصائص النموذج .. لسان التبويب /بيانات 2 - نضع سطرا للسماح بالحذف قبل دالة الحذف في الكود .. وسطرا للمنع بعدها هكذا : Me.AllowDeletions = True DoCmd.RunCommand acCmdDeleteRecord Me.AllowDeletions = False

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

أخى ابوحبيبه السلام عليكم ورحمة الله وبركاته بعد إذن أساتذتى الخبراء الأفاضل / ابو عيد & عبدالله بشير عبدالله مرفق ملف بالمعادلات للتجربة من أفكار الخبراء جزاهم الله عنا خير الجزاء OK ntega_elec_new.xlsb

السلام عليكم ورحمة الله وبركاته تحية لك ولاستاذنا ابو عيد اعتقد وحسب فهمى لطلبك انك تريد استدعاء البيانات من شيت mg_elec الى شيت ntega حسب الاختيار من W3 فاذا كان هذا طليك اليك الملف وان كان غير ذلك ارجو مزيد من التوضيح لكما ولاحبائنا بالمنتدى كل التقدير والاحترام ntega1_elec_new.xlsb

وعليكم السلام ورحمة الله وبركاته تم تصحيح المعادلة في العمود Y قم بحذف المعادلات في X واستبدالها بـ Y ntega_elec_new1.xlsb

مع اني لست من مناصري استخدام الاكسس خارج اطار قواعد البيانات ولكن الإبداع الذي اراه في هذا العمل يستحق الإعجاب والتقدير فعلاً الأخت @hanan_ms مبدعة وتستحق ان تكون ضمن خبراء الموقع لانها دائما تثبت أن بالإمكان استخدام الاكسس لوظائف اخرى الى جانب قواعد البيانات وعندما أرى مثل هذا التمكن في البرمجة كما في هذا الموضوع او مواضيع الاخوة @Foksh و @jjafferr و @Moosak و @ابوخليل وبقية الاخوة الذين لايسع المجال هنا لذكرهم فلسان حالي كما يقول المثل (كلما قلنا عساها تنجلي .. قالت الايام هذا مبتداها 🫣) وان طريق التعلم مازال طويلاً شكرا لمبدعي المنتدى لكل ماتقدموه تحياتي

وعليكم السلام ورحمة الله راجع الملف المرفق لعل فيه ما تريد Example.xlsm

السلام عليكم ورحمة الله وبركاته ساقدم لك ملف خسب ما فهمته من ردك راجع الملف واذا كانت هناك قيم غير صحيحة فقم بارفاق جدول به القيم الصحيحة يدويا وبدون معادلات للراتب والسلفيات لعدد 3 او 4 اشخاص اليومية (2).xlsm

اعرض الملف إداة إنشاء تعليمات مخصصة لتطبيقك ليظهر كالبرامج المحترفة {سلسلة الأدوات المساعدة المخصصة} تواصلاً لهذه السلسلة أقدم لكم اليوم أداة رائعة تقوم بإضافة التعليمات المساعدة لتطبيقات الأكسس لتظهر بمظهر البرامج الإحترافية حيث تسمح لكم الأداة بإنشاء ملف تعليمات مقسم إلى عناوين رئيسية تحتوي على مواضيع فرعية بحيث يكون لكل موضوع فرعي التعليمات الخاصة به مرفق لكم مجلد يحتوي على ثلاثة ملفات 1 - القالب وهو نسخة فارغة تحتوي على الكائنات الضرورية والتي يتم إستيرادها إلى التطبيق الخاص بكم (ويمكن إستخدامه في إنشاء التعليمات لأي تطبيق وإستيراد الكائنات المطلوبة بعد الإنتهاء كتابة كل التعليمات الخاصة بالتطبيق حيث يوجد هناك ثلاثة نماذج لن تحتاجونها إلى في نسخة التطوير ويمكن الإستغناء عنها في الإصدار المخصص للمستخدم النهائي) 2 - عرض توضيحي يوضح لكم طريقة العمل بالأداة والذي أرجو أن يتم التركيز على الخطوات الموضحة فيه 3 - مثال عملي قمت فيه بتوضيح الطرق المختلفة للإستفادة من الأداة في مثال مشابه للواقع أرجو أن تكون هذه الأداة إضافة مفيدة لكل الإعضاء تحياتي صاحب الملف منتصر الانسي تمت الاضافه 11/09/25 الاقسام قسم الأكسيس  

شكرا أخي الكريم على كلامك الجميل وبصراحة فاجأني تثبيت الموضوع 😅

عمل جميل وتنفيذ متقن باش مهندس @منتصر الانسي 🙂👌

السلام عليكم اليك التعديل المصنف2.xlsm

وعليكم السلام ورحمة الله وبركاتة لم امر بهذه التجربة سابقا فوجهت السؤال الى chatgpt فكانت الاجابة الرابط الذي أرسلته 👇 🔗 https://www.microsoft.com/fr-fr/download/details.aspx?id=10019 هو الرابط الرسمي والآمن من موقع Microsoft لتحميل: Microsoft Visual Basic 6.0 Common Controls (SP6) ويحتوي على ملفات: MSCOMCTL.OCX COMCTL32.OCX وهما المسؤولان عن أدوات مثل ListView، TreeView، ImageList، ProgressBar …إلخ 🧩 الخطوات بالتفصيل (بالفرنسية + توضيح بالعربية) 🪄 1. Télécharger le fichier بعد تحميل الملف من الرابط الرسمي: سيكون اسمه تقريبًا: VisualBasic6-KB896559-v1-FRA.exe 📂 2. Créer un dossier de travail أنشئ مجلدًا مؤقتًا لتضع فيه الملفات المستخرجة من الملف السابق، ⚙️ 3. Extraire le contenu sans installation افتح موجه الاوامر Invite de commandes كمسؤول (Démarrer → cmd → clic droit → Exécuter en tant qu’administrateur) ثم اكتب الأمر التالي (كلّه في سطر واحد 👇): VB6.0-KB896559-v6.1.98.46-FRA.exe /T:C:\VB6Controls /C 📁 4. Vérifier le contenu du dossier اذهب إلى المجلد الذي أنشأته: ستجد بداخله عدة ملفات من بينها: MSCOMCTL.OCX COMCTL32.OCX 🚀 5. Copier les fichiers vers le dossier système حسب نوع نظامك: نوع النظام المجلد الذي تنسخ إليه Windows 32 bits C:\Windows\System32\ Windows 64 bits C:\Windows\SysWOW64\ انسخ الملفين MSCOMCTL.OCX و COMCTL32.OCX إلى المجلد المناسب. 🔧 6. Enregistrer les contrôles (Regsvr32) افتح Invite de commandes كمسؤول مجددًا، ثم نفّذ الأوامر التالية: 👉 على Windows 64 bits: regsvr32 C:\Windows\SysWOW64\MSCOMCTL.OCX regsvr32 C:\Windows\SysWOW64\COMCTL32.OCX 👉 على Windows 32 bits: regsvr32 C:\Windows\System32\MSCOMCTL.OCX regsvr32 C:\Windows\System32\COMCTL32.OCX ستظهر رسالة: DllRegisterServer dans MSCOMCTL.OCX réussi. وهذا يعني أن التثبيت تم بنجاح ✅ 🧰 7. Vérifier dans Excel 2013 افتح Excel اضغط Alt + F11 لفتح محرر VBA اختر Outils → Contrôles supplémentaires... فعّل الخيار: ✅ Microsoft Windows Common Controls 6.0 (SP6) اضغط OK الآن يمكنك استخدام ListView, TreeView, ImageList, إلخ.

وعليكم السلام ورحمة الله وبركاته .. اجعل الجداول الخلفية محمية بكلمة مرور .

ما مكنى فيه ربى هو خير جارى العمل على تجهيز الملف إن شاء الله

صاحب الموضوع متمسك بالحدث المتعلق بالنموذج وليس بزر الحذف نفسه .. دائماً ما يلجأ البعض إلى الطرق الأصعب أو التي قد لا تحقق الهدف بشكل مباشر 🤷‍♂️

السلام عليكم ورحمة الله وبركاته الاخوة الافاضل / ا/ عبدالله بشير عبدالله ... و ا/ عبدللرحيم جزاكم الله خيرا على اهتمامكم ولكم مني كل التحية والتقدير . فكل منكم جاء بفكرة جديدة سواء بالاكواد او المعادلات وسوف استفيد منها بلا شك وهي فعلا تفي بالغرض . مرة اخرى اشكركم على كل ما قدمتموه لكني كنت اريد حلا لمشكلة التكرار التي في المرفق عندي وماهو سبب التكرار . هل هو قصور في المعادلة ام ماذا ؟

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

السلام عليكم ورحمة الله وبركاته عمل ممتاز تمت التجربة و الاستخدام

بالغ التحية والتقدير والاحترام لكما معلمينا الافاضل @kkhalifa1960 & @Foksh

ربنا يبارك فى عمرك وفي صحتك 🌹

ربي يحفظك ويطول عمرك

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

أطال الله بقاءك ومتعك بالصحة ، وختم لنا ولكم بالصالحات

ضع هذا الكود داخل حدث BeforeDelConfirm أو Delete في نموذج fm4 حسب ما يناسبك. الأفضل استخدام BeforeDelConfirm لأنه يسبق الحذف ويمنحك فرصة التسجيل قبل الإزالة. 📌 الخطوات: افتح النموذج fm4 في وضع التصميم. اضغط على النموذج نفسه (وليس عنصر داخل النموذج). من نافذة الخصائص، اختر الحدث BeforeDelConfirm. اضغط على زر "..." واختر "منشئ الكود". الصق الكود التالي: Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) Dim db As DAO.Database Dim rs As DAO.Recordset Dim strT4 As String Dim strUser As String Dim strComName As String Dim dtNow As Date Dim userChoice As VbMsgBoxResult ' عرض رسالة تأكيد userChoice = MsgBox("هل أنت متأكد أنك تريد حذف هذا السجل؟", vbYesNo + vbQuestion, "تأكيد الحذف") If userChoice = vbNo Then ' إلغاء الحذف Cancel = True Response = acDeleteCancel Exit Sub End If ' استخراج البيانات من السجل الحالي strT4 = Nz(Me.t4, "") strUser = Environ("Username") strComName = Environ("Computername") dtNow = Now ' فتح الجدول وإضافة سجل جديد Set db = CurrentDb Set rs = db.OpenRecordset("hestable", dbOpenDynaset) rs.AddNew rs!oldrec = strT4 rs!User = strUser rs!Comname = strComName rs!curdata = dtNow rs.Update rs.Close Set rs = Nothing Set db = Nothing ' السماح بالحذف Response = acDeleteOK End Sub 💡 ملاحظات مهمة تأكد أن الحقول التالية موجودة في جدول hestable: oldrec (نص) User (نص) Comname (نص) curdata (تاريخ/وقت) الكود يستخدم Environ("Username") و Environ("Computername") للحصول على اسم المستخدم واسم الجهاز. إذا أردت منع الحذف في حالات معينة (مثلاً إذا كان t4 فارغًا)، يمكن تعديل الكود لإلغاء الحذف عبر: Cancel = True Response = acDeleteCancel

الاستاذ منتصر وجهك الى مكان الخلل فالمفترض انك تحاول تفكر وتغير طيب كما اشار استاذنا بالضبط .. غير فقط السطرين المشار اليهما : الاول بهذا : If Loan_ID > 0 Then والثاني بهذا ElseIf Loan_ID <= 0 Then مشكلة دفع2.rar

و عليكم السلام ورحمة الله وبركاته إليك المطلوب بصوت الشيخ المنشاوي رحمه الله مع تطوير و تحسين الملف. فقط تأكد وضع الملف الصوتي في نفس مجلد ملف الاكسيل و أرجو تعديل العنوان ليكون إضافة الفاتحة بدلا من الموسيقى crono.rar

استاذه @hanan_ms ❤️ جربة لو اضافة مربع تحديد الجلسات لفتح ملفات الدائمة وآخر الجلسات واحببت اعمالج تثــــــــير الاعجاب❤️👍 تمنياتي بالاستمرار والتواصل

وعليكم السلام ورحمة الله وبركاته المشكلة الرئيسية هي في منطق البحث البحث عن الأعمدة يتم من الصف 3 (G3:U3) ولكن البيانات تبدأ من الصف 4 الإزاحة (offset) غير صحيحة عند استخراج القيم اليك التعديل تنسيق ترتيب الجداول الكمية مع اسم الصنف مع التاريخ التابع له - Copy - Copy.xlsm

Microsoft Access 2019 Programming by Example with VBA, XML, and ASP https://www.mediafire.com/file/ommdwpjia97lgrq/Microsoft+Access+2019+Programming+by+Example+with+VBA,+XML,+and+ASP.pdf/file

من مقتنياتي : Microsoft Access 2010 Bible https://drive.google.com/file/d/1ccVfMNH4xnGQLctqcMyObKG23JYiQ2yb/view?usp=sharing وفي المرفقات : الدوال الخاصة ببرنامج الآكسس.doc VBANotesForProfessionals.pdf 🙂

السلام عليكم Option Explicit ' بسم الله الرحمن الرحيم " ' ******************** " ' دالة استخراج اسم ولي الأمر " '========================================" ' يامكانية معالجة الاسم المركب الاول " ' تلقائياً حسب معايير معرفة لديها " ' Kh_Father_Replace في الدالة " ' ويمكنك اضافة اي معيار آخر " ' بجانب المعايير الموجودة " ' MyArray في المتغير " ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '========================================" '----------------------------------------------------------------- Function Kh_Father_Name(ByVal Name As String) As String Dim KhString As String, SearchChar As String, Kh_Mid As String, Kh_Rep As String Dim KhMyNo As Integer On Error GoTo Err_Kh_Father_Name If IsEmpty(Name) Then GoTo Err_Kh_Father_Name KhString = Kh_Father_Replace(Trim(Name)) & " " SearchChar = " " KhMyNo = InStr(1, KhString, SearchChar, 1) Kh_Mid = Trim(Mid(KhString, KhMyNo, Len(KhString))) Kh_Rep = Replace(Kh_Mid, "_", " ") Kh_Father_Name = Kh_Rep Exit Function Err_Kh_Father_Name: Kh_Father_Name = "" End Function Private Function Kh_Father_Replace(ByVal Kh_Sub As String) As String Dim MyArray, Ar Dim Sn As String, Re As String '==================================================== ' يمكنك اضافة اي معيار آخر هنا بجانب المعايير الموجودة MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله" _ , " الدين", " الإسلام", " الاسلام", " الحق") '==================================================== Sn = Kh_Sub For Each Ar In MyArray Re = Replace(Ar, " ", "_") Sn = Replace(Sn, Ar, Re) Next Kh_Father_Replace = Sn End Function استخراج اسم ولي الامر.rar

فقط المشكلة كانت لديك فى تنسيق خلية الرقم القومى ةالرقم التأمينى لأنك قمت بعمل تنسيق لتلك الخلايا على أنها تاريخ وليس رقم وشكراً

وعليكم السلام-جرب هذه المعادلة =IF(COUNTIF($B$1:$D$3,A8),A8," هذ الاسم غير موجود") Search+Vlookup1.xlsx

ممتاز استاذ مجدى بارك الله فيك وزادك الله من فضله

تفضل ربما يكون المرفق ما تريد الاكواد اظنها للاستاد ياسر ابو البراء جزاه الله خير الجزاء قمت بتعديلها حسب طلبك قوائم مترابطة (2).xlsm

؟؟؟؟؟؟؟؟؟؟ هل تحب منتديات اوفسنا.rar الكود.rar

جرب هذا الملف t1 Salim.rar

تفضل هذا الرابط فيه شرح للمطلوب بالكامل تقبل تحياتي Custom Lists.rar

السلام عليكم استاذ حمادة شكرا لكلماتك و مرورك العطر استاذ خالد شكرا لمرورك العطر , لكن اسمح لي بالتنويه ان الكود بالكامل من صنع الاستاذ عبد الله باقشير و لم اغير فيه شيء و لكن عدلت في ال widths الخاص ببعض ال lables ,اما الكود فكما هو . استاذ اكرم جرب المرفق بعد تعديل بسيط . تحياتي ++ملف بحث بفورم ممتاز.rar

السلام عليكم ورحمة الله وبركاته أسعد الله مساء الأحبة الكرام أسعد الله مسائك أستاذي الموقر - الحسامي- أحببت أن أبعث لك اليوم هذه العينة البسيطة من برنامجي الذي أنا حاليا عاكف على وضع اللمسات الأخيرة عليه والذي صار يكتسي طابع المنتدى الرائع ولمسات الإخوة المبدعين الذين ساهمو في تنميته وتطويره وعلى رأسهم أستاذي - أبو عبد الله- ولكن واجهتني عقبة صغيرة جعلتني أقف حائرا عندها وحالت بيني وبين ما كنت أصبو اليه وقد حاولت تجنب كثرة الكتابة والشرح والملف المرفق خير دليل وخير شارح للمراد أتمنى أن أجد المبتغى عندك وشكرا form d'affichage du liste1.rar