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

يقول النبي ﷺ (( من لا يشكر الناس لا يشكر الله )) و كلمة شكرا قليلة في حقكم فقد كسبت قلوبا طيبة في هذا المنتدى العظيم ففي كل يوم نتعلم و ننقل ما تعلمناه ابتغاء الاجر من ربٍ كريم كذلك ... لم تنمحني إدارة هذا المنتدى العظيم شرف الانضمام لإسرة الخبراء ألا بمساعدة الجميع و بمحبته و قلوبهم النقية و ثقتهم شكرا لكم فردا فراد ففي مثل هذه اللحظات يعجز القلب و اللسان عن التعبير و اسأل الله لي و لكم التوفيق و النجاح ,,, ,

الصق العبارة هذه ...... @;"سجل جديد" الصق العبارة كاملة دون نقص

اذا كان فهمي لموضوعك صحيحا ... افتح على خصائص الحقل -------->>>>>> تنسيق ثم الصق هذه العبارة @;"سجل جديد"

تفضل اخي الكريم On Error Resume Next Dim varFilter As Variant varFilter = Null varFilter = (varFilter) & "[dtotal] >= 30 " With Me.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With الفلتر بين نطاقين varFilter = (varFilter) & "[Amount] Between 30 AND 50 " لالغاء الفلتر ضع في امر With Me.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = False Else .FilterOn = False End If .Requery End With

أخى محمد الخزان .. أولا يجب إتباع قواعد المنتدى من هنا https://www.officena.net/Tips/Questions.htm فيجب توضيح محتوى الموضوع من عنوانه. ولأنها أول مشاركة لك فتفضل لعله يفيد. Database1 (1).accdb

مبروك أستاذ حسين كمال إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك عن حق وجدارة بارك الله فيك وزادك الله من فضله

شرح طريقة ربط الليست بوكس بالتيكست بوكس الفيديو الصور

جرب شغلbenyasien كمسئول benyasien.rar

اخي الكريم جرب هذا المرفق هناك مجلد اسمه ملفات وبداخله مجلد اخر بنفس الاسم كمافي الصورتين ضعه في الفولدر D: او C:ملفات.rar ملاحظة : الكود لاستاذنا المحترم ياسر خليل وتم تعديله حسب طلبك ملفات.rar

حياك أخي @ناقل ....

هل هذه الصورة هي المطلوبة ... وإذا كانت الاجابة لا وضع أو ارفق مثال ...

السلام عليكم بعد اذن اخي واستاذي ابا جودي تفضل اخي حربي لك ماطلبت مثال 2003.mdb

تفضل اخي الكريم في حدث بعد التحديث ضع الكود التالي مع مراعاة اضافة اسم مربع النص الأمر الذي سيتم تنفيذه - انشاء جدول للبحث بإسم SaveSearch - حفظ جميع النصوص المدخلة من مربع النص - حفظ التاريخ و الوقت Dim x x = [مربع النص] On Error GoTo errorhandle DoCmd.RunSQL "CREATE TABLE SaveSearch ([Search] VARCHAR (200) , [Date_Search] VARCHAR (20) );" errorhandleexit: Exit Function errorhandle: If Err.Number = 3010 Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO SaveSearch Values ('" & x & "' , Now())" DoCmd.SetWarnings True Else MsgBox Err.Number & "-" & Err.Description End If Resume errorhandleexit

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

السلام عليكم نستطيع تسجيل الأداة من خلال الأكسس أنا أستعمل هذا المرفق فقط نضع الأداة بجانب الملف تثبيت كود بار.rar

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

خلي مصدر بيانات التقرير من استعلام التوحيد اللذي تم تمج استعلامين فيه

تسلم اخي ابو زاهر نحن في الخدمه

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

لا لازم تشغله منفصل كمسئول لانه bat

يتبع سؤال اخي @ابا جودى هل يمكن تشغيل هذا الملف عن طريق الاكسس مباشرة كمسؤل عن طريق زر في النموذج

نعم استاذي كل المكنبات بمختلف انواعها

هل ممكن تسجيل الـ dll بنفس الطريقة ؟؟

عذرا للخطاء غير مقصودة حيث عملت تعديل في حقل جديد في استعلام ثم لصقته Total Out في بدلا من NDays_OT Overtime_Final_2019.rar

تفضل _بيان الحالة - نسخة1.xlsm

من خصائص النموذج السماح بالاضافة =لا ثم وضعت امر متعدد الخيارات يسمح بالاضافة عند رغبتك او الايقاف

لا ليس ذلك أقصد سجلات فاغة تماما زائدة عن العدد تصل الى 10 اذا كان العدد الموظفين كبير الا خ kha9009lid ررررررررررررررررائع كيف فعل الطريقة باااااااااارك الله فيكم تعالج المشكلة Me.AllowAdditions = False

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

اعليكم السلام الصق هذالكود في حدث بعد تحديث لـ txt7 DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE جدول1 SET جدول1.[تاريخ الحضور]=txt7" DoCmd.SetWarnings True Me.Requery

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

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

شكرا لك أستاذ لم يكون يعمل عندي من قبل

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

ممكن المرفق اللى حضرتك شغال عليه

غيرها الى exit sub

تأكد من تصميم التقرير مربع النص الذي فيه الرقم كبير تستطيع فعل ذلك من تصميم التقرير

جزاك الله خيرا وكثر من امثالك

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

اللهم آميييييييييييييييييييييييييييييييييييييييييين

اذا كنت تقصد اخفاء قيمة الصفر اخفاء Hidezero اظهار showzero أظهار البنود (1).xls

السلام عليكم-تم التوفيق لإضافة رفع ملفات الإكسيل ذات الإمتداد Xlsb بدون ضغط وذلك لتسهيل رفع الملفات الضخمة المعقدة ذات المعادلات الكثيرة بارك الله فيك استاذ محمد طاهر والى الأمام والتفوق دائما

السلام عليكم ورحمة الله تم تعديل معادلات التنسيقات الشرطية في العمودين A و B بحيث يتم مباشرة تلوين خلايا العمود A التي تحوي قيما غير موجودة في العمود B (الأصفر) وتلوين خلايا العمود B التي تحوي قيما غير موجودة في العمود A (الوردي أو لون آخر) دون الاعتماد على قيم خلايا العمودين E و F... بن علية حاجي تنسيق شرطى بناء على قيم.xlsx

جرب هذا الملف (ليس فقط الشهر بل السنة ايضاً) MY_DATE.xlsx

شكرا أخوي شفان يحتاج المرة الجاية اكتب ، للدعم الفني رجاء مراجعة الاستاذ شفان جعفر

الدرس الثالث: الدالة Select Case تشبه الدالة Select Case إلى حد كبير الدالة If و لكنها تختلف عنها بالتعدد أي أنها تكون في الشروط المتعددة. طريقة الاستعمال: الصيغة الأولى: Select Case Expression Case Expression_1 Statement_1 Case Expression_2 Statement_2 Case Expression_n Statement_n End Select تقوم الدالة Select Case باختبار حالة الكائن أو المتغير Expression و مقارنتها أو مطابقتها مع الحالات الموجودة بداخلها. و عند تحقق الشرط مع إحدى الحالات يقوم البرنامج بتنفيذ التعليمة Statement التابعة لهذه الحالة. و عند عدم مطابقة الكائن أو المتغير لجميع الحالات فإن البرنامج لا يعطينا أي نتيجة. مثال1: كتابة الأرقام من 1 إلى 4 بالحروف Select Case me.le_nombre Case 1 Me.y = "واحد" Case 2 Me.y = "إثنان" Case 3 Me.y = "ثلاثة" Case 4 Me.y = "أربعة" End Select أضفنا مربع نص اسمه le_nombre لإدخال الأرقام و مربع نص اسمه y من أجل ظهور النتيجة. الصيغة الثانية: Select Case Expression Case Expression_1 Statement_1 Case Expression_2 Statement_2 Case Expression_n Statement_n Case Else Other_statement End Select في هذه الصيغة عند عدم تحقق الشرط مع جميع الحالات يتم إرجاع التعليمة الإستثنائية Other_statement مثال2: نفس المثال الأول Select Case me.le_nombre Case 1 Me.y = "واحد" Case 2 Me.y = "إثنان" Case 3 Me.y = "ثلاثة" Case 4 Me.y = "أربعة" Case Else me.y = "هذا الرقم غير موجود" End Select هذا عندما نضيف أي رقم يختلف عن 1 أو 2 أو 3 أو 4 يطبع لنا "هذا الرقم غير موجود" مثال 3: برنامج كتابة ملاحظات التلاميذ حسب الدرجة Select Case Me.Degre Case 0 To 30 Me.y = "ضعيف" Case 30 To 49 Me.y = "دون الوسط" Case 50 To 69 Me.y = "مقبول" Case 70 To 89 Me.y = "جيد جدا" Case 90 To 100 Me.y = "ممتاز" Case Else Me.y = "هذه الدرجة خاطئة" End Select هنا إستخدمنا To معناه إلى مثلا: من 0 إلى 30

اتفضل مع طريقة الطريقة الاولى اللي بواسطة فونتات كما في الصورة الاولى والطريقة الثانية شوف الصورة اتبع الصورة الثالثة اتفضل مع القاعدة بيانات db4 (2) (1).rar

اتفضل اخي ملفك بعد تعديل انا غيرت كما قال استاذنا ابو خليل القدير و اضفت طريقة اخرى بواسطة فونت C39HrP48DhTt اكتب اي رقم تريد وراح يظهر كما هو فقط شوف نظرة ووافينا بالنتيجة db4 (2).rar

قم بتغيير الكود الى هذا Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect '================== For Each cel In Target.Cells Application.EnableEvents = False If cel.HasFormula Then cel.Locked = True cel.FormulaHidden = True With ActiveSheet .Protect .EnableSelection = xllockedCells End With GoTo 1: Else ActiveSheet.Unprotect End If Next 1: Application.EnableEvents = True End Sub

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