ارجو المساعده (ظهور رساله وتغيير شكل)

السلام عليكم

if me.fieldname = -1 then msgbox "salary received"
حيث -1 تمثل نعم
و صفر تمثل لا

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

مشكور أخوي محمد على الرد ولكن جربت الكود يظهر خطأ عند

if me.fieldname = -1

ويظهر رساله هناك استخدام غير صالح لعامل التشغيل نقطه او اقواس غير صالحه

مع العلم اني غيرت النقطه الى !

وتقبل خالص تحياتي

السلام عليكم

أقصد ب fieldname

اسم الحقل الذي لديك فعلا

السلام عليكم

مشكور اخوي وقد وضعت اسم الحقل الذي اريد وهوheah من البدايه ولكن الرساله تظهر

وتقبل خالص تحياتي

اذا اسم مربع النص ليس كاسم الحقل

استبدل اسم الحقل باسم مربع النص

و ان لم يكن فانشر القاعدة

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

مشكور اخوي محمد على الرد وهذه هي القاعده واتمنى ان تستطيع المساعده

http://mypage.ayna.com/scoon2004/8.mdb

وتقبل خالص تحياتي وشكري

بما أن مصدر بيانات الفورم مختلف عن الجدول الذي تريد البحث فيه

فاستخدم الدالة

DLOOKUP

للحصول علي القيمة المناظرة لل id ثم نفذ ما سبق بناء علي هذه القيمة

استبدل اسم صندوق النص

المسمي رقم البطاقة ب

id

Private Sub id_AfterUpdate()

Dim M As Boolean
M = DLookup("[haeh]", "جدول1", "[ID]='" & Me.id & "'")
If M = True Then MsgBox "RECEIVED HIS SALARY"
End Sub

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

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

http://mypage.ayna.com/scoon2004/SALARY.mdb

وتقبل خالص تحياتي

ملاحظه:الجزء الثاني من السؤال لم يرد عليه أحد لماذا هل لايمكن تغيير شكل أزرار الامر في الاكسس ؟؟

:o :o