קודים לתקשור עם מערכות בימות דרך קובץ אקסס

[אריה]

מהדפדפן זה פתוח
וקובץ מהמחשב זה כן עובד לי
אולי שמישהו יכתב את המודל האחרון של דוחות האזנה
גם לקובץ מהמחשב
וכמו הקובץ דקות של מאזין נלהב
וזה יועיל לכולם

קוד להורדה מהמחשב, יש לשלוח נתיב, חודש ושנה

ymtListeningReportFromComputer - ניתוח דוחות האזנה מקובץ במחשב

קוד: בחירת הכל

Sub ymtListeningReportFromComputer(strPath As String, strMonth As String, strYaer As String)
Dim TableName As String
TableName = "נתוני האזנה-" & strYaer & "-" & strMonth
ymtImportFileFromComputer strPath, TableName
arrCreateQueryNames = Array("דוח האזנות למאזין", "דוח האזנות למאזין_לפי שלוחה", "דוח האזנות למאזין_לפי ימים", "דוח האזנות שלוחה", "דוח האזנות לשלוחה_לפי ימים", "דוח האזנות יומי")
arrCreateQueryFields = Array("Phone", "Phone, Folder", "Phone , EnterHebrewDate", "Folder", "Folder, EnterHebrewDate", "EnterHebrewDate")

For Q = 0 To 5
If Not IsNull(DLookup("Name", "MSysObjects", "Name='" & TableName & "_" & arrCreateQueryNames(Q) & "'")) Then CurrentDb.QueryDefs.Delete TableName & "_" & arrCreateQueryNames(Q)
CurrentDb.CreateQueryDef TableName & "_" & arrCreateQueryNames(Q), "SELECT " & arrCreateQueryFields(Q) & ", Sum(TimeTotal) AS SumTimeTotal From [" & TableName & "] GROUP BY " & arrCreateQueryFields(Q)
Next
End Sub

[CBHNHI]

אשמח אם תוכל להביא גם דוגמא של קוד לעלות נתונים מאקסס לימות משיח לעדכון קובץ IdListMessage.

בתודה מראש

[שמחת הרגל]

מופיע לי שגיעה בעת הרצת הקובץ

SharedScreenshot.png (114.37 KiB) נצפה 5379 פעמים

[גבאי]

אריה היקר!!!!!!
כל הכבוד לך זה באמת משהו עצום!!!!!!
אולי תוסיף אפשרות של פונקציה להעלאת קבצי טקטס במודול השמעת קבצים (TTS)
שתבדוק קודם במערכת של ימות מה מספר הקובץ האחרון ותעלה קובץ אחד מעליו (שלא ידרוס כל פעם את הקובץ הקודם)
דבר נוסף לתועלת הרבים
אם תוכל להכניס את כל ההודעה שלך ב"חדש במערכת" שם הרבה יותר אנשים רואים את זה ויותר קל גם אח"כ למצוא את זה!

[מתעניין]

כיון שהביקוש הגדול הוא לדוחות מאזינים
מצורף כאן קישור לקובץ עם טופס שקורא לקוד של הורדת דוחות האזנה
https://drive.google.com/open?id=1IAmOl ... V6XJTJl96s

זה עובד למישהו?

[גבאי]

כיון שהביקוש הגדול הוא לדוחות מאזינים
מצורף כאן קישור לקובץ עם טופס שקורא לקוד של הורדת דוחות האזנה
https://drive.google.com/open?id=1IAmOl ... V6XJTJl96s

זה עובד למישהו?

בטח

[מתעניין]

אני נסתי ב2 מחשבים ולא עבד
איזה סינון יש לך?
איזה אנטי וירוס?+
עכשיו הודעה כזאת

[מתעניין]

מהדפדפן זה פתוח
וקובץ מהמחשב זה כן עובד לי
אולי שמישהו יכתב את המודל האחרון של דוחות האזנה
גם לקובץ מהמחשב
וכמו הקובץ דקות של מאזין נלהב
וזה יועיל לכולם

קוד להורדה מהמחשב, יש לשלוח נתיב, חודש ושנה

ymtListeningReportFromComputer - ניתוח דוחות האזנה מקובץ במחשב

קוד: בחירת הכל

Sub ymtListeningReportFromComputer(strPath As String, strMonth As String, strYaer As String)
Dim TableName As String
TableName = "נתוני האזנה-" & strYaer & "-" & strMonth
ymtImportFileFromComputer strPath, TableName
arrCreateQueryNames = Array("דוח האזנות למאזין", "דוח האזנות למאזין_לפי שלוחה", "דוח האזנות למאזין_לפי ימים", "דוח האזנות שלוחה", "דוח האזנות לשלוחה_לפי ימים", "דוח האזנות יומי")
arrCreateQueryFields = Array("Phone", "Phone, Folder", "Phone , EnterHebrewDate", "Folder", "Folder, EnterHebrewDate", "EnterHebrewDate")

For Q = 0 To 5
If Not IsNull(DLookup("Name", "MSysObjects", "Name='" & TableName & "_" & arrCreateQueryNames(Q) & "'")) Then CurrentDb.QueryDefs.Delete TableName & "_" & arrCreateQueryNames(Q)
CurrentDb.CreateQueryDef TableName & "_" & arrCreateQueryNames(Q), "SELECT " & arrCreateQueryFields(Q) & ", Sum(TimeTotal) AS SumTimeTotal From [" & TableName & "] GROUP BY " & arrCreateQueryFields(Q)
Next
End Sub

כתבתי כך וזה לא עובד
מה הטעות?

קוד: בחירת הכל

Option Compare Database
Private Sub פקודה0_Click()
ymtListeningReportFromComputer "C:\Users\This_User\Downloads", "2020", "04"
End Sub

[אריה]

אני נסתי ב2 מחשבים ולא עבד
איזה סינון יש לך?
איזה אנטי וירוס?+
עכשיו הודעה כזאת

יש כאן שורה שאין לי מושג איך היא נכתבה (השורה שמחזירה שגיאה)
כתוב לך

קוד: בחירת הכל

ReDim Option Explicit(cntFilds)

צריך להיות כתוב

קוד: בחירת הכל

ReDim NamesFildsFile(cntFilds)

[אריה]

מהדפדפן זה פתוח
וקובץ מהמחשב זה כן עובד לי
אולי שמישהו יכתב את המודל האחרון של דוחות האזנה
גם לקובץ מהמחשב
וכמו הקובץ דקות של מאזין נלהב
וזה יועיל לכולם

קוד להורדה מהמחשב, יש לשלוח נתיב, חודש ושנה

ymtListeningReportFromComputer - ניתוח דוחות האזנה מקובץ במחשב

קוד: בחירת הכל

Sub ymtListeningReportFromComputer(strPath As String, strMonth As String, strYaer As String)
Dim TableName As String
TableName = "נתוני האזנה-" & strYaer & "-" & strMonth
ymtImportFileFromComputer strPath, TableName
arrCreateQueryNames = Array("דוח האזנות למאזין", "דוח האזנות למאזין_לפי שלוחה", "דוח האזנות למאזין_לפי ימים", "דוח האזנות שלוחה", "דוח האזנות לשלוחה_לפי ימים", "דוח האזנות יומי")
arrCreateQueryFields = Array("Phone", "Phone, Folder", "Phone , EnterHebrewDate", "Folder", "Folder, EnterHebrewDate", "EnterHebrewDate")

For Q = 0 To 5
If Not IsNull(DLookup("Name", "MSysObjects", "Name='" & TableName & "_" & arrCreateQueryNames(Q) & "'")) Then CurrentDb.QueryDefs.Delete TableName & "_" & arrCreateQueryNames(Q)
CurrentDb.CreateQueryDef TableName & "_" & arrCreateQueryNames(Q), "SELECT " & arrCreateQueryFields(Q) & ", Sum(TimeTotal) AS SumTimeTotal From [" & TableName & "] GROUP BY " & arrCreateQueryFields(Q)
Next
End Sub

כתבתי כך וזה לא עובד
מה הטעות?

קוד: בחירת הכל

Option Compare Database
Private Sub פקודה0_Click()
ymtListeningReportFromComputer "C:\Users\This_User\Downloads", "2020", "04"
End Sub

שים לב צריך לכתוב קודם את החודש ואח"כ את השנה
מלבד זאת, הנתיב צריך לכלול גם את הקובץ "C:\Users\This_User\Downloads\LogEnretExitFolder-2020-04.ymgr"
האמת שהיה אפשר לעשות שהקוד יוסיף את שם הקובץ, אבל כל עוד לא כתבתי כך את הקוד, יש לשלוח נתיב מלא (אפשר לעמוד על הקובץ ובחלונית 'תצוגה' לעשות 'העתק נתיב')