اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


lordring

الردود الموصى بها

السلام عليكم

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

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

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

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

19-04-2012%2015-59-05.jpg

واذا كانت هناك امكانية استحداث مربع نص يظهر فيه دائما( 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 في المرات القادمة

رابط هذا التعليق
شارك

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


Dim aa As String

DoCmd.GoToRecord , , acLast

aa = simplename

DoCmd.GoToRecord , , acNewRec

semplename2 = aa

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

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

تم تعديل بواسطه محمد ايمن
رابط هذا التعليق
شارك

أخي العزيز

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


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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

مع التقدير

رابط هذا التعليق
شارك

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

تفضل ....

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

za-Database-NAup2.rar

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

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

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information