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

[גבאי]

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

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

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

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

[מוטלה]

@dudu תודה רבה! אתה פשוט תותח!
יש סיכוי גם לפריבט.?.
או שלפחות תכתוב מה בדיוק צריך לשנות ואיך?

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

@מוטלה
תשנה כל מקום מwww ל private
אם @dudu לא יעלה אני יעלה יותר מאוחר

[מוטלה]

@פיסטוק-חלבי איפה משנים?

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

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

[מוטלה]

@פיסטוק-חלבי יש אפשרות לעשות חיפוש? בנתיים לא ראיתי כלום..

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

@מוטלה
תכנס במודלים בצד שמאל תתחיל מלמטה ותעבור אחד אחד

בתמונה אצלי זה כבר פרייבט אבל שם צריך לשנות מהמקור

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

@מוטלה
הסתדרת???
או שאתה רוצה שאני יעלה כזה קובץ

[מוטלה]

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