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

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

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

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

تفضل اخي الكريم 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

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

لا ليس ذلك أقصد سجلات فاغة تماما زائدة عن العدد تصل الى 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

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

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

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

جرب المرفق الحاق بالجدول.accdb

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

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

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

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

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

غيرها الى exit sub

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

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

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

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

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

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

استاد شعبان سعد عجور اليك الطريقة البسيطة ربما ستعجبك وضعت اربعة كومبوبوكسات واربعة ازرار للبحث حسب الاختيار جرب المرفق تحياتي RASED GADED.xlsm

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

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

اتفضل مع طريقة الطريقة الاولى اللي بواسطة فونتات كما في الصورة الاولى والطريقة الثانية شوف الصورة اتبع الصورة الثالثة اتفضل مع القاعدة بيانات 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

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