קודים לתקשור עם מערכת טלפונית דרך אקסס

[עמוד הימני פטיש החזק]

@dudu
כל הכבוד לך
תכננתי לעשות את זה בשבילי כיון שבחל מן הקווים עברתי לפרייבט אך לא עלתה בידי עדיין
אז כל הכבוד ותודה בשם כולם!

[מוטלה]

פוסט זה נמחק!

[מוטלה]

@dudu אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:

@עץ-השדה שיניתי את הקובץ של @אריה לשרת פרייבט, מקווה שאכן עשיתי את השינוי כמו שצריך. (אין לי מערכת בשרת פרייבט כדי לבדוק)
תקשור עם מערכת טלפונית 4.0 בשרת פרייבט.7z
בהצלחה!!

תודה רבה!

[פיסטוק חלבי]

@גבאי
אני רואה שאתה עכשיו בפורום וזה הזדמנות לנצל אותך
אולי תסביר לי אחת ולתמיד איך כותבים את הקודים האלו לאקסס
כל מה שאני עושה עם זה לא מצליח
בבקשה
אני מאוד יודה לך

[גבאי]

@פיסטוק-חלבי בשמחה רבה
מה אתה צריך עזרה?
מה למשל אתה צריך לעשות? אני יראה לך בסרטון איך עושים את זה.
בגדול הרעיון הוא כזה:
הקובץ אקסס אחרי שאתה מוריד אותו והופך אותו לזמין!
יש בתוכו הרבה קודים לכל הפעולות למיניהם שאתה מעונין.
בשביל להשתמש בזה בפועל
נניח ואתה רוצה שיהיה לך דף ובו כמה לחצנים שכל אחד עושה פקודה אחרת. ה פעלת קמפין, תזמון קמפין, הורדת נתונים, וכו'.
אתה צריך לפתוח "טופס" ולהוסיף בו לחצנים, ובכל לחצן אתה מגדיר לו פקודה כשבשורת הקוד אתה מכניס את הקוד שאריה הביא פה בראשית הפוטס.

[מוטלה]

@גבאי אני ישמח שתשלח לי סרטון זה יעזור לי מאד!
הכי חשוב זה איך להוציא דוחות של סיכום דקות לפי מאזין ושלוחה.
בברירת מחדל שאריה העלה לכאן זה לפי שניות.
יש אפשרות כזאת?
mmrb05276@gmail.com

[גבאי]

שלחתי לך במייל
בנוגע לדוחות עצמם אני לא בקיא בנבכי הקוד של האקסס את מה להוריד ומה לא
אני מדבר רק על ההפעלה של האקסס בפונקציות הקיימות שאריה הכין.

[פיסטוק חלבי]

@גבאי @מוטלה
אולי תעלה את הסרטון לתועלת הכלל

[פיסטוק חלבי]

@גבאי
מאז שעברתי לפרייבט אני לא מצליח לייבא נתונים והוא כותב שהקובץ לא קיים אע''פ שאני רואה אותו בשלוחה ומעתיק משם את השם של הקובץ

[מוטלה]

@פיסטוק-חלבי תראה כאן

[גבאי]

@פיסטוק-חלבי אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:

מצליח

סה"כ צריך לשנות את הקישור שממנו האקסס לוקח את הנתונים
בפרייבט הכתובת היא שונה
תחפש בקוד את שם צריך לשנות את הקישור
אני ינסה לעשות לך צילום

מסתמא יש עוד מקומות
תחפש את המקומות שמופיע הקישור לאתר ותשנה את זה לקישור החדש של הפרייבט

[פיסטוק חלבי]

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

[פיסטוק חלבי]

@גבאי @מוטלה
אתם צודקים שזה אמורה להיות הבעיה
ובאמת כשאני עובד על אקסס לא בפרייבט זה ההודעה שאני מקבל
אבל כמו שאמרתי אני עובד על החדש ואע''פ כן זו התוצאה

שאלה נוספת האם שייך לעלות ע''י אקסס כמה דברים בבת אחת כי לפי מה שנראה כאן כל שורה צריך לעלות בנפרד

תודה על העזרה

[גבאי]

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

[פיסטוק חלבי]

@גבאי אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:

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

משמים יש לי אותך

[פיסטוק חלבי]

@גבאי
תודה

[גבאי]

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

[פיסטוק חלבי]

@גבאי
תודה
אבל בנוגע לבעיה הקודמת
מופיע לי private בכל המקומות,

[פיסטוק חלבי]

@גבאי
שינתי בכל המקומות וזה מה שהוא כותב
המחשב לא נותן לי לעלות צ''מ ולכן אני מעתיק

Function GetNameFilds(ByVal strText As String)
Dim tmpNamesFildsFile(100) As String

    s = 1
    Do
    filds = Mid(strText, s, InStr(s, strText, "#") - s)
    cntFilds = cntFilds + 1
    tmpNamesFildsFile(cntFilds) = filds
    strText = Replace(strText, "%" & filds, "")
    s = InStr(s, strText, "%") + 1
    If s = 1 Then Exit Do
    Loop
    
    Dim NamesFildsFile() As Variant
    ReDim NamesFildsFile(cntFilds)
    
    For f = 1 To cntFilds
    NamesFildsFile(f) = tmpNamesFildsFile(f)
    Next
    GetNameFilds = NamesFildsFile

End Function

השורה הזו filds = Mid(strText, s, InStr(s, strText, "#") - s)
מודגשת בצהוב

[פיסטוק חלבי]

@מוטלה @גבאי
מצאתי את הבעיה
תודה לכולם