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

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 @ארי
וגם לא לעשות שמות בעברית. זה מתכון לטרור.

תחומים - פורום חרדי מקצועי

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