اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود معرفة التكرار لا يعمل عند اضافة كلمات بها Apostrophe


إذهب إلى أفضل إجابة Solved by Hamdi Edlbi-khalf,

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

Private Sub Worker_BeforeUpdate(Cancel As Integer)


   Set rs = Me.RecordsetClone

 Dim x As Integer
     Dim strSQL As String
    Dim intHow_Many As Integer
    strSQL = "[Worker]='" & RQ{Me.Worker) & "'"

    intHow_Many = DCount("*", "Table", strSQL)

If intHow_Many > 0 Then

DoCmd.OpenForm "Work"
ElseIf intHow_Many = 0 Then
End If

السلام عليكم.

عدل الكود بالصورة السابقة بعد إضافة الفانكشن التالي إلى موديول

Public RQ(STRO)
On Error Resume Next
     RQ = Repalce(STRO,"'")

End Function

المشكلة  أن علامة التنصيص المفردة تحول العبارة إلى تعليق .

تم تعديل بواسطه Khalf
  • Thanks 1
رابط هذا التعليق
شارك

السلام عليكم

استبدل علامة الاقتباس المفردة بعلامتي اقتباس مفردة ، وليس بعلامة اقتباس مزدوجة واحدة.

اجعل الفانكشن بالصورة التالية

< RQ = Replace (Stro,"'",",,") >

أعتذر فأنا أكتب من الموبايل 

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

 

تم تعديل بواسطه Khalf
  • Like 1
  • Haha 1
رابط هذا التعليق
شارك

مرحبا أستاذ @ابا جودى
أستاذى @Khalf

مازال حتى الان يضيف الاسم التى بها ابسرف
مع ان العادى مثلا عند اضافة خالد و هو متكرر يفتح النموذج الذى يفيد التكرار 

رابط هذا التعليق
شارك

  • أفضل إجابة

السلام عليكم

مع أن طلبكم لا يزال غامضاً لدي هذا النموذج فيه تطبيق الكود الذي يمنع ظهور الخطأ ويسمح بالبحث عن الأسماء بعلامة الاقتباس المفردة.

 

EDIT.accdb

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

أستاذى @Khalf

لا يوجد غموض 

عند اضافة اسم اذا كان متكرر يفتح نموذج به الاسماء المكررة و منه اسمح بالاضافة ام لا 

جارى التجربة :wavetowel:

  • Thanks 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