اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر (معدل)

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

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

لي سؤال :

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

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

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

عند تسجيلي للطالب وعند دخولي لموذج والده او والدته او معيله اريد أن اشاهد بيانات الطالب نفسه موجوده امامي وليس اقوم بالبحث عنه 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