كل الانشطه

وعليكم السلام ورحمة الله وبركاته الاوامر التي يتم فيها التعديل الملونة فقط .HorizontalAlignment = xlCenter المحاذاة الأفقية للنص داخل الخلايا إلى المنتصف (أي النص يظهر في وسط الخلية ). .VerticalAlignment = xlCenter المحاذاة العمودية للنص داخل الخلية إلى الوسط (أي النص يظهر في منتصف ارتفاع الخلية). .ShrinkToFit = True إذا كان النص طويل ولا يتسع داخل الخلية، يُصغّر تلقائيًا ليتناسب مع حجم الخلية بدلًا من أن يتجاوزها. وبمكن ايقافها بتغيير TRUE الى FALSE With .Font فتح إعدادات الخط (Font) للنطاق .Name = "Arial" نوع الخط هو Aria .FontStyle = "غامق" نمط الخط غامق (Bold). .Size = 12 حجم الخط هو 12 نقطة. كذلك يمكن الغاء الجزء المتعلق بالتنسيق وحينها يمكنك النتسيق يدويا حسب رغبتك اليك الملف بدون اي تنسيق عدا النسطير وان اردت الغاء التسطير ابلغنى يذلك هذا حسب فهمى لطلبكم وات كان المطلوب شئ اخر فارجو التوضيح اكثر تحياتي ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 6.xlsb

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

شكرا جزيلا اخي العزيز وجزاك الله خير الجزاء

ممكن تعطينا تفاصيل اكثر لوسمحت

وعليكم السلام ورحمة الله تعالى وبركاته قم بإظافة Textbox جديدة مثلا بإسم TextBoxSearch وإظافة الأكواد التالية Private Sub TextBoxSearch_Change() Dim i As Long, count As Long, sList() As Variant Dim Search As String, tmp() As String, n() As String Search = LCase(Replace(Trim(TextBoxSearch.Text), " ", "")) If Not IsArray(r) Or UBound(r) < 0 Then Exit Sub ReDim tmp(UBound(r)) ReDim n(UBound(r)) For i = 0 To UBound(r) If InStr(LCase(Replace(r(i, 0), " ", "")), Search) > 0 Then tmp(count) = r(i, 0) n(count) = r(i, 1) count = count + 1 End If Next i If count > 0 Then ReDim sList(0 To count - 1, 0 To 1) For i = 0 To count - 1 sList(i, 0) = tmp(i) sList(i, 1) = n(i) Next i ListBox1.List = sList Else ListBox1.clear End If Counter = "عدد التقارير: " & ListBox1.ListCount End Sub "=============================== Private Sub TextBoxSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Not iGblInhibitTextBoxEvents Then TextBoxSearch.value = "" End If End Sub للطباعة إختر ما يناسبك Private Sub CommandButton6_Click() On Error GoTo ClearApp If Me.ListBox1.ListIndex = -1 Then MsgBox "يرجى تحديد الملف المرغوب طباعته", vbExclamation, "إنتبــــاه" Exit Sub End If WebBrowser1.ExecWB 6, 1 '<===== ' عرض نافذة الطباعة ' WebBrowser1.ExecWB 6, 2 '<=====' طباعة مباشرة Exit Sub ClearApp: End Sub قاعدة بيانات الموظفين 3.rar

السلام عليكم ورحمة الله وبركاته هل لي أن اطمع في كرم أخلاقكم و علمكم بأن أعرف شرح الجزء الخاص بكود التنسيق في شيت معاشات بحيث لو أردت أن أقوم بتعديل في التنسيق أستطيع القيام به وجزاكم الله عنا خير الجزاء؛ ودمتم في حفظ الله ورعايته

دي بسيطة جداً .. اليوم ان شاء الله في جهاز البيت لدي نسختين 2010 - 32 / 2026 - 64 ، وفي العمل لدي النسخة 2019 - 64 . خطر ببالي نقطة حصلت معي سابقاً وكانت فعلاً سبب مشكلة في إحدى قواعد البيانات . وهي تغيير اسم المشروع في محرر الأكواد كما في الصورة التالية .. وهذه القاعدة نفسها التي ارفقها أخونا طاهر ولكن بعد تغيير اسم المشروع ، مع عدم تغيير نواة الأكواد من 32 إلى 64 ( حسب النسخة الحالية التي لدي الآن = 2016 - 64 ) ش ع2025.zip

أخى الفاضل ممكن نسخة كاملة من البرنامج

فؤش تقدر تجربها على اوفيس 2010 32 بت ؟ هو عنده اوفيس 10 32 بت وبيقول كل القواعد شغاله الا دى انا عملت المرفق الاخير ده قاعده جديده استوردت كل شئ من القديمه اليها اضفت كلمة مرور للحماية من الانتى فايروس عطلت كل الاكواد اللى بها مشاكل وحولت اى شئ بس لتفادى مشاكل الانويه لان للاسف انا 64 بت القاعده تعمل معى بدون مشاكل ولكن هو نفس المشكله واللى هيجننى ما فى اى اكواد اوتو اكسيك ولا نموذج بدايه القاعده بمجرد الفتح بتظهر رسالة انه سوف يحذف الاكواد الحل الاخير اللى عندى تفعيل الاوفيس لانه غير مفعل المشكله ما عنده انترنت وما قدرت افوت انى ديسك ارسلت له فى رسائل واتس التفعيل لعله يكون السبب ولنا لقاء يوم الاحد القادم لنكمل

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

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

1. رجاء استعمال النسخة التي ارفقتها لك: 1628.2_Import_New_DB_Compact_Repair.accdb 2. اوقف البرامج المضادة للفيروسات ، ومن ضمنها التي تاتي مع الوندوز 10 ، Windows Security 3. كذلك اوقف جميع البرامج التي تراقب برامج الكمبيوتر مثل Adware 4. افصل الحاسبة عن الشبكة والانترنت 5. ادخل في البرنامج بينما تكون ماسك مفتاح الشف ، فهل الاكواد جميعها موجودة؟ من الواضح هناك برنامج خارجي يعتقد ان برنامجك فايروس ، فيقوم بحذف جميع الاكواد ، وخصوصا اذا كانت الحاسبة جزءً من شبكة الشركة ، وهذه الشركة لديها شروط قوية على نوع البرامج الممكن استعمالها

العفو أخي الكريم .. اذا كان قد تم حل مشكلتك ، ففضلاً قم بإغلاق الموضوع .

الحمد لله الذى تتم بنعمته الصالحات

اللهم انت الشافي اشفيه وعافيه ولبسه ثوب العافية

دخلت بمفتاح الشيفت كما قلت وحذفت الاكواد

مشكور اخي ابو حودي حفظك الله ورعاك عبقري

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

المرفق الاخير يقوم بذلك test_05.mdb

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

شكرا جزيلا أخي الفاضل وبارك الله فيك وأعطالك الصحة والعافية علي كرمك وتعبك معي

شكرا جزيلا أخي الفاضل وبارك الله فيك وفي أستاذنا والأب ذو الخلق الكريم والقلب الطيب استاذنا ومعلمنا ( أبو خليل )

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

للتوضيح اكثر اذا كان تاريخ الفاتورة 01/03/2025 أي تاريخ موجود قبل تاريخ 01/03/2025 لمدة 03اشهر أقل منه او يساويه يخرجه الاستعلام مثل 01/03/2025 10/02/2025 أي في مجال من 01/12/2024الى غابة 01/03/2025

صح لكن الصورة للتوضيح استاذ