ابو عارف

تغير كودزر ( بحث) الى: بحث تطابق الاسم الكامل Dim rst As Recordset Set rst = Me.RecordsetClone rst.FindFirst "[الاسم]='" & TXT & "'" If Not rst.EOF Then Bookmark = rst.Bookmark بحث تطابق احرف الاولى في الاسم Dim rst As Recordset Set rst = Me.RecordsetClone rst.FindFirst "[الاسم]like'" & TXT & "*'" If Not rst.EOF Then Bookmark = rst.Bookmark بحث تطابق احرف اي جزء في الاسم Dim rst As Recordset Set rst = Me.RecordsetClone rst.FindFirst "[الاسم]like'*" & TXT & "*'" If Not rst.EOF Then Bookmark = rst.Bookmark و اما بنسبة التصفية: تصفية تطابق الاسم الكامل filter= "[الاسم]='" & TXT & "'" filteron=true تصفية تطابق احرف الاولى في الاسم filter= "[الاسم]like'" & TXT & "*'" filteron=true تصفية تطابق احرف اي جزء في الاسم filter= "[الاسم]like'*" & TXT & "*'" filteron=true

السلام عليكم تفضل أخي تم تفعيل بحث برقم قاعدة 222البيانات.rar

وعليكم السلام و رحمة الله وبركاته تفضل اخي انظر التعديل ان شاء الله يكون حسب المطلوب HR_5.rar

تفضل اخي اليك الصور بعد اضافة مجموعات

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

تفضل اخي انظر الصور ولكن من الافضل عدم ايقاف رسائل تأكيد بالشكل الدائم خاصتا الااستعلامات الاجرائية

السلام عليكم انتقل الى رابط التالي و قم بتنزيل المرفق من مشاركة الثانية افتح الملف ثم اغلقه و جرب بــ Docmd.setwarningsFalse http://www.officena.net/ib/index.php?s=e161f1e6314885ae29e87d04c0587e76&showtopic=46676

أخي اليك التعديل حذف سجلات H_Delete all records.rar

تفضل أخي H_DrobtoList.rar

تفضل اخي عزيز aziz - 2.rar

Nc1: =DLookUp("[no1]","gdwl") Nc2: =DLookUp("[no2]","gdwl") مع العلم يحضر القيم من صف الاول في الجدول سواء كان سجل واحد او اكثر

nt: IIf(([q4]<0)+([s4]<0)+([ar4]<0)+([e4]<0)+([r4]<0)+([ol4]<0)+([g4]<0);"غائب";IIf(([qm]>=50)*([sm]>=50)*([arm]>=50)*IIf([safno]=6;[em]=0;([em]>=50))*([rm]>=50)*([olm]>=50)*([gm]>=50);"ناجح";"راسب")) اخي الكريم غير الكود على الكود الاعلى

تفضل اخي انظر عمود AA في استعلام Q1 المطلوب.rar

وعليكم السلام و رحمة الله و بركاته الصق الدالة في حقل Days no او في اي حقل جديد آخر في استعلام Days No: IIf(Not IsNull([back date]) Or [back date]<>"",DateDiff("d",[rented date],[back date]),DateDiff("d",[rented date],[Expected Date]))

السلام عليكم ورحمة الله وبركاته عذراً للمداخلة يبدو الأخ ابو خليل لم ينتبه الى سطر الاول في الكود وأشر فيه الى نماذج بدل تقارير و هو يقصد كتابته كالآتي: Do While Reports.Count > 0 DoCmd.Close acReport, Reports(0).Name Loop

نعم أخي ممكن ان شاء الله و بعد خطوات بسيطة 1)تغير تنسيق الحقل من رقم الى النص 2)تغير بسيط في الكود من Dim pass as intiger الى Dim pass as string 3)جعل خاصية قناع ادخال حقل الى "كلمة المرور" او Password و المثال المعدل في المرفقات: collge2.rar

<p>تم نقل المشاركة الى مشاركة التالية</p>

=IIf(([Test1]>10 And [Test2]>10 And [Explor]>15 And [Invest]>15);"لا توجد لدى الطالب أداة ضعيف بها مع تمنياتي له بالتوفيق والتفوق";" " بالتوفيق

السلام عليكم و رحمة الله و بركاته أخي حامل المسك انظر المثال علماً بان تم تخصيص الحقل no1 كحقل ارقام السري بالتوفيق،،، collge.rar

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

وعليكم السلام اليك التعديل حسب ما فهمت من السؤال Barcod.rar

السلام عليكم و رحمة الله و بركاته التعديل في المرفقات بالاضافة وحدة النمطية تم تغير تنسيق حقل DateOfpaid في الجدول و الاستعلام و النموذج الى تاريخ قصير لان للدفع المبلغ أكثر من قيمة مربع (البلغ المستحق) يتم ترحيل الى الشهر التالى بالايام و الساعات والدقائق . وذالك لعرض تاريخ فقط, و لاعادة عرض ساعات و الدقائق قم بالمسح تنسيق . Database1.rar

بارك الله فيك أخي أبو آدم على المثال أكثر من الرائع منذ فترة بناءً على الطلب احد إخوان صممت مربع تحرير و السرد على الفكرة مشابهة يتم تصفية حسب كتابة أي جزء من عناصر القائمة (مثل القوقل) ننتظر رايك و راي باقي اخوان في المنتدى ComboBox.rar

السلام عليكم ورحمة الله و بركاته أخي ابو ايمن : حول سؤالك في مشاركة رقم 18 تكتب الكود بهذالشكل str = ("insert into logaction(username) values ('" & uname & "','" & utime & "')") بالاضافة مثال اخونا ابوآدم بالنفس طريقة بدون Chr(34), في المرفقات: NA_SQLVariable_UP.rar

ممكن تغير أسماء مربعات في الكود الى اسماء متغيرات و مسح مربعات