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

[שמואל]

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

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

[clickone]

אם הבנתי נכון, אתה רוצה בהפעלת התוכנה שלך לקשר את כל הטבלאות המקושרות ל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)