كل الانشطه

أستاذي الفاضل / عبد الله بشير عبد الله السلام عليكم ورحمة الله وبركاته بداية إن حلمكم وتواضعكم الجم وسرعة تلبيتكم لما اطلبه ليزيدني خجلا من نفسي كلما طلبت شيئا وأسأل الله العلي العظيم أن يجزيكم فضل تعليمكم وحلمكم علينا ومن فضلك وإن أذنت لي أستاذي الفاضل؛ لا أريد حذف التنسيقات من شيت معاشات؛ ولكني أريد التنسيق فيه كما يلي: أولا: بالنسبة للصفين الثالث والرابع كما هو موضح في الشيت تماما ثانيا: مثل الصفوف من 7:5 بالنسبة للخط والحدود والتنسيق الشرطي وهكذا لكل صف جديد يتم إضافته لاحقا من شيت DATA بداية من الصف الثامن حتى نهاية الشيت ولكم خالص الشكر والتقدير؛ وتقبلوا خالص اعتذاري وأسفي الشديد على ازعاجكم. ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 7.xlsb

العفو أخي الكريم ، ان كان طلبك قد تحقق ، فيرجى منك فضلاً لا أمراً باغلاق الموضوع باختيار أفضل إجابة للمشاركة التي كانت حلاً يرضيك ,

في إحدى التجارب التي لفتت انتباهي لهذه النقطة كانت عندما قمت بتصميم مشروع قديم ،وكنت تلقائياً بعد فتح قاعدة البيانات وإضافة المكتبات التي اريدها للمشروع ، أقوم بشكل افتراضي بتسمية المشروع في محرر الأكواد إلى اسم المشروع الذي أصممه مطابقاً لاسم قاعدة البيانات التي تم انشاءها . فمثلاً اسم المشروع = "Accounting Software" على سطح المكتب ، واسم المشروع في محرر الأكواد كما أشرت سابقاً = "Accounting Software" أيضاً ، فصادفتني مشكلة عند بدء تشغيل المشروع من نموذج البداية كالمعتاد وهي انه ظهرت رسالة خطأ في أوامر بدي التشغيل للنموذج . ولأنها عادة كانت عندي بالتسمية المتشابهة كما أشرت أعلاه ، قمت بتغيير اسم المشروع في محرر الأوامر . وهنا كانت النقطة الفاصلة التي لفتت انتباهي ان الرسالة لم تظهر أبداً . وهذا ما جعلني أطرح هذه النقطة . لا أعلم السبب الحقيقي !! ولكني في حينها لم أذهب الى البحث عن السبب بشكل جدي .

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

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

وعليكم السلام ورحمة الله وبركاته الاوامر التي يتم فيها التعديل الملونة فقط .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

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