اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

في كل البرامج التي اعملها تواجهني مشكلة وهي عند اضافة قيد معين في البرنامج فانني افاجأ ان رقم القيد يتكرر عندي اي انسى انني ادخلت نفس رقم القيد ويحدث قطع في البرنامج اريد عندما اكتب رقم القيد فانه يظهر تبليغ ان القيد مكرر ويجب كتابة رقم قيد جديد انني استخدمت الكود الموجود في منتداكم في احد المشاركات من اجل حل هذه المشكلة من خلال الدالة 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

قام بنشر

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

تفضل ... :fff:

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

 

  • Like 1
قام بنشر

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information