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

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

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

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

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

    לא.
    זה כותב לי פרמטרים מעטים מדי.

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

      בשביל לגשת לטופס צריך לעשות משהו כמו:

      [Forms]![myFrom]![MyControl]
      
      תגובה 1 תגובה אחרונה
      0
      • מנצפךמ מנותק
        מנצפךמ מנותק
        מנצפך
        כתב ב נערך לאחרונה על ידי
        #18

        @ארי למה מחקת את השאילה האחרונה?

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

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

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

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

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

                    מנצפךמ תגובה 1 תגובה אחרונה
                    0
                    • מנצפךמ מנותק
                      מנצפךמ מנותק
                      מנצפך
                      השיב לclickone ב נערך לאחרונה על ידי
                      #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
                        • clickoneC מנותק
                          clickoneC מנותק
                          clickone
                          השיב למנצפך ב נערך לאחרונה על ידי
                          #27

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

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

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

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

                          מנצפךמ תגובה 1 תגובה אחרונה
                          3
                          • מנצפךמ מנותק
                            מנצפךמ מנותק
                            מנצפך
                            השיב לclickone ב נערך לאחרונה על ידי
                            #28

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

                            תגובה 1 תגובה אחרונה
                            4

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

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

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