Sarah2 قام بنشر يناير 22, 2020 مشاركة قام بنشر يناير 22, 2020 سلام عليكم عندي مربع نص اسمه text7 غير قابل التكرار كيف اضيف مسج رسالة مكتوب عليها ان النص مكرر رابط هذا التعليق شارك More sharing options...
alaa aboul-ela قام بنشر يناير 23, 2020 مشاركة قام بنشر يناير 23, 2020 اجعل من خصائص حقل النص رقم معرف او ادخل في خصائص الجدول وخلي من خصائص الحقل index Yes (No Duplicates) وعند خانة validation text اكتب الرسالة التي تريدها الحقل لا يقبل التكرار مثلا 1 رابط هذا التعليق شارك More sharing options...
Sarah2 قام بنشر يناير 23, 2020 الكاتب مشاركة قام بنشر يناير 23, 2020 ممكن شرح بالصور الله يسعدك يارب رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 23, 2020 مشاركة قام بنشر يناير 23, 2020 السلام عليكم مشاركه مع اخى علاء ونرجو منك فضلا لا امرا ان ترفق مثالا لما تطلب ارفق لك مثال لاخ عزيز جزاه الله خيرا وجميع اخوانى واساتذتى الافاضل تقبل تحياتى وتمنياتى لكم وللجميع بالتوفيق رسالة بالتكرار ويعطي الاسم المتكررR.rar 2 رابط هذا التعليق شارك More sharing options...
alaa aboul-ela قام بنشر يناير 23, 2020 مشاركة قام بنشر يناير 23, 2020 (معدل) 15 hours ago, moopsiop said: ممكن شرح بالصور الله يسعدك يارب اتفضل تم تعديل يناير 23, 2020 بواسطه alaa aboul-ela 1 رابط هذا التعليق شارك More sharing options...
Sarah2 قام بنشر يناير 24, 2020 الكاتب مشاركة قام بنشر يناير 24, 2020 احمد وعلا ربي يسعدكم ويرزقكم ومشكورين حبايبي رابط هذا التعليق شارك More sharing options...
Sarah2 قام بنشر يناير 24, 2020 الكاتب مشاركة قام بنشر يناير 24, 2020 احمد نفس المثال حقك بالضبط ولاكن ماقدرت اعدل ع الكود حقك ممكن شرح الطريقة الحقل عندي اسمه (رقم الهوية) موجود في فورم (الموظفين) رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 شوف اخى افاضل الحقل المراد فى المثال حقل رقمى فاذا كان عندك حقل نصى غيرالسطر بالسطر التالى وعدل CountNum = DCount("*", "date2", "[id]='" & [Forms]![d]![txt] & "'") تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 السلام عليكم بعد اذن اساتذتنا الكرام عملت لك ملف اتمنى ان يكون المطلوب تحياتي Database1.rar 1 1 رابط هذا التعليق شارك More sharing options...
Sarah2 قام بنشر يناير 24, 2020 الكاتب مشاركة قام بنشر يناير 24, 2020 احمد المثال حقك هو المطلوب اللي اقصده بس لما فتحت الكود من الحدث طلع الكود طويل مافهمت اللي اغيره خالد ان شاء الله اجرب المثال واشوفه رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 اخى الفاضل @moopsiop 26 دقائق مضت, خالد سيسكو said: السلام عليكم بعد اذن اساتذتنا الكرام وعليكم السلام اخى خالد لا تستاذن فنحن الذين نستاذنكم بالمشاركم فنتعلم منكم اخى العزيز جزاك الله خيرا مثال اخى اخالد افضل واقصر فالتعديل ضع الكود التالى فى حدث بعد التحديث وغير ما يلزم من اسماء الحقول والجدول الحقل = رقم الهويه الجدول = TABLE1 ID = اسم الحقل فالنموذج وانتبه هنا الاسم ممكن لعلك قد تكون غيرت الاسم بخلاف مصدر التحكم وهذا اذا كان حقل رقم الهويه نوع بياناته رقم Private Sub ID_AfterUpdate() If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]=[ID]")) Then MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه" DoCmd.CancelEvent Me.Undo End If End Sub اذا كان نوع بيانات الحقل نصى ضع الكود التالى مع اتباع نفس التعليمات السابقه Private Sub ID_AfterUpdate() If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]='" & [ID] & "'")) Then MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه" DoCmd.CancelEvent Me.Undo End If End Sub ان لم تستطع التعديل فارفق مثالك ليتم التعديل عليه اخى الفاضل تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 2 1 رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 (معدل) تم تعديل يناير 24, 2020 بواسطه خالد سيسكو 1 رابط هذا التعليق شارك More sharing options...
Sarah2 قام بنشر يناير 24, 2020 الكاتب مشاركة قام بنشر يناير 24, 2020 قسم بالله ملوك الله يرزقكم من واسع فضلة 2 رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 الشكر لكل الاخوة العاملون بهذا الموقع الرائع على التعاون الدائم 2 رابط هذا التعليق شارك More sharing options...
Sarah2 قام بنشر يناير 24, 2020 الكاتب مشاركة قام بنشر يناير 24, 2020 احمد شكرا لك من صميم القلب تم حل المشكلة مع شرحك انت ملك الاكسس وشكرا اخواني على المساعدة جميعا انتم سعادة ربي يرزقكم من واسع فضله❤ رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 الشكر لله ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم والشكر موصول لاخى خالد جزاهم الله خيرا والحمدلله الذى بنعمته تتم الصالحات ولست بملك ولا شىء فاننى طالب علم مبتدىء مثلك بل اقل فمازلت احبو على طريق العلم واياكم اخى الفاضل تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
Sarah2 قام بنشر يناير 24, 2020 الكاتب مشاركة قام بنشر يناير 24, 2020 استاذ احمد لما بدخل رقم غير موجود بالقاعدة يظهر رسالة التنبيه انه مسجل من قبل ؟ رغم انه غير مسجل الرقم بالقاعدة رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 ارفقك مثالك افضل او الكود المعدل ليتم فحصه وما نوع الحقل رابط هذا التعليق شارك More sharing options...
Sarah2 قام بنشر يناير 24, 2020 الكاتب مشاركة قام بنشر يناير 24, 2020 اريد ان اتعلم رابط هذا التعليق شارك More sharing options...
Sarah2 قام بنشر يناير 24, 2020 الكاتب مشاركة قام بنشر يناير 24, 2020 رفض يرفق الملف لي رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 اضغطه بالوينرار ثم ارفقه واذا لم يتم راجع الاكواد مره اخرى ومسميات الحقل رابط هذا التعليق شارك More sharing options...
Sarah2 قام بنشر يناير 24, 2020 الكاتب مشاركة قام بنشر يناير 24, 2020 دقايق ارفع الملف لك انا سويت الكود بعد التحديث وغيرت البيانات وضبط معي التنبيه لاكن لايضيف بياناات جديدة بسبب انها مسجله من قبل رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 اخى الفاضل تعديل على الاكواد السابقه لمثال اخى خالد جزاه الله خيرا فى حدث قبل التحديث وليس بعد Private Sub ID_AfterUpdate() ' للحقل الرقمى If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]=" & Me.[ID])) Then MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه" DoCmd.CancelEvent Me.Undo End If End Sub Private Sub ID_AfterUpdate() 'للحقل النصى If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]='" & Me.[ID] & "'")) Then MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه" DoCmd.CancelEvent Me.Undo End If End Sub ووافنا بالنتيجه 1 رابط هذا التعليق شارك More sharing options...
Sarah2 قام بنشر يناير 24, 2020 الكاتب مشاركة قام بنشر يناير 24, 2020 عملت هذه قبل التحديث ضغطت ع مربع الهوية بالفورم ورحت للحدث ودخلت اجراء حدث قبل التحديث وضفت الكود هذا غيرت table1 باسم جدول قاعدة البيانات لدي اسمه الموظفين وغيرت id باسم حقل الفورم اسمه رقم الهوية وكمان بجدول القاعدة اسمه رقم الهوية If (DLookup("[رقم الهوية]", "الموظفين", "[رقم الهوية]=" & Me.[رقم الهوية])) Then MsgBox "تنبيه الرقم المدخل " & " ( " & [رقم الهوية] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه" DoCmd.CancelEvent Me.Undo End If رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 وما نوع بيانات الحقل فى الجدول هل هو رقمى ام نصى يرجى ارفاق الملف افضل اضغطه وارفعه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان