تعديل كود للتأكد من صحة الاسم

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

السلام عليكم 

الكد ادناه يعمل للتأكد من وجود البيانات وعدم تكرارها

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

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

' مفتاح اضافة موظف اخر لنفس القرار
 Dim strSQL As String
    Dim intHow_Many As Integer
   
    strSQL = "[KararNom]='" & Me.KararNom & "'"
    strSQL = strSQL & " And [KararYear]='" & Me.KararYear & "'"
    strSQL = strSQL & " And [CompID]=" & Me.CompId
    intHow_Many = DCount("*", "TblKararat", strSQL)
    If intHow_Many > 0 Then
     NameFd = Me.KararID
   MsgBox "لا يمكن تسجيل هذا الاسم بالنظام لانه مسجل مسبقا"
 End If

456.mdb

تم تعديل مارس 31, 2019 بواسطه محمد التميمي

[ابو ياسين المشولي]

اظن يوضع هذا الكود قبل التحديث

[ابو ياسين المشولي]

وهذا حل اخر في امر زر التاكد

Dim X
X = Nz(DLookup("[KararNom]", "TblKararat", "[KararNom]='" & Me.KararNom & "'"), 0)
If Not IsNull(X) = True Then
MsgBox "تـنـبـيـه الـرقـم الـمـدخـل " & " ( " & X & " ) " & "  هـذا الـرقـم  تـم  تـسـجـيـلـه  مـسـبـقـا ُ جـرب رقـم آخـر سـوف تنـتـقـل الـى الـتـفـاصـيـل", vbInformation, "تـنـبـيـه"
Undo
DoCmd.OpenForm "TblKa", , , "[KararNom] = '" & Me.KararNom & "'"

End If

 

[رمهان]

هنا شبيه للمطلوب حاول تطبيق الفكره ياباشا 

https://www.officena.net/ib/topic/63159-التأكد-والبحث-عن-المكرر-اثناء-الاضافة-او-التعديل/

 

تحياتي

[midomashakel]

راجع هذا الرابط للاستاذ جعفر  والاستاذ  عبداللطيف سلوم

 

تم تعديل أبريل 1, 2019 بواسطه midomashakel

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

السلام عليكم 

شكراً اخي midomashakel الرابط كان مهم جداً وكان هو الحل المناسب

شكراً اخي العزيز ابو ياسين 

شكرا اخي رمضان

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