שלום וברכה
אחרי חיפושים רבים, ומשלא מצאתי קוד שמתאים לכל סוגי האופיס לניהול והחלפת טבלאות מקושרות באקסס כשיש סיסמא למסד הנתונים העורפי , בקשתי מרובי בוט קוד מתאים, לאחר קצת בקשות התאמה ממנו יצא הקוד הבא:
Dim db As Database
Dim tdf As TableDef
Dim newPosition As Integer
Set db = CurrentDb
newPosition = 1 ' Specify the new position here
' Update table positions by recreating linked tables in the desired order
For Each tdf In db.TableDefs
If tdf.Attributes = dbAttachedTable Then
db.TableDefs.Refresh
tdf.Connect = ";DATABASE=" & נתיב הקובץ & ";PWD=סיסמת הקובץ"
tdf.RefreshLink
' Optionally, you can set the position here using tdf.OrdinalPosition = newPosition
newPosition = newPosition + 1
End If
Next tdf
db.Close
Set db = Nothing
MsgBox "Linked table positions updated successfully!", vbInformation
הקוד עובד לי מעולה.
אני לא מבין את כל שורות הקוד, אשמח אם מישהו כאן יוכל לכתוב לי האם הקוד בסדר ומשהו לא התפספס בדרך.
תודה רבה
@dovid מקווה שזה בסדר להעלות קוד מ AI להתייעצות, לא ראיתי איזה סעיף בחוקי הפורום בעניין.
