محمد احمد لطفى قام بنشر مايو 19, 2017 قام بنشر مايو 19, 2017 (معدل) السلام عليكم ورحمة الله و بركاته انا مانع التكرار من خصائص الجدول و لكن فى النموذج عند التكرار الاسم بالخطأ تظهر هذه الرسالة كيف امنع هذه الرسالة اريد ظهور رسالة هذا الاسم مسجل من قبل و يتم التراجع عنه جزاكم الله خيرا test120.rar تم تعديل مايو 19, 2017 بواسطه محمد احمد لطفى
co2002co قام بنشر مايو 19, 2017 قام بنشر مايو 19, 2017 المنتدى يزخر بالامثله لكن عندي سؤال ما الحكمه من تكرار الاسم عند الضغط على كلمه start او ما الغرض من الزر start 1
محمد احمد لطفى قام بنشر مايو 19, 2017 الكاتب قام بنشر مايو 19, 2017 (معدل) جزاك الله خير هل يمكن عملها فى نفس الخلية و لا تكون لها علاقة بالنموذج الفرعى فى أمر بعد التحديث تم تعديل مايو 19, 2017 بواسطه محمد احمد لطفى
co2002co قام بنشر مايو 19, 2017 قام بنشر مايو 19, 2017 تفضل 3 ساعات مضت, محمد احمد لطفى said: فى أمر بعد التحديث الفترق حدث قبل التحديث test120.rar 1
محمد احمد لطفى قام بنشر مايو 20, 2017 الكاتب قام بنشر مايو 20, 2017 هل يجب عمل نموذج أخر أم لا هذا النموذج مثل ما أعمل عليه أعتذر منك test150.rar
Shivan Rekany قام بنشر مايو 20, 2017 قام بنشر مايو 20, 2017 5 دقائق مضت, محمد احمد لطفى said: هل من مساعدة اذا تريد ان لا يكرر الاسم فقط اليك هذا الكود قبل تحديث الاسم Private Sub serial_BeforeUpdate(Cancel As Integer) If DCount("[id1]", "id", "[serial]='" & Me.serial & "'") > 0 Then MsgBox "هذا الاسم مكرر" Cancel = -1 End If End Sub 2
محمد احمد لطفى قام بنشر مايو 20, 2017 الكاتب قام بنشر مايو 20, 2017 20 minutes ago, Shivan Rekany said: اذا تريد ان لا يكرر الاسم فقط اليك هذا الكود قبل تحديث الاسم Private Sub serial_BeforeUpdate(Cancel As Integer) If DCount("[id1]", "id", "[serial]='" & Me.serial & "'") > 0 Then MsgBox "هذا الاسم مكرر" Cancel = -1 End If End Sub أعتذر منك هل يمكن تطبيقها هنا test150.rar
أفضل إجابة Shivan Rekany قام بنشر مايو 20, 2017 أفضل إجابة قام بنشر مايو 20, 2017 بكل سرور 4 دقائق مضت, محمد احمد لطفى said: أعتذر منك هل يمكن تطبيقها هنا test150.rar لان مصدر نموذجك هو استعلام q1 لذا انا غيرت في اسم الجدول الى اسم الاستعلام وتقدر تكتب اسم الجدول ايضا لكن الاسم الجدول اللي هو مصدر الاستعلام استخدمت هذا Private Sub serial_BeforeUpdate(Cancel As Integer) If DCount("[id]", "q1", "[serial]='" & Me.serial & "'") > 0 Then MsgBox "هذا الاسم مكرر" Cancel = -1 End If End Sub واليك ملفك بعد تعديل test150.rar 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.