עזרה בשאילתה בVBA

[ארי]

טעות, האתר לא נותן לי לכתוב מדי הרבה תגובות.
צריך לעשות את זה גם כשהקוד נמצא על הטופס עצמו, עשיתי משתנה שהערך שלו זה השדה ואת זה הוא הצליח, אבל לסנן לפי זה הוא נתקע.
אגב איך עושים ציטוט של קוד?

[clickone]

@ארי

1. אתה יכול להעלות דוגמא קטנה?
2. עצה שלי. תנסה לעבור לשמות טבלאות טפסים ושדות באנגלית. זה ממש יקל עליך את החיים. (אין לך מושג כמה...)

לכארה כמו שכתבו כאן אתה צריך להקיף במרכאות או בגרש בודד.
אם CT זה משתנה, אני ממליץ בחום להוסיף לפרוייקט את פונקציית Enquote
ופשוט לעטוף איתה בשאילתות בקוד את הסטרינג.
היא מטפלת בגרשיים באופן מושלם.

 Function Enquote(ByVal strText As String) As String
    Enquote = """" & Replace(strText, """", """""") & """"
End Function

[clickone]

@ארי אמר בעזרה בשאילתה בVBA:

אגב איך עושים ציטוט של קוד?

עושים 3 פעמים תלתל (~) כדי להתחיל קוד ו3 כדי לסיים

[ארי]

0_1541451751561_שאילתה.accdb
הקוד אמור לעדכן את כל מי שמסומן בטיפול - לשולם, בחנות שאותה בחרתי.

[מנצפך]

@ארי בבקשה:
0_1541457262145_תקין.accdb

זה עובד בדיוק לפי מה שכתבתי לך.

[clickone]

@ארי הנה עם הפונקצייה Enquote
0_1541503809314_1541451769207-שאילתה.accdb

@מנצפך משום מה לא הצלחתי לפתוח תקין את הקובץ שהעלית

[מנצפך]

@clickone @ארי מצורף כאן כל הקוד VBA:

Option Compare Database
Option Explicit
 
Private Sub אישור_Click()
Dim rs As DAO.Recordset
Dim nm As String
nm = Me.חנות
If Nz(Me.חנות, "") <> "" Then
        Set rs = CurrentDb.OpenRecordset("SELECT * FROM טתלושים WHERE ((([טתלושים].[בטיפול]) = True) AND (([טתלושים].[שולם]) = False) AND (([טתלושים].[חנות]) = '" & nm & "'))")
        If rs.RecordCount = 0 Then
            MsgBox "אין שוברים בטיפול", , "שוברים 4000"
        Else
            If MsgBox("קיימים שוברים בטיפול מחשבונות קודמים" & Chr(13) & "?האם ברצונך לסמנם כשולמו", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "שוברים 4000") = vbYes Then
                DoCmd.SetWarnings False
                    DoCmd.RunSQL ("UPDATE טתלושים SET טתלושים.שולם = True WHERE ([טתלושים].[חנות] = '" & nm & "')")
                DoCmd.SetWarnings False
            Else
                MsgBox "לא ניתן להתחיל חשבון חדש לפני סימון שולם על החשבון הקודם", vbInformation + vbOKOnly + vbMsgBoxRight, "שוברים 4000"
                Me.חנות = Null
            End If
        End If
Else
    MsgBox "נא להכניס שם חנות", vbCritical + vbOKOnly + vbMsgBoxRight, "שוברים 4000"
End If
End Sub

[ארי]

תודה רבה!!!
עובד מצויין!

[clickone]

@מנצפך רק הערת אגב, אם בשם החנות יהיה גרש (') אז זה ישבור את הקוד שלך.
הפונקצייה שהעלתי מסתדרת גם עם זה

@ארי שים לב שמבחינת ניהול נכון של DB, עדיף שהחנויות יהיו בטבלה נפרדת, ולשמור בטבלה רק את המזהה של החנות.

[מנצפך]

@clickone @ארי
וגם לא לעשות שמות בעברית. זה מתכון לטרור.