اذهب الي المحتوي
أوفيسنا

|4| فتح النموذج على الاسم الذي نريده


المكاوي

الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

أسعد الله اوقاتكم بكل خير وسعاده إن شاء الله

لي سؤال :

عملت برنامج حسب خبرتي البسيطه بالأكسس ولكن واجهتني مشكلة الا وهي :

عملت نموذج الادخال من عدة نماذج والسؤال هو:

كيف اربط بينهم أي أن :

عند تسجيلي للطالب وعند دخولي لموذج والده او والدته او معيله اريد أن اشاهد بيانات الطالب نفسه موجوده امامي وليس اقوم بالبحث عنه 0

وايظاً اريد تعديل كود يوم وتاريخ تسجيل الطالب 0

:cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry:

وطلبي الأخير ارجو منكم كرماً ان تعدلوا بالبرنامج وأن تدلوني على كيفية عمل ذلك لأكون على بينه فيما بعد 0

لا حرمنا الله منكم ...

تحياتي والله يوفقكم ...

:yess:

تم تعديل بواسطه المكاوي
  • Thanks 1
رابط هذا التعليق
شارك

السلام عليكم

أخي الكريم ، سياسة المنتدي لا تسمح بالتحميل للأعضاء ، و ذلك لاسباب تم النقاش حولها فى القسم العام و أهمها أن يكون السؤال و الاجابة واضحين و مفيدين لأكبر عدد ممكن - رجاء مراجعة الجزء الأخير من قواعد طرح الأسئلة الموجودة أعلي الأقسام العامة باللون الأحمر :d

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

نعود للسؤال

لفتح نموذج جديد بحيث تخص البيانات فيه السجل المختار فى النموذج المفتوح حاليا :

اولا فى حالة ان الحقل المشترك رقمي

=====================================

كما يقول الكتاب


    Dim stLinkCriteria As String

    stLinkCriteria = "[FieldnameinnewForm]=" & [Forms]![CurrentFormNAme].[Form]![FieldNameinCurrentForm]

    DoCmd.OpenForm "NewFormname", , , stLinkCriteria


 أو للسهولة


   DoCmd.OpenForm "NewFormName", , , "[FiledNAme]= " & Me.FieldnameinCurrentform 


و ان كان الحقل نصي

===================================


    Dim stLinkCriteria As String

    stLinkCriteria = "[FieldnameinnewForm]='" & [Forms]![CurrentFormNAme].[Form]![FieldNameinCurrentForm] & "'"

    DoCmd.OpenForm "NewFormname", , , stLinkCriteria


 أو للسهولة



   DoCmd.OpenForm "NewFormName", , , "[FiledNAme]= '" & Me.FieldnameinCurrentform & "'"

رابط هذا التعليق
شارك

  • 1 year later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information