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

[عبد الله قدور]

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

اسعد الله اوقاتكم جميعا

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

 

[jjafferr]

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

 

تفضل :

 

.

.

جعفر

 

[متقاعد]

46 دقائق مضت, عبد الله قدور said:

عند الضغط عليه مرة ثانية يفتح لي فاتورة المبيعات مرة ثانية وتبقى الفاتورة المفتوحة سابقا موجودة

اقتباس

 

 

[ابو جودي]

السلام عليكم 

مشاركة مع اساتذتى العظماء

هذه افكارى المتواضعة

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

Public clnfrmName             As New Collection
Public frm                    As Form
Public intCounterOpenForm     As Integer
Dim xPos                      As Integer
Dim yPos                      As Integer
Dim lngCount                  As Long
Dim lngI                      As Long
  
  
Function OpenAForm()
  Set frm = New Form_frmInvoice
  frm.Visible = True
  intCounterOpenForm = intCounterOpenForm + 1
  frm.Caption = frm.Name & "(" & intCounterOpenForm & ")"
  clnfrmName.Add Item:=frm, Key:=CStr(frm.Name & "(" & intCounterOpenForm & ")")
  xPos = xPos + 300
  yPos = yPos + 300
  frm.Move xPos, yPos
  Set frm = Nothing
  
End Function

Function CloseAllForm()
  lngCount = clnfrmName.Count
    For lngI = 1 To lngCount
      clnfrmName.Remove 1
    Next
  intCounterOpenForm = 0
  xPos = 0
  yPos = 0
End Function

 

كنت اتمنى تطوير اخراج الفكرة بشكل عملى اكثر حتى لا يرتبط الكود باسم النموذج 
على ان يكون كود مرن ويتم استدعاءه 

بالشكل التالى 

OpenAForm("اسم النموذج المراد فتحه اكثر من مرة")

ولكن عجزت بصراحة فى هذا السطر
 

Set frm = New Form_frmInvoice

 

Open Form more than once.accdb

[ابو جودي]

على سبيل المثال حاولت تمرير اسم النموذج من خلال متغير

 Dim x 'As Object
 x = Form_frmInvoice
Set frm = New x

ولن فشلت التجربة 

[عبد الله قدور]

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

اسعد الله اوقاتكم جميعا

ما شاء الله تبارك الله عمل اكثر من رائع على الفكرة

لكن حدث عندي خطأ في العمل : عندما افتح فاتورة مبيعات مرتين وكان الكود يحوي اسم النموذج فتظهر رسالة خطأ لانه يرى هناك نموذجين بنفس الاسم

الاكسس لا يتعامل مع كل نموذج مفتوح على حدا

للاسف: فانا الان في صدد تعديل الاكواد بحيث لا استخدم اسم النموذج في الكود مطلقا

 

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

 

[أبو إبراهيم الغامدي]

في 30‏/8‏/2022 at 09:21, عبد الله قدور said:

لكن حدث عندي خطأ في العمل : عندما افتح فاتورة مبيعات مرتين وكان الكود يحوي اسم النموذج فتظهر رسالة خطأ لانه يرى هناك نموذجين بنفس الاسم

الاكسس لا يتعامل مع كل نموذج مفتوح على حدا

للاسف: فانا الان في صدد تعديل الاكواد بحيث لا استخدم اسم النموذج في الكود مطلقا

 

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

لا.. يمكنك تغيير اسم النموذج إلا إذا كان مغلقاً.. 

استخدم عوضاً عن ذلك Screen.ActiveForm

[msm 911]

أستفسار بعد أذنك .  مالفائدة من هذه الطريقة 

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

هل تريد  أعادة الطلب . استعلامات الألحاق تفي بالغرض 

تم تعديل سبتمبر 3, 2022 بواسطه msm 911

[msm 911]

7 دقائق مضت, rockjone33 said:

 

(×)..🙂

سبب التعديل لأنه في النهاية المعنى واحد 

[عبد الله قدور]

في 3‏/9‏/2022 at 14:47, rockjone33 said:

تجربه بدالة @ابو جودي لعمل Forms into form <([item.. 🙂

 عند الانتهاء سأرفق مثال ..

جزاك الله كل خير

للاسف لم تتح لي فرصة للتجربة بعد

بانتظار تجربتك اخي الكريم