טעות שלי, זה מודול של טופס ולכן א"א למחוק אותו.
פשוט תמחק את כל התוכן שלו, ותעשה העתק הדבק לתוכן שיש בקובץ ששלחתי.
ארי
-
שמירת שאילתא באקסס -
שמירת שאילתא באקססמצורף קובץ חדש.
תמחק את המודול הישן, ואז תעלה את החדש לתוכנה (מקש ימני כנ"ל ואז Impot File).
מקווה שיעבוד.
יש לך כמה מקומות שאתה צריך לעדכן בקוד של השליחת מייל, אתה צריך להכניס את הכתובת מייל שלך והסיסמא שלך, וגם את הכתובת מייל של המייל שאליו אתה רוצה שהמייל יישלח (זה יכול להיות אותו מייל שממנו נשלח).השינויים הם בשורות הבאות:
להכניס את הכתובת מייל שלך (במקום YourEmail@gmail.com) :.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@gmail.com"
את הסיסמא (במקום YourPasswoed) :
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswoed"
את המייל של הנמען (במקום "To name SendTo@gmail.com" תכתוב פשוט את הכתובת מייל (מוקפת בגרשיים כמובן) :
msgOne.To = "To name <SendTo@gmail.com>"
את המייל שלך שוב (במקום Your Name YourEmail@gmail.com) :
msgOne.From = "Your Name <YourEmail@gmail.com>"
בהצלחה
-
שמירת שאילתא באקסס@one1010 שמתי לב, עדיף ככה.
-
שמירת שאילתא באקסס@one1010 זה ממש לא תקין.
אם אתה רוצה שלא רק יתנו לך בכפית אלא גם יאכילו אותך, ואתה לא רוצה להעלות את הקובץ שלך לכאן. אתה יכול לייצא רק את המודול VBA לקובץ ואתו להעלות.
ככה אולי @מלא ירצה לעזור לך יותר...
תעמוד בחלון הVBA על הטופס שבו נמצא הקוד הנ"ל, תלחץ על מקש ימני, ואז על Export File, ותשמור אותו במחשב.
לאמח"כ תעלה לכאן את הקובץ הזה, ונראה אם יהיה קל יותר לעזור לך. -
שמירת שאילתא באקסס@מלא כתב בשמירת שאילתא באקסס:
נורא מסקרן אותי אם בנית את המערכת לבד או לקחת משהו קיים ומנסה להוסיף בו משהו.
זה תוכנה מוכרת (ולא חוקית....)
-
GPT-4 כישוריו בהמצאת תשובות@one1010 כתב בGPT-4 כישוריו בהמצאת תשובות:
אבל בלי קשר, זה שלכלב יש 4 רגליים ולא 5 זה כבר נמצא במדע הישן והוא לא צריך להתעדכן דווקא ממידע חדש
אולי זה מגיע מזה שלא על זה הייתה השאלה.
אם תשאל אותו כמה רגליים יש לכלב אני מניח שהוא יודע את התשובה, אבל אם זה חלק זניח מהשאלה הוא פשוט מכניס את הטקסט מהשאלה לתוך התשובה.
כנראה הם חושבים שכך זה יראה יותר אמין כשהוא מתייחס ישירות לשאלה שלך. -
הורדת קבלות מאתר איזיקאונט (ezcount)@חוקר לא.
אחרי כמה ימים.
הקבלה קיימת כבר, ואפשר להוריד אותה דרך האתר, אבל אני מחפש API שיעשה את זה.
תודה. -
הסתרת כותרת נושא בפורוםאם כבר יש נושא בעניין זה, אז אצרף את מה שמפריע לי.
כיון שתמיד רואים את כותרת הנושא, וכן אי אפשר לצמצם את טופס התגובה. מה שקורה זה שכשכותבים תגובה אי אפשר תוך כדי לראות תגובות קודמות.
דבר שדי מפריע כשרוצים להתייחס לכמה נקודות וכדו'. -
עריכת קובץ שאילתת אקסס@one1010 אתה בטוח שהיא לא נמצאת במנהל משימות?
זה אמור להופיע בתור תהליך ברקע. -
עריכת קובץ שאילתת אקסס@ארי כתב בעריכת קובץ שאילתת אקסס:
תנסה לפתוח את הקובץ תוך כדי שאתה לוחץ של מקש שיפט.
מה קורה כשאתה עושה את זה?
-
בעיה בשליחת API@dovid האמת שזה לא כ"כ נצרך.
יותר סקרנות, ומחשבה שאולי יש איזה שגיאה באתר שיכולה להתנקם בי בהמשך גם באקסס. -
שגיאה בשליחת API - אקסס@mekev לא נשלח פרמטר של תאריך.
זה הפרמטרים שנשלחים (מתוך הדוגמא באתר).{ "Details": { "ExternalIdentifier": null, "NoVAT": null, "SearchMode": null, "Name": "Danny Dean", "Phone": "050-1234567", "EmailAddress": "danny@dean.com", "City": null, "Address": null, "ZipCode": null, "CompanyNumber": "514000123", "ID": null, "Folder": null }, "Credentials": { "CompanyID": 12345678, "APIKey": "AsOUq8u8Mk80G4IZ7AZEYhKccOEzHy9HQBNuf41jBGN6mekFIN" }, "ResponseLanguage": null }
זה בקשה להוספת לקוח במערכת (לא של הנפקת קבלה בפועל)
תודה! -
שגיאה בשליחת API - אקסס@mekev אכן התובנות נכונות.
סתם בשביל הרחבת הידע, יש קשר בין התאריך של המחשב לפעולות שהוא מבצע ברשת?
-
שגיאה בשליחת API - אקסס@mekev זה תמונה מאתמול.....
למה התאריך אמור להשפיע? -
הרצת שאילתה בלולאה - VBA אקסס@סקרן-0 רק כדי להבין.
יש לך טבלת לקוחות, טבלת אנשי שיווק, וטבלה שמכילה קוד לקוח וקוד האיש שיווק שלו? -
שליחת מייל מאקסס - עיצוב html@Shmuel754 תודה, אבל התשובה כאן פתרה את הבעיה.
תודה לכולם! -
שליחת מייל מאקסס - עיצוב htmlדוגמת קוד:
Private Function sendEmail() Dim cdoConfig Dim msgOne Dim Html As String Html = "<div dir=" & Chr(34) & "rtl" & Chr(34) & ">" Html = Html & "<div>לכבוד פלוני אלמוני</div>" Html = Html & "<div>להלן קישור לפורום תחומים.</div>" Html = Html & "<div><a href=""https://tchumim.com/post/149773"">לחצו כאן למעבר לפורום.</a><br></div>" Html = Html & "<div><br></div>" Html = Html & "<div>תודה.<br></div>" Html = Html & "<div class=" & Chr(34) & "yj6qo" & Chr(34) & "></div><div class=" & Chr(34) & "adL" & Chr(34) & "><br></div></div>" 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") = "mygmail@gmail.com" .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass" .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 = "yourgmail.com" msgOne.FROM = "my name <mygmail@gmail.com>" msgOne.Subject = "mail with html" msgOne.HTMLBody = Html msgOne.send End Function
תודה!
-
מיזוג דואר מאקסס@clickone אנסה.
תודה. -
קבלת ערך Enum ממספר - VBA@Y-Excel-Access אכן במקרה כזה הקוד לא יעבוד.
אמנם הוא לא מחזיר שגיאה, אבל גם לא את הערך המבוקש. -
קבלת ערך Enum ממספר - VBAערב טוב.
לצורך ייעול קוד שלי היה לי רצון למצוא דרך לקבל נתון מתוך רשימת Enum בקוד VBA באקסס.
כלומר, כידוע רשימה זו מחזירה רק מספר ולא ערך, ורציתי לקבל את הערך ולא רק את המספר (מקווה שאני מובן).
לצורך זה כתבתי את הקוד הבא, ובקשתי היא האם חברי הפורום יוכל לעבור עליו, אשמח לקבל כל הערה/הארה.
תודה.Option Compare Database Option Explicit Public Enum EnumTest a = 1 b = 2 c = 3 E = 15 End Enum Public Function FindEnumString(EnumNum As String, EnumName As String, Optional ModuleName As String) As String Dim ModStr As String Dim EnumStr() As String Dim i If ModuleName = "" Then ModuleName = VBE.ActiveCodePane.CodeModule ModStr = VBE.ActiveVBProject.VBComponents.item(ModuleName).CodeModule.Lines(1, VBE.ActiveVBProject.VBComponents.item(ModuleName).CodeModule.CountOfLines) ModStr = Mid(ModStr, InStr(1, ModStr, "Enum " & EnumName) + Len("Enum " & EnumName), InStr(1, ModStr, "End Enum") - (InStr(1, ModStr, "Enum " & EnumName) + Len("Enum " & EnumName))) EnumStr = Split(ModStr, vbCrLf) For i = LBound(EnumStr) To UBound(EnumStr) If Trim(Right(EnumStr(i), Len(EnumStr(i)) - InStr(1, EnumStr(i), "="))) = EnumNum Then FindEnumString = Trim(Left(EnumStr(i), InStr(1, EnumStr(i), "=") - 1)) End If Next i End Function Public Function test() Dim En As String En = EnumTest.b Debug.Print En & " (" & FindEnumString(En, "EnumTest") & ")" End Function