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

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

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

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

تفضل اخي الكريم 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 بنفس الطريقة ؟؟

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

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

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

هل تقصد هذا الحقل ....

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

أرفق مثالك للمشكلة ...

استاذ شعبان سعد عجور يمكنك زيادة اصناف اخرى كما تشاء وجميع الكومبوبوكسات يتم تعبئتها فيحدث الدخول الى ورقة العمل كما في الكود Private Sub Worksheet_Activate() Dim ws As Worksheet: Set ws = Sheets("شاشة بحث") Dim ws2 As Worksheet: Set ws2 = Sheets("الرصيد") Dim lr, x, r ComboBox1.Clear ComboBox2.Clear ComboBox3.Clear ComboBox4.Clear ComboBox5.Clear lr = ws2.Range("a" & Rows.Count).End(xlUp).Row For x = 2 To lr If ws2.Range("a" & x) <> "" Then ComboBox1.AddItem ws2.Range("a" & x) ComboBox2.AddItem ws2.Range("b" & x) ComboBox3.AddItem ws2.Range("c" & x) ComboBox4.AddItem ws2.Range("d" & x) ComboBox5.AddItem ws2.Range("e" & x) End If Next x End Sub RASED GADED.xlsm

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

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

تفضل تعديل الكود اخي الكريم On Error GoTo errorhandle Dim x اسم مربع النص الذي في النموذج x = [مربع النص] DoCmd.SetWarnings False اسم الجدول الذي سيتم تخزين به نصوص البحث DoCmd.RunSQL "INSERT INTO [ اسم الجدول ] Values ('" & x & "' , Now())" DoCmd.SetWarnings True errorhandleexit: Exit sub errorhandle: MsgBox Err.Number & "-" & Err.Description Resume errorhandleexit

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

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

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

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

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

غيرها الى exit sub

فعلا يستحق وبجدارة ماشاء الله علم وخلق

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

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

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

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

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

أخي @DWPS التعديل حسب تصنيفات على حدا كان سهلا للغاية ولكن بعد اطلاع على ملفك الاخير وجدت اكواد كثيرة ما لا داعي له باضافة بعض أخطاء كما في الصورة: و اليك الملف المعدل Overtime_Final_2019.rar

السلام عليكم-تم التوفيق لإضافة رفع ملفات الإكسيل ذات الإمتداد 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

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