كيفية وضع بيانات حقل تابع في جدول إلى حقل في نموذج

[ahsh2020]

عندي برنامج قواعد بيانات على الأكسس

وفيه جداول ونماذج

أحد الجداول موجود فيه عمودين العمود الأول هو رقم الموظف والعمود الثاني هو اسم الموظف .

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

علما بأن عند ادخال رقم الموظف يأتي اسمه مكتوب في النموذج مباشرة وذلك يستنتجه من الجدول الذي فيه رقم الموظف واسمه ،

أما إذا كان غير موجود فيخرج لنا رسالة بأن رقم الموظف غير موجود ولا يكمل باقي الحقول إلا أن يدخل رقم الموظف ويكون موجود في الجدول الموظفين.

أما عن اسمع عندما يخرج عند ادخال الرقم فلا نستطيع تغيير الاسم ولا حذفه من الحقل فهو تلقائي يأتي ونجعله غير ممكن .

موجود مثال مرفق لكم وفيه بعض البيانات .

من يستطيع تطويره إلى ذلك فله الشكر والتقدير مقدما .

ولا تبخلوا علينا يا أخوان ،،

employees_courses.rar

[essam rabea]

جرب ورد عليا ويارب يكون هو المطلوب

employees_courses.rar

تم تعديل نوفمبر 26, 2006 بواسطه essam rabea

[ahsh2020]

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

أشكرك أخي الكريم (essam rabea) على هذه المساعدة القيمة وجعلها الله في ميزان حسناتك

ولكن عفوا .. بالنسبة للرسالة التي تخرج لي عندما ادخل رقم غير موجود لا تظهر عندي بالعربي ولا بالإنجليزي لأن جهازي إنجليزي بحت .

فأرجو كتابة ما يخرج لي هنا بالمنتدى بالعربي أو بالإنجليزي حيثما شأت .

الرسالة التي تخرج لي هي :

--------------------

"áÇ íæÌÏ ãæÙÝ ÈåÐÇ ÇáÑÞã"

---------------------------------

وأكرر شكري لك يا عزيزي الكريم ،،

[essam rabea]

يا اخى الفاضل انا لا اعلم ماذا تعنى هذه الرساله حقا ولكن الذى فعلته هو اننى أنشأت مربع نص غير منضم ووضعت له فى حدث بعد التحديث الكود التالى :

 Private Sub search_AfterUpdate()

DoCmd.OpenForm "employees courses", acNormal, , "[Badge_NO] Like '*" & Me.search & "*'"
If IsNull(Me.Badge_No) Then
MsgBox "لا يوجد موظف بهذا الرقم"
SendKeys "{ESC}"
Cancel = 1
search.Value = ""
End If



End Sub

[ahsh2020]

السلام عليكم والرحمة جميعا ..

خلاص أنا الآن فهمت ، ومشكور مرة أخرى على المساعدة

ودمت سالما ،،