הגדרות מתקדמות - ארכיון

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

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

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

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

בתודה מראש

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

אריה היקר!!!!!!
כל הכבוד לך זה באמת משהו עצום!!!!!!
אולי תוסיף אפשרות של פונקציה להעלאת קבצי טקטס במודול השמעת קבצים (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

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

אני נסתי ב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

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