أخواني أخواتي الإعزاء
مرتادي المنتدى السلام عليكم ورحمة الله
الرجاء من سيادتكم التكرم بإعلامنا بطريقة تغيير مصدر البيانات في النموذج الرئيسي برمجياً حسب السنة الحالية ، بمعنى أخر أريد فتح النموذج عندما أكون في سنة 2013 بمصدر بيانات Emport_Doc2013 ، وعندما أدخل لسنة سابقة ولتكن 2012 أريد عند فتح النموذج بمصدر بيانات Emport_Doc2012، وهكذا.
وتقبلوا مني فايق الاحترام
مرفق ملف للتعديل
رقم المستخدم وكلمة السر (111111)
الأخ الفاضل
السلام عليكم ورحمة الله وبركاته
الكود التالي يقوم بتغيير مصدر بيانات النموذج وقت التشغيل ويفترض الأتي
أن لديك مربع نص علي نفس النموذج تقوم بأدخال السنة به وهو في هذه الحالة
text0
If Me.Text0 = "2012" Then
ونستخدم الخاصية
recordsource
ونقوم باسناد الجدول المناسب لها في وقت التشغيل
وبمعني أخر في حالة سنة 2012 أختار مصدر البيانات للنموذج جدول1
وفي حالة سنة 2013 أختار مصدر البيانات للنموذج جدول2
Private Sub Command2_Click() If Me.Text0 = "2012" Then Me.RecordSource = "table1" ElseIf Me.Text0 = "2013" Then Me.RecordSource = "table2" Else ' no thing to do End If End Sub
وبالتوفيق
عزوز عبداللاه
مدرب ومطور قواعد بيانات أكسس
الاهتمامات
VBA,VB.NET,ASP.NET,SQL SERVER, ORACLE
azouzeg@hotmail.com
01004147149