كيف أفتح إحدى نموذجين من داخل نموذج آخر بنفس الزر

[صالح2]

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

الحقيقة يا أخواني أنا سعيد جداً بانضمامي إلى هذاالمنتدى الرائع

والذي أسأل الله أن يوفق جميع القائمين عليه والأعضاء إلى كل خير

اخواني الأعزاء الحقيقة أنا عندي سؤالين أتمنى أشوف الحل

1- أبغى أضيف حقل يحتوي على السنة من التاريخ فقط وليس التاريخ ككل ؟

مثلا أبغى يتم إدخال السنة فقط ويعاملها البرنامج على أنها سنة وليست رقم

السؤال الثاني وهو استفسار عن فتح إحدى نموذجين من داخل نموذج :

عندي ثلاثة نماذج بحيث يحتوي النوذج الأول

على قيمة حقل من نوع نعم أو لا

فإذا كانت قيمة هذا الحقل نعم يتم فتح النموذج الثاني عند النقر على زر الفتح

وإذا كانت القيمة (لا ) يتم فتح النموذج الثالث من نفس الزر

كيف تتم هذه العملية ؟؟

أرجو منكم أخواني المساعدة فأنا لست متعمقاً في الاكسس

وجزاكم الله خير الجزاء

تم تعديل مارس 15, 2006 بواسطه صالح2

[ahmedbadr]

الجواب علي السؤال الثاني :-

قم بعمل زر أمر و قم بإنشاء الكود التالي في حدث عند الضغط :-

If ME.fildeName=True Then
docmd.openform "Form Name"
else
docmd.openform "formName"
endif
endelse

الجواب علي السؤال الاول :-

عند إنشائك للحقل يمكن خلال خصائص حقل السنة تنسيقه كما تريد و للوصل الي هذه الخصائص بالضغط كليك يمين علي الحقل ثم إختر الاختيار الاخير ستظهر لك خصائص هذا الحقل .

أرجو أن أكون وفقت في الحل إن شاء الله

أحمد بدر

[صالح2]

اخي الكريم أحمد االبدر

في البداية أشكرك على مبادرتك للإجابة على تساؤلي وجعل ذلك في ميزان حسناتك

لكن أنا ليست لي خلفية في البرمجة ولذلك عندما أردت إضافة الكود ظهر لي هذا الجزء من الكود

Option Compare Database

() Click _أمر0 Private Sub

End Sub

والحقيقة انا ما عرفت كيف أدمج الكود اللي انت كتبته مع هذا الكود اللي يطلع لي

ياليت أخوي الغالي توضح أكثر إذا سمحت لاني مثل ما قلت لك مو متعمق في البرمجة

وشكرا لك ياغالي

أخوك

صالح

[منذر عساج]

الاخ العزيز

قم باضافة الكود

() Click _أمر0 Private Sub

هنـــــــــــــــــــــــــــــــــــــــا

End Sub

[ahmedbadr]

مشكو أخ منذر

أخي صالح إذا كان لديك مشكلة أخر في الكود أبلغي لأشرحه لك و أسف لأنني في جزئية الشرح لدي ضعيفة و لكني سأحاول و الله الموفق

أحمد بدر

[صالح2]

أخوي الغالي منذر عساج شكرا جزيلا لك وبارك الله فيك يا أخي

وانا سويت نفس اللي قلته والحمد لله طبق واستغل بس بعد ما حذفت آخر سطر من الكود لانها كانت تسوي مشكلة :pp:

لكن عندي استفسار ياليت انت أو أحد الاخوان يفيدني

وهو استفسار في نفس الموضوع

طبعا عندي حقل اسمه( الرقم التسلسلي) وهو مفتاح رئيسي للسجلات

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

يفتح على نفس السجل رقم 10 في النموذج اللي انا فتحته

يعني المشكلة عندي بصورة اوضح

أبغى أضيف شرط في الكود عند فتح أحد النوذجين أنه يفتح على نفس بيانات السجل اللي انا عنده

مثال :

انا حاليا إذا كنت في النوذج الاول عند السجل رقم 10

أشوفه يفتح على بيانات السجل رقم 17 مثلا

انا أبغاه يفتح على بيانات نفس السجل اللي انا عنده وهو الرقم 10

يعني ما ابي يكون مستخدم البرنامج يتنقل يدويا مع السجلات عشان يوصل للسجل اللي يبغاه

أرجو اني اوضحت المشكلة بشكل دقيق

وجزاكم الله خيرا

أخوكم صالح 2

[صالح2]

مشكو أخ منذر

أخي صالح إذا كان لديك مشكلة أخر في الكود أبلغي لأشرحه لك و أسف لأنني في جزئية الشرح لدي ضعيفة و لكني سأحاول و الله الموفق

أحمد بدر

<{POST_SNAPBACK}>

أشكرك أخي الغالي أحمد بدر

والحقيقة أنت ما قصرت شرحت فجزاك الله خيرا

وانا استفدت من الكود الكثير لاني بديت أقارن بينه وبين الاكواد الاخرى

جزاك الله خيرا اخي

والمشكلة انحلت في هذه النقطة (y)

أخوك صالح

[ahmedbadr]

أخي صالح ...

يمكنك فتح نموذج مشروط أو تقرير بحث أنك من خلال الكود تحدد ما تريد فتحه سواء تقرير أو نموذج من خلال الكود التالي ( علي أن تقوم بوضعه في زر أمر ) :-

DoCmd.OpenReport / form "report / formName", acViewPreview, "", "[filde_in_ report / form Yuo Want To Open]= '" & Me.filde_in_your currnt_form & "'"

أرجو أن يكون الكود مفهوم و إذا لم يكن أنا موجود يمكنك أن تخبرني لأحاول تفسيره أكثر من ذلك

أحمد بدر

[صالح2]

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

أخي العزيز أحمد بدر :(

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

لانه جعلني أقارن بينه وبين بعض الاكواد الاخرى مما أضاف على معلوماتي عن الأكواد

والحمد لله فالمشكلة انحلت وأنا سأكتب الكود لعل بعض الاخوة يستفيد منه

فالكود التالي يوضع في زر أمر لفتح إحدى نموذجين حسب قيمة حقل إما صواب أو خاطئة مع ملاحظة أن يفتح النوذج على نفس معلومات السجل المرتبطة

Private Sub أمر14_Click()


If Me.kk = True Then

 Dim stDocName As String
Dim stLinkCriteria As String
stDocName = " formNameA "
stLinkCriteria = "[الرقم_التسلسلي]=" & Me![الرقم_التسلسلي]
DoCmd.OpenForm stDocName, , , stLinkCriteria



Else
Dim stDocNames As String
Dim stLinkCriterias As String
stDocNames = "formNameB"
stLinkCriterias = "[الرقم_التسلسلي]=" & Me![الرقم_التسلسلي]
DoCmd.OpenForm stDocNames, , , stLinkCriterias End If

End Sub

أخي أحمد بدر ... بالنسبة للكود الأخير الذي كتبته لقد جربته بعد محاولات فوجدت أنه يفتح معلومات النوذج على هيئة تقرير الحقيقة أن الكود لم يكن واضحاً بالنسبة لي مئة في المئة لكن والحمد لله فادني في تركيب الكود السابق :pp:

DoCmd.OpenReport / form "report / formName", acViewPreview, "", "[filde_in_ report / form Yuo Want To Open]= '" & Me.filde_in_your currnt_form & "'"

<{POST_SNAPBACK}>

بالنسبة لمسألة السنة سوف أفرد لها موضوعاً خاصاً إن شاء الله ليظل هذا الموضوع لفتح النموذج (y)

شكراً لكم اخواني ونفع الله بكم