Dim RS As New ADODB.Recordset

في Form_Load لتعبئة Combo1 بالاعوام

Private Sub Form_Load()

Combo1.AddItem "2010"
Combo1.AddItem "2011"
Combo1.AddItem "2012"
Combo1.AddItem "2013"

End Sub

الان نعمل اجراءت لاستدعائها عند اختيار العام من Combo1

الاجراء الاول سنسميه y2011 وسنقوم باضافة كود الاتصال بقاعدة البيانات التي توجد داخل المجلد2011 وسنضيف للاجراء كود فتح الجدول كود جلب البيانات من الحقول الى Text1 و Text2

الكود

Public Sub y2011()
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset

DB.Open "provider = microsoft.jet.oledb.4.0;data source = " & App.Path & "\2011\db1.mdb"
RS.Open "[Table1]", DB, adOpenStatic, adLockPessimistic
Text1.Text = RS!Name1
Text2.Text = RS!y
End Sub

والان الاجراء y2012 وهو نفس الاكواد التي في الاجراء y2011 بما ان القواعد والحقول والجداول تحمل نفس الاسماء لكن سيتغير كود مسار قاعدة البيانات " & App.Path & "\2012\db1.mdb"

الكود

Public Sub y2012()
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
DB.Open "provider = microsoft.jet.oledb.4.0;data source = " & App.Path & "\2012\db1.mdb"
If RS.State = adStateOpen Then RS.Close
RS.Open "[Table1]", DB, adOpenStatic, adLockPessimistic
Text1.Text = RS!Name1
Text2.Text = RS!y

End Sub

الان ننتقل الى الكود الاخير وهو في Combo1 داخل حدث Click وذلك عند اختيار العام 2011 سيقوم باستدعاء الاجراء Sub y2011 ولو اخترت العام 2012 سيستدعي الاجراء Sub y2012
وذلك من خلال امر الاستدعا Call ولو كان العام الذي ستختاره لايوجد له اجراء لكي يقوم باستدعاة ستظهر رساله تفيدك بانه لايمكن الاستدعاء

الكود

:

Private Sub Combo1_Click()
If Combo1.Text = "2011" Then
Call y2011
ElseIf Combo1.Text = "2012" Then
Call y2012
Else

MsgBox " ادخل العام الصحيح ", vbInformation, "النتيجة"
Exit Sub
End If

الكود بشكل كامل


Dim Db As New ADODB.Connection
Dim RS As New ADODB.Recordset

Private Sub Form_Load()

Combo1.AddItem "2010"
Combo1.AddItem "2011"
Combo1.AddItem "2012"
Combo1.AddItem "2013"

End Sub

Private Sub Combo1_Click()
If Combo1.Text = "2011" Then
Call y2011
ElseIf Combo1.Text = "2012" Then
Call y2012
Else

MsgBox " ادخل العام الصحيح ", vbInformation, "النتيجة"
Exit Sub
End If

End Sub

Public Sub y2011()
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset

DB.Open "provider = microsoft.jet.oledb.4.0;data source = " & App.Path & "\2011\db1.mdb"
RS.Open "[Table1]", DB, adOpenStatic, adLockPessimistic
Text1.Text = RS!Name1
Text2.Text = RS!y
End Sub
Public Sub y2012()
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
DB.Open "provider = microsoft.jet.oledb.4.0;data source = " & App.Path & "\2012\db1.mdb"
If RS.State = adStateOpen Then RS.Close
RS.Open "[Table1]", DB, adOpenStatic, adLockPessimistic
Text1.Text = RS!Name1
Text2.Text = RS!y

End Sub