مشكلة العثور على الحقل المشار اليه في التعبير

[Rawannnna]

السلام عليكم

يوجد في هذا النموذج ثلاثه نماذج فرعيه مخفية

نموذج عند البحث برقم البحث

ونموذج عندي البحث برقم الشيك

ونموذج عند البحث برقم الطلب

وعند البحث برقم البحث يظهر النموذج الفرعي الخاص بهذا البحث ولكن يظهر هذه الرسالة ؟

ايش المقصود فيها ؟

 

 

 

 

الملف المرفق

للمنتدى.rar

تم تعديل مايو 8, 2017 بواسطه Rawannnna

[Rawannnna]

*

[jjafferr]

وعليكم السلام

 

لم يكن ممكنا ان نحل الموضوع بدون المرفق ، والمرفق لم يكن موجودا ، واذا به  موجود 

 

جعفر

 

 

تفضلي هذا التغيير في كود زر البحث:

Private Sub amr4_Click()
انت هنا تطلبين طلب البيانات الجديدة للنموذج الرئيسي ، وهذا ليس المطلوب
'DoCmd.Requery

الحقل Research_ID
هو حقل تسمية label
فالمعادلة ليس لها معنى
'If [Research_ID] = [A] Then

يجب ان نتحقق من وجود كلمة في الحقل A
If Len(Me.A & "") <> 0 Then
Q2.Visible = True

وهنا نطلب بيانات جديدة للنموذج الفرعي
Me.Q2.Requery
Else
Q2.Visible = False
MsgBox "please note that you should follow up with finaicial affairs(Mr.Mohammed siamek) to fill tou start using the system!! "
End If

End Sub

 

جعفر

[Rawannnna]

 

10 ساعات مضت, jjafferr said:

جعفر

 

 

شكرا أستاذ جعفر

لكن المسج مايظهر 

عدلت الكود ووصار

Else

If Len(Me.A & "") =0 Then
Q2.Visible = False
MsgBox "please note that you should follow up with finaicial affairs(Mr.Mohammed siamek) to fill tou start using the system!! "
End If

End if

 

وصار يظهر المسج اذا كان الحقل فارغ

لكن ابغا المسج يظهر اذا ادخل رقم بحث خطأ غير موجود ؟ كيف يصير الكود

[jjafferr]

وعليكم السلام

 

1 ساعه مضت, Rawannnna said:

لكن ابغا المسج يظهر اذا ادخل رقم بحث خطأ غير موجود ؟ كيف يصير الكود

انتي لم تطلبي هذا مسبقا

 

تفضلي الكود وبه هذه الخاصية:

If DCount("*", "Q2") <> 0 Then
    Q2.Visible = True
    Me.Q2.Requery
Else
    Q2.Visible = False
    MsgBox "please note that you should follow up with finaicial affairs(Mr.Mohammed siamek) to fill tou start using the system!! "
End If

 

جعفر