مساعدة في فتح نموذج جديد

[ازهر عبد العزيز]

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

so.accdb

[Amr Ashraf]

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

مبدأ ثابت لا يمكن فتح اى عنصر فى القاعدة مرتين فى نفس الوقت , ولكن يمكن التحايل على الموضوع بعمل نسخ وهمية من النموذج وفتحها وعند الانتهاء حذفها من القاعدة ولكن لا ادرى ما يجعلك تحتاج لهذه الطريقة الغريبة ؟

هل يمكنك شرح هدفك يمكن هناك طرق افضل ؟

[Amr Ashraf]

عامة تفضل الحل الذى تريده .

الشرح : كما قلت لا يمكن فتح نفس العنصر مرتين ولذلك نحتاج لعمل نسخة طبق الاصل منه كما يلى :

Dim x, s As String
s = Me.Name
x = Me.Name & "NCpy"
DoCmd.CopyObject , x, acForm, s
DoCmd.OpenForm x

الامر السابق سيقوم بنسخ النموذج الذى تم ضغط الزر فيه واضافة NCpy بجوار اسمه .

ومطلوب عند الانتهاء حذف النسخ الوهمية التى تم انشاؤها والتى يحتوى اسمها على NCpy ولذلك يتم وضع هذا الحدث عند غلق النموذج On Close

Dim obj As AccessObject
On Error Resume Next
For Each obj In CurrentProject.AllForms
If obj.Name Like "*NCpy*" Then
    Debug.Print "Deleting " & obj.Name
    DoCmd.Close acForm, obj.Name, acSaveNo
    DoCmd.DeleteObject acForm, obj.Name
    End If
    Next

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

مرفق القاعدة

 

بالتوفيق .

so - Amr.accdb

[jjafferr]

21 دقائق مضت, Amr Ashraf said:

لا يمكن فتح نفس العنصر مرتين

همممم

يصير مع النماذج: http://allenbrowne.com/ser-35.html

 

والمرفق من الرابط 🙂

 

جعفر

MultiInstance2k.zip

[Amr Ashraf]

8 دقائق مضت, jjafferr said:

يصير مع النماذج

جديدة عليا 😂 شكرا استاذى على المعلومة. 

[jjafferr]

هذه احد ميزات المنتدى ، الإفادة والاستفادة ، لنا كلنا 🙂

 

جعفر

[ازهر عبد العزيز]

شكرا استاذ @jjafferr 

تم تعديل يناير 26, 2022 بواسطه ازهر عبد العزيز