*فورم* للقراءة فقط

السلام عليكم

ضع هذا الكود في حدث امر 2

Private Sub ÃãÑ2_Click()
Dim rr
rr = u.Value
DoCmd.OpenForm "ww2", acNormal, "", "", acReadOnly, acNormal, rr
DoCmd.FindRecord rr


End Sub

بعد اذن اخي فيصل .. ممكن تجربة هذا الكود

عند حدث النقر للزر امر 2 اكتب الكود التالي :

DoCmd.OpenForm "ww2"

Forms!ww2!t = Me.u

Forms!ww2!t.Locked = True

الاخوان فيصل الحربي و مبتدىء جدا

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

شكرا لكما وكلاهما اعطى النتيجة المطلوبة

حفظكما الله وجعل ذلك في موازين اعمالكما

السلام عليكم

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

فهل يمكن اعادة السجل المطابق فقط كما في امر5 وامر 6 ؟؟؟؟

ومعذرة مرة اخرى

أخي الكريم

السلام عليكم

جرب الكود التالي

DoCmd.OpenForm "ww2", acNormal, , "[t]= '" & Me.u & "'", acReadOnly, acNormal

تحياتي

أخوك / أبو هاجر

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

عزيزي ابو هاجر

بالضبط عمل الكود كما هو مطلوب

جراك الله وكل الاخوان عنا الف الف الف خير