مطلوب منع التكرار عند الادخال مع رسالة

[lordring]

السلام عليكم

في المرفق التالي

لدي نموذج لادخال البيانات فقط ..فيه يوجد حقل sample name كما موضح في الصورة

هذا الحقل جعلت في خصائصه ان يكون غير قابل للتكرار لاني اريده ان يكون رقما فريد لكل نموذج

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

واذا كانت هناك امكانية استحداث مربع نص يظهر فيه دائما( sample name) لاخر سجل موجود في قاعدة البيانات لكي يعرف المستخدم ماهو اخر sample nameموجود ليكتب sample name

الجديد

كون ان الاسماء المفروض سيكون فيها تراكم رقمي بمعنى مثلا لوكان اخر سجل sample name فيه هو 2 فهذا يعني انه يجب ان يبداء sample name الجديد بالرقم 3 طبعا الرقم هو جزء من تسمية وليس كل التسمية لكن للتوضيح فقط ..

مع التقدير والامتنان مقدما

http://dl.dropbox.com/u/9352509/access/za-Database-UP.rar

[محمد ايمن]

اخي الكريم جرب الرابط التالي يمكن يفيدك

http://www.officena.net/ib/index.php?showtopic=534&hl=%2B%D9%83%D9%88%D8%AF+%2B%D8%B9%D8%AF%D9%85+%2B%D8%AA%D9%83%D8%B1%D8%A7%D8%B1+%2B%D8%A7%D9%84%D8%B3%D8%AC%D9%84%D8%A7%D8%AA&fromsearch=1

ولي طلب خاص منك ياريت ترفع القاعدة بصيغة 2003 في المرات القادمة

[lordring]

اخي لااستطيع تحويله ال 2003 لانه يحتوي خصائص لايدعمها ال 2003

وبالنسبة الى الحلول اعلاه لم اوفق في تطبيقها ..

[عبد الفتاح كيرة]

جزاكم الله خيرا

[lordring]

اهلا اخي وبانتظار النتيجة ان شاء الله

[عبد الفتاح كيرة]

لإظهار أكبر رقم لموظف فى الجدول بمربع النص

=DMax("num";"Main")

حيث num اسم حقل الرقم

و main اسم الجدول

[lordring]

اخي الكريم الحقل هو ليس رقم وانما حقل نص يحتوي رقم

المطلوب اظهار قيمة هذا الحقل لاخر سجل في البرنامج ......

[محمد ايمن]

جرب الكود التالي

Dim aa As String

DoCmd.GoToRecord , , acLast

aa = simplename

DoCmd.GoToRecord , , acNewRec

semplename2 = aa

semplename هو اسم الحقل الذي نريد قيمته

semplename2 هو اسم الحقل الذي نخزن فيه قيمة آخر حقل و هو غير منضم

تم تعديل أبريل 20, 2012 بواسطه محمد ايمن

[lordring]

طيب وين اخلي الكود هذا في اي حدث؟؟

[أبو آدم]

أخي العزيز

هذه هي الكودات ....

Private Sub sam_codec_AfterUpdate()

Dim rst As DAO.Recordset

Dim strSQL As String

strSQL = "SELECT [samresult-tbl].sam_codec " & vbCrLf & _

"FROM [samresult-tbl] " & vbCrLf & _

"WHERE [samresult-tbl].sam_codec = '" & Me!sam_codec & "' ;"

Set rst = CurrentDb.OpenRecordset(strSQL)


If rst.RecordCount > 0 Then

MsgBox " Doblecated recorde", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " Note "

Do Until rst.EOF

rst.MoveNext

Loop

End If

Me.Undo

DoCmd.CancelEvent

rst.Close

Set rst = Nothing

Me.Text72 = ""

Me.sam_date.SetFocus

End Sub

Private Sub sam_codec_GotFocus()

Me.Text72 = DMax("[id]", "samresult-tbl")

End Sub

...................

[أبو آدم]

وهذا التطبيق المعدّل .....

والله من وراء القصد ... وهو حسبي

...............

za-Database-NAup.rar

[محمد ايمن]

ضع الكودات في حدث التحميل الخاص بالنموذج

[lordring]

اخي الكريم ابو ادم

هناك مشكلة في التطبيق فانهي احاول ان ادخل سجلات جديدة لكنها لاتظهر ؟؟

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

حيث اني بمجرد رفع التركيز من مربع اسم التموذج تختفي البيانات .....

[أبو آدم]

تفضل ......

...............

za-Database-NAup1.rar

[lordring]

اخي الفاضل شكرا لك

الامور افضل لكن لايزال هناك بعض الاشكالات اطمع بعطفك في تحسينها

عندما اقوم بملى البيانات وادخل رقم مكرر فتظهر رسالة الخطاء واضغط على موافق يتم محو كل البيانات وهذا هدر للوقت ويسبب نوع من التململ

المطلوب هو الغاء فقط القيمة المكرر ة

في حقل اسم النموذج

.. ان امكن وليس تفريغ كل حقول السجل ..

مع التقدير

[أبو آدم]

تفضل ....

...................

za-Database-NAup2.rar

[lordring]

الله يبارك بيك ويجزيك الجنة ..

تحياتي لك اخي الكريم

[أبو آدم]

الحمدلله الذي بفضله تقضى الحاجات

(تمت الاجابة)

[mohammad arabi]

في ٢١‏/٤‏/٢٠١٢ at 01:10, أبو آدم said:

تفضل ....

...................

za-Database-NAup2.rar

الاستاذ ابو ادم الملف يعمل ولكن هناك مشكلة بالتنفيذ بسبب ان الويندوز عندي 64 بت والكود مصمم ل32بت

هل هناك طريقة للتعديل ؟

[ابوخليل]

اخي الكريم

الموضوع قديم  منذ سنوات 

يمكنك بدلا من التعقيب فتح موضوع جديد  بمسألتك