يوجد خطأ في دالة dcount

[اأبو مصطفى]

السلام عليكم اخواني الاعزاء

في كل البرامج التي اعملها تواجهني مشكلة وهي عند اضافة قيد معين في البرنامج فانني افاجأ ان رقم القيد يتكرر عندي اي انسى انني ادخلت نفس رقم القيد ويحدث قطع في البرنامج اريد عندما اكتب رقم القيد فانه يظهر تبليغ ان القيد مكرر ويجب كتابة رقم قيد جديد انني استخدمت الكود الموجود في منتداكم في احد المشاركات من اجل حل هذه المشكلة من خلال الدالة dcount ولكن المشكلة التي تظهر لي عبارة باللغة الانكليزية تقول expected list separator or ) جربت حذفت الفراغات في تركيب الدالة ولكن دون فائدة لم تحل المشكلة مع العلم ان الكود هذا نقلته من منتداكم

Private Sub Form_BeforeUpdate(Cancel As Integer)

If DCount("[field1]", "table1", "[field1]='" & Me!txt1 & "' AND [field2]='" & Me!txt2 & "'AND [field3]='" & Me!txt3 & "'") > 0 Then

     MsgBox "duplicated fields", vbExclamation

    Me.Undo

    Cancel = True

End If

 

 وجربته على البرنامج المرفق في فورم 1 ولم تحل المشكلة اذ ظهرت العبارة الانكليزية الانفة الذكر ارجو المساعدة مع الشكرالجزيل

برنامج الصيدلية - Copy1.rar

[اأبو مصطفى]

للرفع

[كرار صبري _ أبو جنى]

و عليكم السلام و رحمة الله و بركاته ...

تفضل ... 

Private Sub Form_BeforeUpdate(Cancel As Integer)

If DCount("[itemid]", "tab_item", "[itemid]=" & Me!itemid) > 0 Then
MsgBox " duplicated fields", vbExclamation
    Me.Undo
    Cancel = True
End If
End Sub

 

[اأبو مصطفى]

السلام عليكم اخي العزيز

اشكرك كثيرا ً المشكلة حلت بارك الله فيك ولكن انني اعتقدت انني قضيت على القيد المكرر اثناء اضافته بالخطأ ولكن لم تحل المشكلة