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

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

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

[מוטלה]

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

[גבאי]

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

מצליח

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

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

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

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

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

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

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

תודה על העזרה

[גבאי]

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

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

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

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

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

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

@גבאי
תודה

[גבאי]

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

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

@גבאי
תודה
אבל בנוגע לבעיה הקודמת
מופיע לי 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)
מודגשת בצהוב

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

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

[dudu]

מצו"ב קובץ אקסס, הקובץ הוא הקובץ של @אריה והוספתי לו טופס שדרכו אפשר ליצור כמה שלוחות בבת אחת מטבלה, כאשר יש ליצור טבלה שהעמודה הראשונה תכיל את נתיב השלוחה וכל עמודה נוספת תכיל הגדרה. כל שורה בטבלה = שלוחה חדשה.
בהצלחה!!
הקובץ הנכון מוכנס בפוסט בהמשך.

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

@dudu
תודה תודה ושוב תודה
תבורך

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

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

[dudu]

@פיסטוק-חלבי סליחה, הייתה שם טעות בקובץ, מעלה את הקובץ המסודר,
לא לשרת פרייבט.
תקשור עם מערכת טלפונית 4.0.accdb.zip

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

@dudu
צ''מ לבדיקתך

[dudu]

@פיסטוק-חלבי זה המקום היחיד שהיה את הטעות, תשנה מ private ל www ויעבוד לך מצוין.

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

@dudu

[dudu]

@פיסטוק-חלבי עדכנתי והעליתי קובץ חדש.