مطلوب كود يعطي اسم الحقل الحالى

[ledoledo]

السلام عليكم

الاخوة المحترمين

برجاء المساعدة في الملف المرفق

المطلوب هو كود يعطي اسم الحقل الحالى مثلا text1 او text2 الخ

ولكم جزيل الشكر

db2016.rar

[ابوخليل]

احفظ المرفق على صيغة mdb

 

[ledoledo]

مشكور جدا يا صديقي وانا في الانتظار

db2016x.rar

[ابوخليل]

تفضل وآمل ان يكون هو بغيتك

Private Sub Text0_Click()
Text0 = Text0.Name
End Sub

db2016x.rar

[ledoledo]

 

مشكور جدا للاهتمام الصديق ابو خليل ولكن المطلوب هو الكود التالي

Screen.activecontrol.name

للافادة

[jjafferr]

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

 

وبعد إذن أخي ابوخليل 

 

هنا اجمع جميع الطرق اللي تخطر على بالي ، وهي 4 طرق

 

1. طريقة أخي ابوخليل:

Private Sub Text0_Click()

    Me.Text0 = Me.Text0.Name
End Sub

.

الطرق الثلاث الباقية تعتمد على الوحدة النمطية:

Option Compare Database

Function Who_Am_I()

    Dim frm As Access.Form
    Dim ctl As Access.Control
     
    Set frm = Screen.ActiveForm         'get the active Form Name
    Set ctl = Screen.ActiveControl      'get the active Control (in our case it was a field) name
    
    'The way we address a Field in another Form,
    'like this: Forms!FormName!FieldName
    'so we have to do it here similarly,
    'this will send the field name to the active Field in the active Form
    Forms(frm.Name)(ctl.Name) = ctl.Name
    
    'this will return the Funtion Who_Am_I value to the variable that called it
    Who_Am_I = ctl.Name
    
End Function

2. ننادي الوحدة النمطية مباشرة (لاحظ علامة =  ) ، ولا يوجد كود محلي في VBA :

.

3. نعمل كود محلي ، والذي ينادي الوحدة النمطية:

Private Sub Text4_Click()

    'this way will get the field name from the Function Who_Am_I
    'and it will place the value in the Field in the Form
    Call Who_Am_I
    
    'this way will get the field name from the Function Who_Am_I
    'and it will place the value in the Field in the Form
    'and it WILL place the Field name in the variable A, so that we can use it
    A = Who_Am_I
    MsgBox A
    
End Sub

.

وبما اننا نادينا الوحدة النمطية Who_Am_I عن طريق المتغير A ،

فاصبح المتغير A لديه نتيجة/قيمة الوحدة النمطية ، 

وعليه نستطيع ان نستخدم هذه القيمة كيف نشاء في الكود ،

فمثلا استخدمناها لإعطاءنا رسالة بإسم الحقل ،

والنتيجة:

.

4. نعمل ماكرو ، ونجعل الماكرو ينادي الوحدة النمطية:

.

(لاحظ مافي علامة =  ) ، ولا يوجد كود محلي في VBA:

.

 

جعفر

280.db2016.accdb.zip

تم تعديل فبراير 16, 2016 بواسطه jjafferr
إضافة لكود الوحدة النمطية ، وكود الحقل Text4

[jjafferr]

السلام عليكم 

 

عملت إضافة لكود الوحدة النمطية ، وكود الحقل Text4 في المشاركة السابقة لإستفادة اكبر واعم 

 

 

جعفر