@one1010 זה ממש לא תקין.
אם אתה רוצה שלא רק יתנו לך בכפית אלא גם יאכילו אותך, ואתה לא רוצה להעלות את הקובץ שלך לכאן. אתה יכול לייצא רק את המודול VBA לקובץ ואתו להעלות.
ככה אולי @מלא ירצה לעזור לך יותר...
תעמוד בחלון הVBA על הטופס שבו נמצא הקוד הנ"ל, תלחץ על מקש ימני, ואז על Export File, ותשמור אותו במחשב.
לאמח"כ תעלה לכאן את הקובץ הזה, ונראה אם יהיה קל יותר לעזור לך.
ארי
-
-
@מלא כתב בשמירת שאילתא באקסס:
נורא מסקרן אותי אם בנית את המערכת לבד או לקחת משהו קיים ומנסה להוסיף בו משהו.
זה תוכנה מוכרת (ולא חוקית....)
-
@one1010 כתב בGPT-4 כישוריו בהמצאת תשובות:
אבל בלי קשר, זה שלכלב יש 4 רגליים ולא 5 זה כבר נמצא במדע הישן והוא לא צריך להתעדכן דווקא ממידע חדש
אולי זה מגיע מזה שלא על זה הייתה השאלה.
אם תשאל אותו כמה רגליים יש לכלב אני מניח שהוא יודע את התשובה, אבל אם זה חלק זניח מהשאלה הוא פשוט מכניס את הטקסט מהשאלה לתוך התשובה.
כנראה הם חושבים שכך זה יראה יותר אמין כשהוא מתייחס ישירות לשאלה שלך. -
@חוקר לא.
אחרי כמה ימים.
הקבלה קיימת כבר, ואפשר להוריד אותה דרך האתר, אבל אני מחפש API שיעשה את זה.
תודה. -
אם כבר יש נושא בעניין זה, אז אצרף את מה שמפריע לי.
כיון שתמיד רואים את כותרת הנושא, וכן אי אפשר לצמצם את טופס התגובה. מה שקורה זה שכשכותבים תגובה אי אפשר תוך כדי לראות תגובות קודמות.
דבר שדי מפריע כשרוצים להתייחס לכמה נקודות וכדו'. -
@one1010 אתה בטוח שהיא לא נמצאת במנהל משימות?
זה אמור להופיע בתור תהליך ברקע. -
@ארי כתב בעריכת קובץ שאילתת אקסס:
תנסה לפתוח את הקובץ תוך כדי שאתה לוחץ של מקש שיפט.
מה קורה כשאתה עושה את זה?
-
@dovid האמת שזה לא כ"כ נצרך.
יותר סקרנות, ומחשבה שאולי יש איזה שגיאה באתר שיכולה להתנקם בי בהמשך גם באקסס. -
@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 }
זה בקשה להוספת לקוח במערכת (לא של הנפקת קבלה בפועל)
תודה! -
@mekev אכן התובנות נכונות.
סתם בשביל הרחבת הידע, יש קשר בין התאריך של המחשב לפעולות שהוא מבצע ברשת?
-
@mekev זה תמונה מאתמול.....
למה התאריך אמור להשפיע? -
@סקרן-0 רק כדי להבין.
יש לך טבלת לקוחות, טבלת אנשי שיווק, וטבלה שמכילה קוד לקוח וקוד האיש שיווק שלו? -
@Shmuel754 תודה, אבל התשובה כאן פתרה את הבעיה.
תודה לכולם! -
דוגמת קוד:
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 אנסה.
תודה. -
@Y-Excel-Access אכן במקרה כזה הקוד לא יעבוד.
אמנם הוא לא מחזיר שגיאה, אבל גם לא את הערך המבוקש. -
ערב טוב.
לצורך ייעול קוד שלי היה לי רצון למצוא דרך לקבל נתון מתוך רשימת 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
-
שבוע טוב.
האם מישהו יודע אם יש דרך להשתמש בקורא כרטיסים דרך VBA באקסס?
לצורך אבטחה אני רוצה להתנות פעולות מסוימות באימות מול כרטיס שהמשתמש יכניס.
וכן, האם מישהו יודע אם אפשר להשתמש לצורך זה בכרטיס רב קו? האם אפשר לקרוא אותו בקלות?
אני מנסה לחסוך לעצמי לקנות ולחלק כרטיסים למשתמשים, ופשוט להשתמש בכרטיס רב קו האישי של כל אחד.
תודה רבה. -
@mekev לפי מה שהבנתי זה עובד דרך ZIPY, כך שהוא מזהה רק חבילות מאמזון אלי אקספרס ואיביי.
-
@yossiz תודה!
אחרי ששלחתי את השאלה, חשבתי גם עם Collection, ודווקא נראה לי שזה יצא מסודר יותר....
שוב תודה!
שמירת שאילתא באקסס
שמירת שאילתא באקסס
GPT-4 כישוריו בהמצאת תשובות
הורדת קבלות מאתר איזיקאונט (ezcount)
הסתרת כותרת נושא בפורום
עריכת קובץ שאילתת אקסס
עריכת קובץ שאילתת אקסס
בעיה בשליחת API
שגיאה בשליחת API - אקסס
שגיאה בשליחת API - אקסס
שגיאה בשליחת API - אקסס
הרצת שאילתה בלולאה - VBA אקסס
שליחת מייל מאקסס - עיצוב html
שליחת מייל מאקסס - עיצוב html
מיזוג דואר מאקסס
קבלת ערך Enum ממספר - VBA
קבלת ערך Enum ממספר - VBA
קריאת כרטיס חכם באקסס
API למעקב חבילה בדואר ישראל
לולאה על Public Type