ما الخطأ في هذا الكود

[محمد السباعي]

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

اخواني الكرام

عندي نموذج باستخدمه لغرضين الغرض الأول بجعل بعض الحقول مخفية والغرض الآخر أريد ان تظهر هذه الحقول المخفية

حاولت ادراج كود الاظهار مع كود فتح النموذج لا يعمل بأي شكل من الاشكال

الكود هو :

Forms!F_T_Eqama_01_02!Text31.Visible = True

الكود المراد ادخال كود الاظهار معه هو :

Private Sub Command81_Click()
On Error GoTo Err_Command81_Click
If IsNull([Combo70]) Then
MsgBox "Insert The Number Frist"
Else
 stDocName = "F_T_Eqama_01_02"
stlinkcriteria = "[EmployeeKod]=" & Me.Combo70
DoCmd.OpenForm stDocName, , , stlinkcriteria, , acDialog
End If

Exit_Command81_Click:
    Exit Sub
Err_Command81_Click:
    MsgBox Err.Description
    Resume Exit_Command81_Click
End Sub

افيدوني بالحل بارك الله فيكم

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

[يوسف أحمد]

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

اخي محمد السباعي

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

بالتوفيق

[محمد السباعي]

مرفق مثال به الكود

أرجو التعديل بارك الله فيكم

Visible.rar

[ابو يامن]

أرفق لك المثال بعد إجراء التعديل عليه أخي

Visible.zip

[محمد السباعي]

تسلم يدك يا أبو سليم

معذرة هل يوجد شكل آخر لكود الإظهار

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

[ابو يامن]

أخي هذا الكود الذي قمت بكتابته هو كود عام يمكن استخدامه في العديد من الاستخدامات في عملية الإظهار ، ولا أعتقد أن هناك كود آخر يمكن الإستعانة به لتحقيق هذه الغاية ( حسب رأيي الشخصي )

على كل حال ، في حال حصولك على شيء مماثل أرجو تزويدنا به لنتعلم سوياً حول هذا الأمر .

أخوك ابو سليم

[محمد السباعي]

اخي أبو سليم

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

يعطيني خطأ على دالة Dlookup لا أعرف لماذا مع انه نفس الكود هو الذي اضفته لا زيادة

[ابو يامن]

أخي أعتقد أن لديك مشكلة في تعريف النموذج الآخر على الـ VB إذا لاحظت في مثالك السابق قمت بإضافة مايلي على النموذج Form2 و هو كالتالي :

 

Private Sub Form_Load()
Me.Refresh
End Sub

هل قمت بإجراء هذه الخطوة لديك في القاعدة الأخرى ؟

[محمد السباعي]

نعم أخي اضفته

صورة الخطأ في المرفقات

بارك الله فيك على مجهودك معي

[ابو يامن]

أخي وضحت المشكلة الآن ، المشكلة لديك هو أن عبارة DLookup في بداية الكود الذي قمت بوضعه هو ليس دالة DLookup بل هو إسم قاعدة البيانات في مثالك المرفق

أرفق لك توضيح حول ذلك

آمل أن تكون الأمور الآن واضحة لديك

DB_Name.zip

[محمد السباعي]

أخي أبو سالم

الكود لا يعطي خطأ الآن لكن في نفس الوقت لا يظهر الكائنات المخفية

أرفقت لك القاعدة ( زر تحديث الإقامة )

3labarakt_ellah_07.rar

[ابو يامن]

أرفق لك المثال بعد التعديل لقد كانت المشكلة في عدم وجود كود Me.Refresh عند عمل Open Form . للنموذج الثاني المراد فتحه

3labarakt_ellah_07.rar

[محمد السباعي]

والله مش عارف اقولك ايه اخي ابو سالم

بارك الله فيك وزادك علماً

أخيك محمد السباعي

[ابو يامن]

لا بس إحكيلي أبو سليم مش أبو سالم (:

وفقك الله ورعاك و إحنا بخدمة الطيبين أمثالك

[محمد السباعي]

اسف أبو سليم

[ابو يامن]

على راسي أخوي محمد السباعي