كل الانشطه

ممتاز .. شكرا لك

مميز جدا شكرا لك

قاعدة المرفقة بسيطه جدا يمكن عرض القواعد المضافة والربط فوري متصل للعرض ولا نهائي مجموعات للتجربة كفكرة تشغيل جهاز الواحد نوع ما بنظام مستقل وسهل هل يمكن بعض التعديلات تحميل المرفق https://drive.google.com/file/d/1HlKa8YWRRs2bHnr50PznVT37ZsBfNgnV/view?usp=sharing

السلام عليكم ورحمة الله وبركاته بعد التجربة على اكثر من جهاز ظهرت بعض المشاكل منها بطئ الجهاز وزر طباعة شهادات اخر العام لايعمل وبحمد الله وبفضله تم حل جميع المشاكل . ووجب على التنبيه وادعو الله ان يكون هذا العمل من باب علم ينتفع به وهذا هو التعديل الجديد بنفس الباسورد والطريقة السابقة في بداية المشاركة offcinal_1_3am.xlsm

تفضل استاذ @أحمد الشحات85 نسخة معدلة بكل طلباتك . وكمان حليت مشكلة ظهور بعض الكلمات العربية المشفرة بلغة غير مفهومة . Ahmed ElShahat-2.rar

تمام جربت تطبيقك على أكسس 2024 على ملفين مختلفين أحدهما يحتوى على كلمة سر (123) والآخر لا يحتوى على كلمة سر وكانت النتيجة مرضية جداً وعند بدء الاستخدام يجب أن تضع كلمة السر أولاً ثم الضغط على زر Browse وذلك حتى يتم إتاحة زر "تطبيق" للإستخدام (لأنه كان خافتاً ) المفترض طبعاً أن الضغط على Browse يظهر إمكانية استخدام زر التعديل يمكنك طبعاً أن تضيف ما تراه ضرورياً ليزيده ثراءاً ، فالتطبيق من إبداعاتك لكن لى ملاحظة إن أمكن معالجتها : هل يمكن التطبيق اكتشاف أن القاعدة تحتوى على كلمة سر فيظهر مستلزماتها ، وإذا كانت العكس فلا داعى لوجود تلك المستلزمات باستخدام شيفت لا يتم الفتح.rar باستخدام شيفت يتم الفتح.rar

لا لا الرسالة المرفقة بتظهر لما بتضيف سجل جديد وتذهب مباشرةً لزر الطباعة ... لذا عدل زر الطباعة الى Private Sub btnPrintForma_Click() ' التحقق من إدخال رقم المركبة If IsNull(Me.CarID) Or Me.CarID = "" Then MsgBox "الرجاء إدخال رقم المركبة", vbExclamation, "تنبيه" Exit Sub End If ' حفظ السجل الحالي قبل الطباعة If Me.Dirty Then Me.Dirty = False End If ' فتح التقرير على نفس السجل DoCmd.OpenReport "rpt_Forma", acViewPreview, , "FormaID = " & Me.a1 End Sub

تجميع 3اكواد وجعلة في كود واحد تجميع اكواد في كود واحد.xlsm

ياريتك لو تجرب على قاعدة بيانات ACCDB مع كلمة مرور كمان لان زى ما قلت لحضرتك جملة اتصال قاعدة البيانات الى تحتوى على كلمة مرور بتحتلف تبعا لاصدارات اكسس وفى ناس بتقع فى الفخ ده وتنسي النقطى دى لان الجملة قبل 2007 غير جملة ابتداء من 2007 وما على ومعلش مش باطلب منك لانى مش عاوز اجرب او مكسل بس اكتشفت ان فى حجات بتشتغل عندى انا وعند غير لى وفى النهاية شكر لحضرتك مقدما وزى ما قلتك لو عاوز تكستوميز اى افكار فى القاعدة دلوقتى وبعد رد حضرتك الاخير حيكون عندنا اساس ثابت متأكدين منه فاى تعديل فى اى شئ تانى او اى اضافة بعيد عن الاساس انا تحت امرك وانا تقريبا ان شاء الله اليوم فاضى هابحث عن دوال API لاستعرض المجلدت لانها اسرع شوية من اللى استخدمته انا فى القاعدة دى فايل ديالوج مع ربط متأخر

السلام عليكم بعد اذن استاذنا ابو مروان اليك تعديل زر الترحيل باستخدام المصفوفات Sub AddEmployee() Dim ws1 As Worksheet, ws2 As Worksheet Dim nextRow As Long, i As Long Dim srcRange As Variant Set ws1 = ThisWorkbook.Sheets("Sheet1") Set ws2 = ThisWorkbook.Sheets("Sheet2") If ws1.Range("I9").Value = "" Then MsgBox "يرجى إدخال اسم الموظف!", vbExclamation, "تنبيه" Exit Sub End If nextRow = ws2.Cells(ws2.Rows.Count, "C").End(xlUp).Row + 1 srcRange = Array("I5", "I7", "I9", "I11", "I13", "L11", "L13", "I15", "L15", _ "L5", "L7", "L9", "I19", "L19", "I21", "L21", "I23", "L23", _ "I25", "L25", "I28", "L28", "L30", "I33", "L33", "I35", "L35", _ "I37", "I40", "L40", "I44", "L44", "I46", "L46", "I48", "L48", _ "I50", "L50", "I52", "L52", "L55") For i = LBound(srcRange) To UBound(srcRange) ws2.Cells(nextRow, i + 1).Value = ws1.Range(srcRange(i)).Value Next i MsgBox "تمت إضافة الموظف بنجاح!", vbInformation, "نجاح" End Sub بسم الله.xlsm

مكافحة الحمام بالكويت تُعد مشكلة تجمع الحمام على الأسطح والشرفات من أكثر الأمور إزعاجًا، نظرًا لما تسببه من فوضى واتساخ قد يؤثر على نظافة المكان ومظهره العام. ومع ذلك، يمكن التعامل مع هذه المشكلة بطرق آمنة وإنسانية دون التسبب في أي ضرر للطيور. أولًا: استخدام الشبك المخصص يُعتبر تركيب الشبك حول النوافذ والشرفات من أكثر الحلول فعالية، حيث يمنع دخول الحمام أو بناء أعشاشه دون إيذائه. ثانيًا: تركيب الأشواك البلاستيكية توضع الأشواك البلاستيكية على الحواف والأماكن التي يقف عليها الحمام، وهي لا تؤذيه لكنها تمنعه من الاستقرار، فيبتعد بشكل طبيعي. ثالثًا: الأجهزة الطاردة للحمام تعتمد هذه الأجهزة على إصدار موجات صوتية أو اهتزازات غير مريحة للحمام، مما يدفعه للابتعاد عن المكان دون أي ضرر. مكافحة حشرات بالكويت رابعًا: الوسائل البصرية تشمل استخدام الشرائط العاكسة أو مجسمات الطيور الجارحة، حيث تُخيف الحمام وتجعله يعتقد بوجود خطر فيبتعد. خامسًا: الحفاظ على نظافة المكان يُعد تنظيف الأسطح وإزالة بقايا الطعام والمياه من أهم الخطوات، لأن هذه العوامل تجذب الحمام بشكل كبير. نصائح إضافية الجمع بين أكثر من طريقة للحصول على نتائج أفضل الصيانة الدورية لمنع عودة الحمام اختيار وسائل آمنة وصديقة للبيئة مكافحة حشرات الجهراء

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

جزاك الله خير الثواب وأكرمك الله فى الدارين

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

الف شكر اخى الغالى على هذا المجهود جزاك الله كل خير هذا المطلوب وشكرا جزيلا

الكود موجود باليوزرفورم من البداية فقط قم بسحب شريط التمرير الأفقي الموجود بالأسفل

جزاك الله كل خير اعلم انك بذلت مجهود كبير جعله الله فى ميزان حسناتك يارب نعم الكود الموجود بشيت المخزن ولك جزيل الشكر

شكرا

شكرا لك

أخي بلانك .. لإجراءاتكم بنقل الإجابة إلى الحل الأخير . ما لم يكن هناك أي تعديل آخر .

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

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

مشكلة في الاكسيل :عندي مصحف وورد فيه كلمات لونت فيها بعض الحروف ونسيت تلوين التشكيل وعندما اضعه في الاكسيل اجد ان عدم تلوين التشكيل اثر على ترابط الحروف فتفترق الحروف الغير ملونة وجدت هذا الكود لكنه ثقيل جدا Sub FixUnicodeTashkeel() Dim i As Long Dim char As Range Dim charCode As Long Application.ScreenUpdating = False ' سيبدأ من الحرف الثاني ليفحص ما قبله For i = 2 To ActiveDocument.Characters.Count Set char = ActiveDocument.Characters(i) charCode = AscW(char.Text) ' نطاق اليونيكود للتشكيل العربي القياسي If charCode >= 1611 And charCode <= 1618 Then ' مطابقة لون التشكيل مع لون الحرف السابق له تماماً char.Font.Color = ActiveDocument.Characters(i - 1).Font.Color End If Next i Application.ScreenUpdating = True MsgBox "تمت معالجة كافة أكواد اليونيكود بنجاح!" End Sub هل من حل بارك الله فيكم

كده تمام الله يبارك فيك وهو المطلوب ..... ربنا يعطيك العمر المديد .... وأنفع الناس للناس وانت اهل لذلك . فلك الشكر