ماهو كود احضار اسم النموذج المفتوح او الذي عليه التركيز

عزيزي علاء

أنظر الكود

هذا الكود يتنبأ إسم الفورم المفتوح ، ومن ثم يغلقه

هذا لتخزينه في الوحدة النمطية

Dim frmname As String

frmname = Form.Name

DoCmd.Close acForm, frmname

أما إذا أردت فوراً إغلاق الفورم دون حفظ إسمه فإليك هذا الكود

 DoCmd.Close acForm, Me.Name

بعد اذن اخى الحبيب محمد وليد

اليك اخى هذا الكود

يمكنك وضعه فى وحدة نمطية او فى النموذج

Sub get_frmname()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open forms.
    For Each obj In dbs.AllForms
        If obj.IsLoaded = True Then
            MsgBox obj.Name
        End If
    Next obj
End Sub

في البداية اشكركم على اهتمامكم بالرد علي

اخي mrnooo2000 طريقتك ناجحة 100% والكود واضح

ولكن طريقة اخي hamidymom اظنها غير نافعة ضمن الوحدة النمطية او اني لم اعرف استخدامها وقد ارفقت مثال ارجو من الاخ hamidymom تصحيحه

ولكم الشكر مرة ثانية

aa.rar

مشكور على مشاركتك القيمة أخي أبو يوسف ، وجزاك الله كل خير

اقتباس

ولكن طريقة اخي hamidymom اظنها غير نافعة ضمن الوحدة النمطية او اني لم اعرف استخدامها وقد ارفقت مثال ارجو من الاخ hamidymom تصحيحه

1- في المرات القادمة الرجاء إرفاق قاعدة البيانات بتنسيق أكسيس 2003

2- زِدتُ يقيناً أن طريقتي نافعة بعد أن طبقتها لك في المثال الموجود في المرفقات _ المثال مع الشرح الكامل حتى تعرف كيفية إستخدامها في برنامجك دون مشاكل إن شاء الله _

تكرم :wink:

mistrust.rar

اخي الكريم hamidymom الف شكر لك لاهتمامك بموضوعي

ولكن مثالك لايخدم موضوعي

الهدف من معرفة اسم النموذج الذي عليه التركيز ضمن الوحدة النمطية لتحديد صلاحيات المستخدم ضمن هذا النموذج لذالك انا بحاجة الى معرفة اسم النموذج المفتوح في الوحدة النمطية وتخزينه بمتغير للتعامل معه

واعتذر منك ان كنت قد فهمت ان في ردي اي اسائة او تقليل من شأن ردك

لا أبداً أخي علاء ، بالعكس فأنت أخ كريم ، فكيف أفهم بأن ردك به أي إساءة أو تقليل من الشأن ؟؟

أهلا وسهلا بك .