محتاج كود استعلام عن الطلاب

[ehabaf2]

السلام عليكم الاخوة الافاضل

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

محتاج كود لما ابحث عن طالب بالاسم يفتح قاعدة بيانات الطالب و يعرض كل بياناته

البحث الان يعرض الطالب الاول فقط و كنت محتاج تعديل عند البحث بالاسم اول مكتب الحرف الاول ينزل الاسماء اللى بتبداء بالحرف الاول ثم الحرف الثانى و هكذا مش عارف ده ممكن و لا لا

مرفق الملف

الف الف شكر لحضراتكم

egypt gold - Copy (1).accdb

[ابوخليل]

2 ساعات مضت, ehabaf2 said:

 

محتاج كود لما ابحث عن طالب بالاسم يفتح قاعدة بيانات الطالب و يعرض كل بياناتها

عليكم السلام .. وحياك الله بين اخوانك

هذا كود فتح نموذج من نموذج آخر على حقل محدد

Dim stDocName As String
    Dim stLinkCriteria As String
    stLinkCriteria = "passenger=forms!srch!t"
    stDocName = "data1"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

ويمكن اختصاره هكذا وسيعمل

DoCmd.OpenForm "data1", , , "passenger=forms!srch!t"

egypt 2.rar

[شايب]

10 دقائق مضت, ابوخليل said:

هذا كود فتح نموذج من نموذج آخر على حقل محدد

ويمكن اختصار الامر الى

DoCmd.OpenForm "data1", WhereCondition:="[passenger]='" & [t] & "'"

 

[ehabaf2]

الاستاذ الفاضل @ابوخليل

الاستاذ الفاضل @شايب

الف الف شكر لحضراتكم على مروركم الكريم و لكن فى الحقيقة انا حديث عهد بالاكسس و انا حاولت انزل الملف لانى لا امتلك مهارة التعامل مع الكود فى الوقت الحالى و لكن للاسف الملف مش بينزل ارجو من حضرتك اعادة تحميل الملف لكي اتمكن من انزاله

اكرر شكر لحضراتكم على مجهودكم  و الاهتمام من الاعضاء الكرام

[ابوخليل]

الملف مضغوط بعد تنزيله تفك الضغط عنه

وعلى كل حال هذا الملف بدون ضغط فقط خففت من حجمه بازالة الصور

 

egypt 2.accdb

[ehabaf2]

استاذنا الفاضل @ابوخليل

الف الف شكر لحضرتك الكود يعمل بكفاءة

زادك الله من علمه و فضله