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

فقط غير هذا السطر strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & ctl.Value & "'" بهذا strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & "*" & ctl.Value & "*" & "'" وهذا المرفق تحياتي search _02.rar

ارفق قاعدة بيانات مصغرة لكي اجرب بعض العمليات عليه

و هذا حل آخر For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acCheckBox Then If Not IsNull(ctl.Value) Then If IsNumeric(ctl.Value) Then strWhere = strWhere & " AND " & ctl.Name & " = " & ctl.Value Else strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & ctl.Value & "'" End If End If End If Next و هذا هو المرفق search _02.rar

تم حل المشكلة وتم ضبط الكود بفضل الله تعالى وهذه هى النتيجه حتى تعم الفائده search _ done.rar تم تغير هذا السطر فى الكود strTag = ctl.Tag بهذا الكود strTag = """" وذلك لاتمام الفائده ان شاء الله تعالى كل الشكر والتقدير لكل اساتذتى الكرام الذين تفضلوا بمحاولة تقديم الحل جزاكم الله تعالى الخير كله ان شاء الله

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

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

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

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

الملف مصاب بقيروس و رفض الجهاز التعامل معه لذا انشأت لك ملفاً اخر شبيه به يحتوي على الحل Book_ٍSALIM.rar

تم التعديل على الماكرو ليتناسب مع الوضع (كلمة السر pass) بشرط احتواء الخلية AA1 على الرقم 1 (غير مرئي) الكود يعمل فقط في العامود A لفك الحماية امسح الخلية AA1 و لاعادتها ارجع قيمتها الى 1 protect first column.rar

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

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

مشاركة مع اخوتي واحبتي افضل عملية بحث احتفظ بها (طريقة استاذنا جعفر ) Dim mySQL As String Dim mySQL1 As String Private Sub Form_Load() mySQL = "Select * From tbl_test" Me.ID = "" If Len(Me.ID & "") = 0 Then Me.sfmList.Form.RecordSource = mySQL End If End Sub Private Sub ID_Change() Dim fld As String Dim x() As String Dim A As String Dim i fld = "ID" fld = fld & " & ' ' & " & "fname" fld = fld & " & ' ' & " & "mname" fld = fld & " & ' ' & " & "lname" mySQL1 = "Select * From tbl_test" mySQL = mySQL1 & " Where " Me.ID.SetFocus A = Me.ID.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") x = Split(A, "|") If UBound(x) = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else For i = LBound(x) To UBound(x) If i = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else mySQL = mySQL & " AND " & fld mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If If Len(Me.ID.Text & "") = 0 Then mySQL = mySQL1 End If Me.sfmList.Form.RecordSource = mySQL End Sub افضل عملية بحث.rar

حدد النص اولا او استخدم Ctrl + A للتحديد الكل وبعد تحديد النص اضغط ضغط مطولا على زر Alt ولا ترفع عليه حتى تضغط مرة واحدة على حرف H وبعدين رقم 0 اللي فوق الحروف اي في راس الكيبورد تحياتي

اتفضل استخدمت هذا الكود Dim sql As String sql = "UPDATE tab SET tab.a = Null, tab.b = Null, tab.c = Null, tab.d = Null, tab.e = Null, tab.f = Null, tab.g = Null, tab.h = Null;" If MsgBox("هل انت متأكد من تفريغ البيانات", vbYesNo) = vbYes Then DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) DoCmd.SetWarnings (warningson) Me.Refresh MsgBox "تم تفريغ البيانات" Else Exit Sub End If مرفقك بعد تعديل حذف بيانات.rar

استاذي الفاضل Shivan Rekany الله لايحرمنا من شخصك الكريم نعم هذا هو المطلوب جزاك الله كل الخير ربي يحفظك يارب

معذرة اخي عن الإطالة بسبب ظروف الشغل تفضل اخي لعله المطلوب مساعدة فى اليوزر فورم.rar

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

اتفضل CostDB12.rar

السلام عليكم أضف هذا الكود لحدث بعد التحديث لمربع التحرير و السرد: DoCmd.OpenReport "Re_Q2", acViewPreview, , "[Cala_Name]='" & Me![ãÑÈÚ_ÊÍÑíÑ_æÓÑÏ62] & "'" و هذا التعديل على المرفق CostDB12.rar

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ' هنا ضع الامر الذي تريد تنفيذه بعد الضغط على زر انتر End If End Sub

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

جزاكم الله كل الخير

اتفضل الكود مع طلبك 037.rar

النموذج المطلوب التعديل عليه هو frm_Search وتم التنويه على النموذج بالمطلوب للايضاح اكثر ان شاء الله search _02.rar

جرب هذا الملف بعد ان تحفظ الباسوورد يمكن ازالة الخلايا الصفراء protect non empty data with Pass word.rar

تفضل أخي الكريم: لعل هذا هو المطلوب اظهار الدرجة خلف شبه المنحرف والدائرة-ج.rar

الاخ حمادة شكرا لك هو انت حتغنى شايف صوتى يعنى العندليب الاسمر الفكرة زمان كنا بنسجل على برنامج بدون صوت وحسب رأى الزملاء اضطريت اعيد اغلب الفيديوهات بالصوت بعد اجراء بعض التعديلات من اوفيس 2003 الى 2010 ربنا يوفقك ان شاء الله

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

acviewNormal

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

هذا دلوى اظهار الدرجة خلف شبه المنحرف والدائرة.rar

لا خلاص العمليه تمام وبرافو عليك في تطبيقها تحياتي

نعم

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

ما تريد بالضبط هل ممكن ترسم لنا او شوف هدول الصورة هل تريد اي واحد منهما تحياتي

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

هل قصدك بزر End اللي على كيبورد اذا الجواب نعم استخدم هذا الكود Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 35 Then DoCmd.GoToRecord , , acLast End If End Sub لكن يجب ان يكون خاصية النموذج كى بريفيو بيكون نعم او يجب ان تستخدم هذا الكود معه في حدث عند فتح او تحميل النموذج Private Sub Form_Load() Me.KeyPreview = True End Sub واذا ما كان قصدك اللي في كيبورد استاذنا @صالح حمادي عمل لك اربع ازرار اتفچل مع قاعده‌ بيانات بها الكود الاعلاه تحياتي الانتقال لاخر سجل.rar

السلام عليكم تفضل أخي لقد أضفت 4 أزرار بالنموذج الرئيسي تمكنك من التنقل بين سجلات النموذج الفرعي (الأول, الأخير, السابق, التالي). البحث.rar

اخي الكريم هي جملة خدمات في برنامج واحد

استاذ ابو خليل ماهي طريقة الفتح التي استعملتها؟

تم الفتح

لماذا لايستطيع برنامجك استخراج كلمة المرور؟؟؟ حاول ان تستنتج الاجابة ولكي نسمح للأخوة الافاضل بالتجربة ايضاً وبعدها سأزودك بالحل قريباً

حياكم الله استاذ صالح هذا تعديل بسيط مقترح على مثال الاستاذ ابو خليل Private Sub Form_Timer() DoCmd.GoToRecord , , acGoTo, Int((Me.RecordsetClone.RecordCount - 1 + 1) * Rnd + 1) End Sub حيث اصبح التنقل عشوائي بين 1 وعدد سجلات النموذج تحياتي

السلام عليكم أستاذ رمهان حياك الله نعم ملاحظاتك صحيحة و في محلها. أخي أبو ابراهيم تفضل: لقد قمت بإجراء التعديلات التالية على ملف الأستاذ ابو خليل: 1- أضفت جدول جديد "جدول الفائزين" كل شخص يخرج في القرعة يضاف إلى هذا الجدول. 2- عند خروج أي شخص في القرعة فإن البرنامج سوف يكتب في حقل "خارج القرعة" للجدول "القرعة" 1. 3- أضفت استعلام "استعلام1" و جعلته مصدر السجلات للنموذج "القرعة" و وضعت به شرط أن يكون حقل "خارج القرعة" خاليا. يعني أن الحقول المكتوب بها 1 لا تدخل في القرعة. القرعة.rar

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

وعليكم السلام وحياك الله بين اخوانك القرعة.rar

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

أخى الفاضل / هذا الملف لأحد الزملاء افتحه قد يفى بالغرض منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد.rar

تفضل هذا المثال لبعض الطرق db11.rar