ناقل

مشاركة مع الاستاذ الفاضل .... يمكن استخدام هذا الفانك وتستدعيه في الاستعلام Public Function delTshkeel(tshkeel As String) Dim i As Integer Dim fld As String, wr As String, spa As String wr = "" fld = tshkeel i = 1 Do While i <= Len(fld) spa = Mid(fld, i, 1) If Asc(spa) = 240 Or Asc(spa) = 241 Or Asc(spa) = 242 Or Asc(spa) = 243 Or Asc(spa) = 244 Or Asc(spa) = 245 Or Asc(spa) = 246 Or Asc(spa) = 247 Or Asc(spa) = 248 Or Asc(spa) = 249 Or Asc(spa) = 250 Then Else wr = wr & spa End If i = i + 1 Loop delTshkeel = wr End Function وتسدعيه في الاستعلام هكذا .... expr1: delTshkeel([text1])

ممكن مرفق صغير لما تقول للتجربة

عجبتني العبارة بارك الله فيك حبيبي @ابوخليل فعلا هذا الكلام يمثلني .... لاني كل مشاركة مهما كانت بسيطة في نظر البعض احاول دراستها وفهمها لاستفيد ... وفعلا استفدت الكثير منكم جميعا دون استثناء .... لذلك ارجو الا اغضب احدا بأسألتي الكثيرة في بعض المواضيع ... شكرا لكم جميعا من القلب

طلبك اعتقد انه في حال تساوي XXX ب t1 أو t2 وليس و ثم ان وقت الدخول المفروض اقل من وقت انتهاء الدرس اليس كذلك ؟؟؟

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

بارك الله فيك بارك الله فيك ... اخي انا اريد النموذج الموجود في الصورة وليس تكرار لنفس النموذج الموجود في الزر المزيد

بارك الله فيك استاذي العزيز @أبو إبراهيم الغامدي طيب سامحني لكثرة الاسئلة لان الغرض هو الاستفادة من المثال ...... لو حبينا نضيف زر بجوار الزر المزيد لفحح النموذج HTML ؟ هل ممكن ذلك ؟ وكيف تتم تمرير الامر للزر ؟؟ اشكرك لسعة صدرك أخي الفاضل بارك الله في أخي احمد

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

اجعل النماذج منبثق نعم ... ومشروط نعم

أخي امير نصيحة مني لك من اخوك الصغير """ دائما في المنتدى 1- تقيد بقوانين المنتدى 2- اسأل بوضوح 3- ارفق مثال 4- تجد الاجابة ( الاستجابة ) من الاعضاء والخبراء درس تعلمته من مواضيعي السابقة اخوك الصغير / ناقل

ممكن مثال للعمل عليه

شرفي لي ان ينقل عني استاذي .... لانني لازلت اتعلم منه ...

تفضل ربما هذا هو طلبك .... تجربة.rar

ربما هذا طلبك ..... نوع وصنف.accdb

ممكن مثال مصغر للعمل عليه

هل هذا ما تريد .... نوع وصنف.accdb

اذن منع التكرار أن تكون اللجنة والقاعة وليس التكرار في اللجنة فقط .... بمعنى : ان اللجنة 1 ..... القاعة1 ... لا يتكرران أم ان اللجنة1 لا يتكرر ليوم معين وكذلك القاعة ليوم معين مثلا يوم الاحد اللجنة1 لا يتكرر وايضا القاعة1

وهذا يعرض لك موقع التكرار If Not IsNull(DLookup("A", "ABCD", "A=form!A")) Then MsgBox "هذا الرقم تكرر عند " & DLookup("B", "ABCD", "A=form!A") End If

طبعا سؤالك حسب معطيات نموذجك ؟ ... لكن حاول ان تستفيد من هذا If DCount("الرقم", "Données _sur- les- élèves", "[الاسم] = '" & الاسم & "' And [اللقب] = '" & اللقب & "' And [رقم التسجيل] ='" & رقم_التسجيل & "'") > 0 Then Cancel = True MsgBox "هذا الشخص موجود", vbCritical, "عملية خاطئة" End If وهذه طريق اخرى If Not IsNull(DLookup("A", "ABCD", "A=form!A")) Then MsgBox "هذا الرقم تكرر عند " & DLookup("B", "ABCD", "A=form!A") End If

اهلا @MOSTAFA SAEED المنتدى ... لكن لم توضح وتشرح ما ذا تريد بالتفصيل ..... ؟؟؟؟

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

احسن الله اليك

ممكن !!!!!!!!!!!!!!!!!!!!!!!!! ولكن اين المرفق

تفضل ..... تحويل.accdb