דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. ארכיון code613m
  4. אקסס טבלאות מקושרות

אקסס טבלאות מקושרות

מתוזמן נעוץ נעול הועבר ארכיון code613m
2 פוסטים 2 כותבים 239 צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • ש מנותק
    ש מנותק
    שמואל
    כתב ב נערך לאחרונה על ידי
    #1

    מה עושים לתוכנה באקסס שעובדת על מספר מסדי נתונים בטבלאות מקושרות
    ובינתיים יש עותק מכל תוכנה וכמובן שבשינויים צריך לזכור לעדכן את כל העותקים
    חשבתי לעשות שבטעינת התוכנית יבחרו לאיזה מסד להתחבר (כפי שאני עושה בתוכנה C# ו-DataSet)
    האם למישהוא ידוע על אפשרות כזו באקסס?
    תודה!

    פורסם במקור בפורום CODE613 ב04/02/2014 19:54 (+02:00)

    תגובה 1 תגובה אחרונה
    0
    • clickoneC מנותק
      clickoneC מנותק
      clickone
      כתב ב נערך לאחרונה על ידי
      #2

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

      Private Function RefreshLinks(strFilename As String) As Boolean
      ' Refresh links to the supplied database. Return True if successful.
      
          Dim dbs As Database
          Dim tdf As TableDef
      
          ' Loop through all tables in the database.
          Set dbs = CurrentDb
          For Each tdf In dbs.TableDefs
              ' If the table has a connect string, it's a linked table.
              If Len(tdf.Connect) > 0 Then
                  tdf.Connect = ";DATABASE=" & strFilename
                  err = 0
                  On Error Resume Next
                  tdf.RefreshLink         ' Relink the table.
      
      If err <> 0 Then
                      RefreshLinks = False
                      Exit Function
                  End If
              End If
          Next tdf
      
          RefreshLinks = True             ' Relinking complete.
      End Function
      

      בהצלחה!!

      פורסם במקור בפורום CODE613 ב04/02/2014 20:37 (+02:00)

      אין טסט כמו פרודקשן.

      המייל שלי urivpn@gmail.com

      תגובה 1 תגובה אחרונה
      1

      בא תתחבר לדף היומי!
      • התחברות

      • אין לך חשבון עדיין? הרשמה

      • התחברו או הירשמו כדי לחפש.
      • פוסט ראשון
        פוסט אחרון
      0
      • דף הבית
      • קטגוריות
      • פוסטים אחרונים
      • משתמשים
      • חיפוש
      • חוקי הפורום