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

[محمد احمد لطفى]

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

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

 

وجزاكم الله خيراً

PhotoF.rar

[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

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

تم تعديل فبراير 9, 2020 بواسطه Khalf

[Hamdi Edlbi-khalf]

أعتذر ينقص الفانكشن العبارة الافتتاحية

public Function

 

و العبارة 

Replace 

(STRO,"'","")

لقد كتبتها على عجالة قبل انقطاع الكهرباء ..

تم تعديل فبراير 9, 2020 بواسطه Khalf

[محمد احمد لطفى]

أستاذى @Khalf

أرجو تنفيذها على الملف لانه تحدث لدى اخطاء

[Hamdi Edlbi-khalf]

أخي العزيز 

أرجو أن تعالج النقص وفقاً للتعليق السابق 

فأنا الآن أكتب من الجوال.

أعتذر مرة أخرى

[محمد احمد لطفى]

ما زال يسجل جميع الاسماء التى بها Apostrophe  بدون فتح نموذج الخالص بالتكرار

[ابو جودي]

اتفضل 

PhotoF.zip

[Hamdi Edlbi-khalf]

السلام عليكم

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

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

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

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

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

 

تم تعديل فبراير 10, 2020 بواسطه Khalf

[ابو جودي]

استاذى العزيز واخى الحبيب الاستاذ Khalf انها طريقتكم 

[Hamdi Edlbi-khalf]

جزاكم الله كل خير،وبارك الله بكم.

يبدو أنها الطريقة الوحيدة.

[محمد احمد لطفى]

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

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

[Hamdi Edlbi-khalf]

السلام عليكم

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

 

EDIT.accdb

[محمد احمد لطفى]

أستاذى @Khalf

لا يوجد غموض 

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

جارى التجربة