דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. עזרה בשאילתה בVBA

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

מתוזמן נעוץ נעול הועבר תכנות
28 פוסטים 4 כותבים 1.5k צפיות 3 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • א מנותק
    א מנותק
    ארי
    כתב ב נערך לאחרונה על ידי
    #19

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

    clickoneC 2 תגובות תגובה אחרונה
    0
    • א ארי

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

      clickoneC מנותק
      clickoneC מנותק
      clickone
      כתב ב נערך לאחרונה על ידי
      #20

      @ארי

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

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

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

      אין טסט כמו פרודקשן.

      המייל שלי urivpn@gmail.com

      תגובה 1 תגובה אחרונה
      2
      • א ארי

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

        clickoneC מנותק
        clickoneC מנותק
        clickone
        כתב ב נערך לאחרונה על ידי
        #21

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

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

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

        אין טסט כמו פרודקשן.

        המייל שלי urivpn@gmail.com

        תגובה 1 תגובה אחרונה
        0
        • א מנותק
          א מנותק
          ארי
          כתב ב נערך לאחרונה על ידי
          #22

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

          clickoneC תגובה 1 תגובה אחרונה
          0
          • מנצפךמ מנותק
            מנצפךמ מנותק
            מנצפך
            כתב ב נערך לאחרונה על ידי
            #23

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

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

            תגובה 1 תגובה אחרונה
            1
            • א ארי

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

              clickoneC מנותק
              clickoneC מנותק
              clickone
              כתב ב נערך לאחרונה על ידי
              #24

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

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

              אין טסט כמו פרודקשן.

              המייל שלי urivpn@gmail.com

              מנצפךמ תגובה 1 תגובה אחרונה
              0
              • clickoneC clickone

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

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

                מנצפךמ מנותק
                מנצפךמ מנותק
                מנצפך
                כתב ב נערך לאחרונה על ידי
                #25

                @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
                
                clickoneC תגובה 1 תגובה אחרונה
                1
                • א מנותק
                  א מנותק
                  ארי
                  כתב ב נערך לאחרונה על ידי
                  #26

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

                  תגובה 1 תגובה אחרונה
                  0
                  • מנצפךמ מנצפך

                    @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
                    
                    clickoneC מנותק
                    clickoneC מנותק
                    clickone
                    כתב ב נערך לאחרונה על ידי
                    #27

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

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

                    אין טסט כמו פרודקשן.

                    המייל שלי urivpn@gmail.com

                    מנצפךמ תגובה 1 תגובה אחרונה
                    3
                    • clickoneC clickone

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

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

                      מנצפךמ מנותק
                      מנצפךמ מנותק
                      מנצפך
                      כתב ב נערך לאחרונה על ידי
                      #28

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

                      תגובה 1 תגובה אחרונה
                      4
                      תגובה
                      • תגובה כנושא
                      התחברו כדי לפרסם תגובה
                      • מהישן לחדש
                      • מהחדש לישן
                      • הכי הרבה הצבעות


                      • 1
                      • 2
                      בא תתחבר לדף היומי!
                      • התחברות

                      • אין לך חשבון עדיין? הרשמה

                      • התחברו או הירשמו כדי לחפש.
                      • פוסט ראשון
                        פוסט אחרון
                      0
                      • דף הבית
                      • קטגוריות
                      • פוסטים אחרונים
                      • משתמשים
                      • חיפוש
                      • חוקי הפורום