كيف يمكن عمل check لفتح نموذج ما بعد إدخال قيمة معينة بأن القيمة هذه موجودة في الجدول أو لا ؟؟

اخي الفاضل

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

والله ودي كان أضع البرنامج ...لكن للأسف البرنامج جداً كبير بسبب التنسيقات التي قمت بعملها فيه > 50ميجابايت...

يصعب علي يا أخت زهرة ذلك وبسرعة الاتصال البطيئة عندي ...

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

أنا لست مبتدئة في الآكسس وأعرف الكثير جداً في البرمجة ...عملت برمجة لكثير من الأشياء في هذا البرنامج ...ولكن المشكلة تكمن في الشيء الذي طرحته ...حاولت كثيراً معها ... واستخدمت recordset لكن أيضاً لم أستطع حل المشكلة ..هذا كود قمت بعمله وقد قمت بعمل أكواد سابقة قبله ...

Private Sub ÕæÑÉ12_Click

()
Dim x As Integer, y As Integer

Dim a As Boolean
a = True
If text_5.Text <> "" Then
Dim dbc As Database, rst As Recordset
Dim strq As String, strw As String, strm As String
Set dbc = CurrentDb
Set rst = dbc.OpenRecordset("Children")

rst.MoveNext
rst.MoveFirst
Do Until rst.NoMatch
rst.MoveNext
If Me!text_5 = rst![رقم الملف] Then

	DoCmd.OpenForm "فتح تعديل طفل", acNormal, "", "[Forms]![ÊÚÏíá ÈíÇäÇÊ ØÝá]![ÑÞã ÇáãáÝ] Is Not Null And [Forms]![ÊÚÏíá ÈíÇäÇÊ ØÝá]![ÑÞã ÇáãáÝ]=[Children]![ÑÞã ÇáãáÝ]", , acNormal
	DoCmd.Maximize
	DoCmd.Close acForm, "ÊÚÏíá ÈíÇäÇÊ ØÝá"
	a = False
	Exit Do
	Cancel = True


End If

Loop


If a = True Then y = MsgBox"لا توجد بيانات مماثلة لرقم الملف", , "لا توجد بيانات ")
rst.Close
dbc.Close
Set rst = Nothing
Set dbc = Nothing


Else: x = MsgBox("áã ÊÞã ÈÅÏÎÇá Ãí ÈíÇäÇÊ", vbOKOnly)

End If

End Sub

لا أعرف لماذا ظهر الكود بتلك الأرقام الغريبة؟؟حاولت تعديل الأجزاء المهمة منها..

مع ملاحظة أني لا أريد combo box كما قال لي البعض اعملي ذلك ..فمن غير المعقول سيبحث المستخدم في آلاف الأرقام ...

رقم الملف عندي number .. .. والرقم سيدخل في text box وبضغطة command button ...يفتح لي النموذج الخاص ببيانات الطفل صاحب رقم الملف ...أو أي شيء خاص به ...

جزاك الله كل الخير ياأخت زهرة ..والله أرجو مساعدتك لي فعلاً ...

up...

up...

جزاكم الله خيراً ... مع أني لم أجد رداً من أحد....

على العموم أريد أن أقول لكم لقد وجدت الحل بفضل الله ثم بفضل منتداكم الغني بالثروات البرمجية ...

وذلك في مكتبة الآكسيس ...(لا أتذكر أي مكتبة )...باستخدام recordcount ....

أسأل الله أن يبارك لكم في أعمالكم وينفع بك الإسلام والمسلمين ويسدد خطاكم ...اللهم آمين...