مساعدة في دالة Dcount

[ِAbo_El_Ela]

المطلوب عند الادخال عد حقل من جدول لعدم تكرار الادخال 

Database4.rar

[ابو جودي]

47 دقائق مضت, ABOLO2 said:

المطلوب عند الادخال عد حقل من جدول لعدم تكرار الادخال 

 

اتفضل غير الكود بتاعك بالكود ده 

  If Nz(DCount("*", "typeDa2wa", "[type]='" & Me![type] & "'"), 0) = 1 Then
    MsgBox "بيانات مكررة"
  Exit Sub
  Else
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("typeDa2wa")
    rs.AddNew
      rs![type] = Me.type
    rs.Update
    Me.type = ""
  End If

 

[ِAbo_El_Ela]

شكرا استاذى الفاضل ربنا يذيدك من عمله  

[ابو جودي]

2 دقائق مضت, ABOLO2 said:

شكرا استاذى الفاضل ربنا يذيدك من عمله  

الشكر لله سبحانه وتعالى 

[ِAbo_El_Ela]

ممكن سؤال صغير تاني 

استاذي العزيز 

ممكن اعرف متي اضع علامات الدبل كوتيشن " 

و متي اضع علامة السنجل كوتيشن '

فلسفة وضع العلامات هنا ايه

4 ساعات مضت, ابا جودى said:

 "[type]='" & Me![type] & "'"

 

[ابو جودي]

7 دقائق مضت, ABOLO2 said:

ممكن سؤال صغير تاني 

استاذي العزيز 

ممكن اعرف متي اضع علامات الدبل كوتيشن " 

و متي اضع علامة السنجل كوتيشن '

فلسفة وضع العلامات هنا ايه

 

بص دى بترجع لنوع البيانات

نستخدم ذلك مع الارقام'
stLinkCriteria = "[PersonalNumber]=" & Me.PersonalNumber

نستخدم ذلك مع النصوص'
stLinkCriteria = "[PersonalName] ='" & [txtLastName] & "'"

نستخدم ذلك مع التواريخ'
stLinkCriteria ="[DateOfBirth] =#" & [txtDateOfBirth] & "#"

 

[ِAbo_El_Ela]

اشكرك استاذي العزيز 

شكرا جزيلا 

ربنا يزيد من عمله و ينفع بك 

[ابو جودي]

الان, ABOLO2 said:

اشكرك استاذي العزيز 

شكرا جزيلا 

ربنا يزيد من عمله و ينفع بك 

طيب من واقع مثال حضرتك للتضح لك الرؤية اكثر
 

لو الحقل type فى الجدول نوع البيانات فيه نص يكون الكود
 

DCount("*", "typeDa2wa", "[type]='" & Me![type] & "'")

 

لو نوع الحقل رقم يكون الكود 

DCount("*", "typeDa2wa", ","[type]=" & Me![type])

 

لو نوع الحقل تاريخ يكون

DCount("*", "typeDa2wa","[type] =#" & [type] & "#")

 

[ِAbo_El_Ela]

جعله الله في ميزان حسناتك و اثابك