مشاهدة قاعدة بيانات من خلال قاعدة بيانات اخرى

up

up

ماذا تقصد لعلك توضح أكثر بارك الله فيك

لكي اوضح لك المطلوب

لدى قاعدة بيانات كبيرة باسم 2006

وعندة قاعدة بيات اخرة تقريبا بنفس الحقول والبيانات لكنها جديدة

المطلوب عندما اكون في سجل لشخص ما في قاعدة بيانات2007 او عند الطلب يذهب الى القاعدة2006 بنفس الاسم لكي ارى بياناته في العام الماضي وهكذا

مشكور

up

يمكنك ذلك بربيط جدول قاعدة 2006 داخل قاعدة2007

و انشاء نموذج لجدول2007 ونموذج لجدول2006

ثم ادراج نموذج2006 كنموذج فرعى فى نموذج2007

ayada.rar

بالإضافة لما قاله أخي الكريم ayada

إليك حل أخر: الله يعين أعمل جدول ونموذج لأنك لم ترفق مثال :

الجدول اسمه Tbl1

الحقول : ID - FName _LName-MDate

نموذج يختوي على مربعات النصوص التالية :

TxtID _ TxtFName _ TxtLName _TxtMDate

بالإضافة لمربع نص البحث : TxtSearch

زر البحث : CmdSearch

في حدث عند النقر للزر أكتب الكود التالي :

 On Error GoTo Err
	Dim rst As New ADODB.Recordset 

		rst.Open "[Tbl1]", CurrentProject.Connection, _
		adOpenDynamic, adCmdTable

		rst.Find "ID='" & Me![TxtSearch] & "'"

	Me.TxtID = rst("ID")
	Me.TxtFName = rst("FName")
	Me.TxtLName = rst("LName")
	Me.TxtMdate = rst("MDate")

		rst.Update
		rst.Close
Err:
If Err <> 0 Then

Call MdlSearch
End If

ثم قم بإنشاء وحدة نمطية على مستوى النموذج كالتالي :

 

Private Sub MdlSearch()
	Dim cnn As New ADODB.Connection
	Dim rst As New ADODB.Recordset
	cnn.Provider = "Microsoft.JET.OLEDB.4.0;"
	cnn.Open CurrentProject.Path & "\2006.mdb", "Admin"

	rst.Open "[Tbl1]", db, adOpenDynamic, adCmdTable
	rst.Find "ID='" & Me![TxtSearch] & "'"

	Me.TxtID = rst("ID")
	Me.TxtFName = rst("FName")
	Me.TxtLName = rst("LName")
	Me.TxtMdate = rst("MDate")

	rst.Update
	rst.Close

End Sub

في الأكواد السابقة بإفتراض أن قاعدة 2006 في نفس مجلد البرنامج سيقوم بالبحث عن السجل فإذا لم يجده في القاعدة الحالية سيعمل إتصال بقاعدة 2006 ويقوم بالبحث عن السجل هذا إذا كان اسماء الجدولين والحقول في قاعدتي 2007 و 2006 لها نفس السم.

طبعاً هذا مثال فعدل في الأكواد جتى تتوافق مع برنامجك .

ملاحظات :

1. يمكنك وضع مسار قاعدة البيانات إذا كانت في مكان خارج مجلد البرنامج.
   
2. يمكنك كتابة كود من خلاله يتم تحديد قاعدة البيانات ووضع مسارها في مربع نص وتشير إليه بدلاً من المسار الكامل لقاعدة البيانات أو حذفظ المسار في جدول.
   
3. كتابة كود يقوم بالبحث عن قاعدة البيانات المسماة 2006 في جهاز الكمبيوتر ثم يكمل عملية الإتصال والبحث.
   

جزاكم الله خيرا