اريد كود عدم تكرار رقم في حقل علما انه ليس ترقيم تلقائي

[المحيط سوفت]

لدي جدول فيه عدة حقول

1-حقل رقم ( ليس ترقيم تلقائي ) انما خاصيته رقم ( و هو مفتاح )

2- حقل نصي

و حقول اخرى

 

المطلوب كود عندما اضع اثناء الادخال في الحقل الاول رقم و هذا الرقم موجود في الجدول

ان يعطيني رسالة ان الرقم موجود

و في حال عدم وجوده يسمع لي بالادخال و الاستمرار

 

مع التحية للجميع

[ابوخليل]

ضع هذا الكود في حدث بعد التحديث لحقل id في النموذج

if DCount("*","tbl1","id=" & me.id)>0 then
msgbox"الرقم موجود"
undo
exit sub
end if

 

باعتبار id هو حقل الرقم في الجدول و tbl1 هو الجدول

[ابو الآء]

بارك الله فيك استاذى 

طيب لو حبيت احط عنوان للرساله

( مثلا: تنبية : مع تحياتى الاسم ..........)

[ابو الآء]

استخدمت الكود كدا ونجح

If DCount("*", "TPstoudnt", "activ1=" & Me.activ2) > 0 Then
MsgBox "اختيار مكرر"
Undo
Exit Sub
End If

[ابوخليل]

بارك الله فيك استاذى 

طيب لو حبيت احط عنوان للرساله

( مثلا: تنبية : مع تحياتى الاسم ..........)

 

التنبيه يكون كعنوان في الاطار هكذا

MsgBox "الرقم موجود", , "تنبيه"

ملحوظة : يوجد اختلاف في عرض ترتيب الجمل بسبب الحروف العربية 

           ولكن عند لصقه في محرر الفيجوال سيعود لوضعه الصحيح

 

 

[ابو الآء]

الله ينور استاذى 

تسلم الايادى

[ابو الآء]

طيب انا لو عاوز اربظها بأى دى للطالب

يعنى الطلب مش ينفع يختار نفس النشاطين 

يعنى كل طالب له رقم 

id 

ونشاطين activ1 وactiv1

واسم الجدول

TPstoudnt

 

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

[ابو الآء]

up

[المحيط سوفت]

براك الله فيكم

و مشكورين عم جد على هذا المجهود الرائع

على فكرة انا متابع للموقع من زمان

 

ومشكورين على كل معلومة

 

المحيط سوفت

[المحيط سوفت]

ما افعل في حال كان الحقل نصي مثلا ( اسماء مرضى )

و لا اريد ان يتكرر اسم المريض عند الادخال

المطلوب كود عندما اضع اثناء الادخال في حقل ( الاسماء ) وهذا الاسم موجود في الجدول

ان يعطيني رسالة ان الاسم المدخل موجود في هذا الحقل

و في حال عدم وجوده يسمع لي بالادخال و الاستمرار

 

مع التحية للجميع

و شكرا للمجهود الرائع على ذلك

و انني استفدت من اسئلة العضو PMembers-3

و منكم مباشرة

 

مشكورين

[ابوخليل]

الاسماء عادة تتشابه خلاف للسجل المدني او الرقم القومي

الحل هو الكود السابق مع تغير طفيف ليتناسب مع الحقول النصية

اكتب الكود التالي في حدث بعد التحديث لحقل الاسم

if DCount("*","tbl1","txtname='" & txtname & "'")>0 then
msgbox"الاسم موجود"
undo
exit sub
end if

باعتبار txtname  هو حقل الاسم

[المحيط سوفت]

شكرا لكم جاري تنفيذ الكود

و ان شاء الله تمام

 

تقبل مروري مع التحية

[المحيط سوفت]

تمام التمام