لینک کردن

[hoshy345]

با سلام خدمت تمامی دوستان عزیز
من از یک دیتا بیس چند کپی با نامهای مختلف دارم مثلا یک برنامه حسابداری که در پایان سال یک کپی با تاریخ همان سال
حال از طریق یک دیتا بیس فرمها را به جداول در یکی از دیتا بیس اصلی لینک کردم
چگونه میتونم از طریق کد نویسی به هر کدوم از کپی هایی که مورد انتخابم هست لینک شوم
ضمنا اگه فایل نمونه باشه خیلی خیلی ممنون میشم

[najafzade]

dim a as database
dim b as recordset
a.opendatabase "database path"
b.openrecordset("table name")


همین

[hoshy345]

اقای نجف زاده از لطف شما ممنونم
شاید من سوالم را درست طرح نکردم ببینید من یک دیتا بیس دارم که فقط تیبل هام رو در اون ساختم حدود 10 تا تیبل و در پایان هر سال یک کپی از اون ذخیره میکنم با نام همون سال
حال یک دیتا بیس دیگه دارم که فقط فرمها رو در اون ساختم در فرم شروع یک کامبو باکس گذاشتم
که اسامی دیتا بیس ها رو دارم میخام با انتخاب نام هر دیتا بیس تمامی فرمهام به تیبلهای همون دیتا بیس لینک بشن
ممنونم

[user2535]

Public Sub taeensalmali()
mypath = Application.CurrentProject.Path & "\" & accy & ".mdb"
tbl = Array("kol", "moein", "tafsil", "asnad", "serial")
For l1 = 0 To 4
If vojod(tbl(l1)) Then
DoCmd.DeleteObject acTable, tbl(l1)
End If
DoCmd.TransferDatabase acLink, "Microsoft Access", mypath, acTable, tbl(l1), tbl(l1), False
Next
End Sub

Public Function vojod(tbl)
On Error GoTo errn
DoCmd.Rename "test", acTable, tbl
DoCmd.Rename tbl, acTable, "test"
vojod = True
Exit Function

errn:
If Err.number = 7874 Then
vojod = False
End If
End Function

accy : نام سال مالی و نام فایل اطلاعاتی آن سال است
tbl(n) : نام ارایه جدوالی که باید لینک شود
vojod : نام تابع بررسی وجود یک جدول است

[hoshy345]

دوست عزیز من نتونستم از این کد استفاده کنم ای این کد رو باید تو یک ماژول بنویسم یا تو فرم
یا تو یکی از خواص کامبو باکس در ضمن از شما وتمامی دوستان واساتید محترم کمال تشکر را دارم

[user2535]

به این مثال توجه کنید

[hoshy345]

دوست عزیز و استا د بزرگوار جناب
user 2535
از اینکه بر من منت نهاده و مرا راهنمایی فرمودید کمال تشکر را دارم
همیشه موفق باشید وزندگی بر وفق مرادتان باد
مخلص شما
hoshy