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

[ِAbo_El_Ela]

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

Database4.rarFetching info...

[ابو جودي]

  في 14‏/11‏/2021 at 15:03, ABOLO2 said:

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

Expand  

 

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

  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]

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

[ابو جودي]

  في 14‏/11‏/2021 at 20:07, ABOLO2 said:

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

Expand  

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

[ِAbo_El_Ela]

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

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

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

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

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

  في 14‏/11‏/2021 at 15:51, ابا جودى said:

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

Expand  

 

[ابو جودي]

  في 14‏/11‏/2021 at 20:14, ABOLO2 said:

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

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

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

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

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

 

Expand  

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

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

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

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

 

[ِAbo_El_Ela]

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

شكرا جزيلا 

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

[ابو جودي]

  في 14‏/11‏/2021 at 20:33, ABOLO2 said:

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

شكرا جزيلا 

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

Expand  

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

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

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

 

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

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

 

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

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

 

[ِAbo_El_Ela]

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