عدم تكرار رقم فى مربع نص

[REDA.M.A]

الساده الافاضل المحترمين

عندي مربع نص باسم ( نص57) و نموذج باسم (frm1)   .

السؤال -  عدم تكرار الارقام التى تدخل فى مربع النص   ------    هل هناك كود يوضع فى ( بعد التحديث) حتى لا يمكن تكرار اي الارقام . و تحياتي 

[سيد هاشم]

برجاء ارفق الملف المطلوب العمل عليه حتى يتثنى للجميع المساعدة بشكل صحيح

[jjafferr]

وعليكم السلام

 

اذا مصدر النموذج عبارة عن جدول او استعلام ، فمصدر قيمة حقل النص يكون من الجدول/الاستعلام ،

فيمكنك في الجدول ان تغيّر اعدادات الحقل ، بحيث يكون مفهرس وغير قابل للتكرار ،

 

واما في النموذج اذا اردت ان تستعمل كود للتأكد من عدم تكرار قيمة الحقل قبل حفظ السجل ، فيمكنك عمل حدث قبل التحديث للحقل ، وعمل مثل هذا الكود:

private sub ....BeforUpdat(...

	dim Counter as integer

	Counter= dcount ("*", "Table Name", "[Field Name in Table]='" & me.FieldNameInForm & "'")  'اذا كان نوع الحقل في الجدول، نص
	'Counter= dcount ("*", "Table Name", "[Field Name in Table]=" & me.FieldNameInForm)         'اذا كان نوع الحقل في الجدول، رقم

	if Counter>0 then
		cancel=true
		'me.undo
		msgbox "عفوا ، هذه القيمة مكررة ولا يمكن حفظها"
	end if

end sub

 

جعفر

[REDA.M.A]

22 ساعات مضت, رضا محمد علي said:

الساده الافاضل المحترمين

عندي مربع نص باسم ( نص57) و نموذج باسم (frm1)   .

السؤال -  عدم تكرار الارقام التى تدخل فى مربع النص   ------    هل هناك كود يوضع فى ( بعد التحديث) حتى لا يمكن تكرار اي الارقام . و تحياتي 

استاذ jjafferr   المحترم

بارك الله فيك و اشكرك على الرد الجميل بس مربع النص باسم ( نص57 ) ليس ضم جدول ولا استعلام  هو  ( مربع تحرير وسرد على النموذج FRM1 )   بدخل فيها ارقام  ؟

فى هذا الكود عند تسجيل اي رقم مكرار و غير مكرار تظهر الرساله   (( فضلاً تأكد من عدم إدخال رقم مكرر )) ما الخطا فى  

 

Dim i
Dim n

i = DLookup("[نص57]", "clndtail", "[نص57]=[نص57]")
n = DLookup("[الاسم]", "clndtail", "[نص57]=[نص57]")

If i <> "" Then
MsgBox " ... فضلاً تأكد من عدم إدخال رقم مكرر", vbOKOnly, "تنبيه"
End If
End Sub
 

[jjafferr]

وعليكم السلام اخي رضا

 

لما تريد ان تضع كود في مشاركتك في المنتدى ، رجاء استعمال الزر التالي ، ثم ادخال الكود في النافذه الخاصه به:

.

فيظهر الكود بالطريقة الصحيحة هكذا:

Dim i
Dim n

i = DLookup("[نص57]", "clndtail", "[نص57]=[نص57]")
n = DLookup("[الاسم]", "clndtail", "[نص57]=[نص57]")


If i <> "" Then
MsgBox " ... فضلاً تأكد من عدم إدخال رقم مكرر", vbOKOnly, "تنبيه"
End If
End Sub

 

جعفر

[jjafferr]

الامر الذي وضعته لك في الكود اسرع في التنفيذ من الامر اللي انت وضعته ،

ولكن عندك خطأ في طريقة تنفيذ الامر ، ويجب عليك الرجوع الى ملف المساعدة Help في الاكسس لمعرفة طريقة عمل هذه الاوامر

 

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

private sub ....BeforUpdat(...

	dim Counter as integer

	'اذا كان نوع الحقل في الجدول، نص
	'Counter= dcount ("*", "clndtail", "[اسم الحقل في الجدول]='" & me.[نص57] & "'")  
	
	'اذا كان نوع الحقل في الجدول، رقم
	Counter= dcount ("*", " clndtail", "[اسم الحقل في الجدول]=" & me.[نص57])         

	if Counter>0 then
		cancel=true
		'me.undo
		msgbox "عفوا ، هذه القيمة مكررة ولا يمكن حفظها"
	end if

end sub

.

1. لاحظ اني اعطيتك طريقتين لإستخدام الامر dcount ، في حال اذا كان نوع الحقل في الجدول عبارة عن نص او رقم ، وانا قمت بتفعيل نوع الرقم في الكود ،

2. رجاء استبدال العبارة [اسم الحقل في الجدول] بالاسم الصحيح.

 

جعفر

[REDA.M.A]

في ٣١‏/٨‏/٢٠١٨ at 03:10, رضا محمد علي said:

الساده الافاضل المحترمين

عندي مربع نص باسم ( نص57) و نموذج باسم (frm1)   .

السؤال -  عدم تكرار الارقام التى تدخل فى مربع النص   ------    هل هناك كود يوضع فى ( بعد التحديث) حتى لا يمكن تكرار اي الارقام . و تحياتي 

استاذ jjafferr   المحترم

سوف اقوم بالتجربه حسب شرح حضرتك استاذ jjafferr و تحياتى لشخصك الكريم

تم تعديل سبتمبر 3, 2018 بواسطه رضا محمد علي

[محمد التميمي]

احسنت اخي  jjafferr تم تطبيق الكد ويعمل بامتياز

بارك الله بجهودك القيمة