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

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

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

שמירת שאילתא באקסס

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

    מחקת את הישן לפני?

    O מנותק
    O מנותק
    one1010
    כתב ב נערך לאחרונה על ידי
    #33

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

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

      טעות שלי, זה מודול של טופס ולכן א"א למחוק אותו.
      פשוט תמחק את כל התוכן שלו, ותעשה העתק הדבק לתוכן שיש בקובץ ששלחתי.

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

        טעות שלי, זה מודול של טופס ולכן א"א למחוק אותו.
        פשוט תמחק את כל התוכן שלו, ותעשה העתק הדבק לתוכן שיש בקובץ ששלחתי.

        O מנותק
        O מנותק
        one1010
        כתב ב נערך לאחרונה על ידי
        #35

        @ארי עשיתי אפי שאמרת, כרגע אין שגיאה.
        בהזדמנות קרובה אבדוק האם זה מבצע את הפעולות בפועל ואעדכן
        תודה רבה!!

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

          @ארי מקבל את השגיאה הבאה כשהמילה CLASS בשורה הראשונה מודגשת

          image.png

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

            תמחק את ה9 שורות הראשונות (עד השורה הכחולה שמתחילה בOption).

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

              תמחק את ה9 שורות הראשונות (עד השורה הכחולה שמתחילה בOption).

              O מנותק
              O מנותק
              one1010
              כתב ב נערך לאחרונה על ידי
              #38

              @ארי צודק...
              נראה שהמבנה של הקוד תקין, אבל אני מקבל הודעה "התרחשה שגיאה במהלך שליחת המייל"

              איך אני יכול לבדוק במה הבעיה?

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

                תחליף את הפונקציה האחרונה במודול שלך (Send) לזה:

                Public Function Send(strBodyText) as string
                'on error goto SendErr
                Dim cdoConfig
                Dim msgOne
                Dim ErrStr
                 
                Set cdoConfig = CreateObject("CDO.Configuration")
                With cdoConfig.Fields
                    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
                    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
                    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@gmail.com"
                    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswoed"
                    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
                    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
                    .Update
                End With
                 
                Set msgOne = CreateObject("CDO.Message")
                Set msgOne.Configuration = cdoConfig
                 
                msgOne.To = "To name <SendTo@gmail.com>"
                msgOne.From = "Your Name <YourEmail@gmail.com>"
                msgOne.Subject = "בוצע חיפוש"
                msgOne.TextBody = strBodyText
                msgOne.Send
                 
                send = "השליחה בוצעה בהצלחה"
                exit function
                
                SendErr:
                send = "התרחשה שגיאה במהלך שליחת המייל"
                End Function
                
                O תגובה 1 תגובה אחרונה
                0
                • א ארי

                  תחליף את הפונקציה האחרונה במודול שלך (Send) לזה:

                  Public Function Send(strBodyText) as string
                  'on error goto SendErr
                  Dim cdoConfig
                  Dim msgOne
                  Dim ErrStr
                   
                  Set cdoConfig = CreateObject("CDO.Configuration")
                  With cdoConfig.Fields
                      .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                      .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
                      .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
                      .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@gmail.com"
                      .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswoed"
                      .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
                      .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
                      .Update
                  End With
                   
                  Set msgOne = CreateObject("CDO.Message")
                  Set msgOne.Configuration = cdoConfig
                   
                  msgOne.To = "To name <SendTo@gmail.com>"
                  msgOne.From = "Your Name <YourEmail@gmail.com>"
                  msgOne.Subject = "בוצע חיפוש"
                  msgOne.TextBody = strBodyText
                  msgOne.Send
                   
                  send = "השליחה בוצעה בהצלחה"
                  exit function
                  
                  SendErr:
                  send = "התרחשה שגיאה במהלך שליחת המייל"
                  End Function
                  
                  O מנותק
                  O מנותק
                  one1010
                  כתב ב נערך לאחרונה על ידי
                  #40

                  @ארי יש פתרון פשוט לכך שכשאני מעתיק מכאן הוא מודבק ב2 שורות ארוכות?

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

                    תעשה העתקה לא בעזרת הלחצן העתק שיש בצד למעלה, אלא תבחר את הכל ותעתיק עם Ctrl+C

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

                      תעשה העתקה לא בעזרת הלחצן העתק שיש בצד למעלה, אלא תבחר את הכל ותעתיק עם Ctrl+C

                      O מנותק
                      O מנותק
                      one1010
                      כתב ב נערך לאחרונה על ידי
                      #42

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

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


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

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

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