اريد بمجرد كتابة الرقم ان يظهر الاسم

[a-husean]

السلام عليكم

احتاج مساعدة

اذا كان لدي الرقم والاسم

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

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

فهل هذا هو الكودالصحيح يرجى شرح الكود وماذا تعني .me

ولكم الشكر

' Form_Current
'
'------------------------------------------------------------
Private Sub Form_Current()
DoCmd.GoToControl "id"
Me.TRANS_NUM = Me.CurrentRecord
If Me.CurrentRecord = 1 Or Me.RecordsetClone.RecordCount = 0 Then
End If
     
End Sub

Private Sub TRANS_NUM_Exit(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[id]= " & Str(Nz(Me![TRANS_NUM], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

تم تنسيق الكود من قبل المشرف التقني

تم تعديل نوفمبر 5, 2006 بواسطه التقني

[فتى الوادي]

السلام عليكم

1- فهمت من كلامك أن تريد نموذج بحث فيه حقول ( الاسم - الرقم ) فإذا أدخلت اسم شخص يطلع رقمه والعكس صحيح .

فهل فهمي صحيح ؟!!!!

2- يفضل لو ترسل المثال الذي لديك والذي تريد تطبيق الكود عليه لتتضح الصورة .

[a-husean]

صحيح اخي الكريم

[a-husean]

الا يوجد اجابة

[rudwan]

اجعل في حدث بعد التعديل لحقل الرقم الكود التالي :

Name=Dlookup("Name",'MyTable","No=" & Me.No)

حيث

Name هو حقل الاسم

MyTable اسم الجدول

No رقم الموظف

[a-husean]

هل يمكن التوضيح اكثر اخي الكريم

اين اجد حدث بعد التعديل

[rudwan]

كل عنصر في النموذج له حدث في قائمة الأكواد - صفحة تصميم النموذج , اختر الاسم الذي استخدمه لمربع نص الاسم , و اختر على اليسار حدث بعد التعديل

و لمزيد من المعلومات حول الأحداث انظر الرابط التالي

http://www.officena.net/ib/index.php?showtopic=425&hl=

[مشاهدكوم]

اتمنى ان يكون المطلوب على الرابط التالي

http://www.officena.net/ib/index.php?showtopic=12259