تحديث نموذج عند النقر

[co2002co]

اريد ان يتم تحديث نموذج form1 عند النقر من دون الحاجه تكرار فتحه

form1 هو عباره عن ملاحظات عن الدواء (رسالة تنبيه )
ويفتح في طرف الشاشه كما هو موضح بالصوره

298.Medication.rar

[jjafferr]

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

 

الافتراض انك تريد ملاحظة واحدة فقط في النموذج Form1 ، تفضل 

 

1. في الحدث "عند تحميل" النموذج Form1 ، نعمل الكود التالي ، والذي يجعل النموذج Form1 يفتح على يمين النموذج frm_Patient_Drugs :

Private Sub Form_Load()

        r = Forms!frm_Patient_Drugs.Width + 0.6 * 576
        D = 0   'Forms!frm_Patient_Drugs.Section(acDetail).Height + 1.2 * 576 '0.6 * 576
        'w = Forms!frm_Patient_Drugs.Width
        'H = Forms!frm_Patient_Drugs.WindowHeight - Forms!frm_Patient_Drugs.Section(acDetail).Height - 1.5 * 576
        
        'docmd.MoveSize Right, Down, Width, Height
        DoCmd.MoveSize r, D ', w , H
  
' Me.Text0 = Forms.frm_Medication.ListDosing.Column(6)
 
End Sub

 

2. النموذج Form1 يأخذ بياناته من حقل Comments من السجل الحالي للنموذج الفرعي sfrm_Patient_Drugs ،

لذا نضيف الكود التالي على حدث "الحالي" ،

وقبل ارسال المعلومة للنموذج Form1 ، الكود يتأكد ان النموذج Form1 مفتوح ، وإلا فإنه يفتحه:

Private Sub Form_Current()

    If CurrentProject.AllForms("Form1").IsLoaded = False Then
        DoCmd.OpenForm "Form1"
    End If
    
    Forms!Form1!Text0 = Me.Comment

End Sub

 

3. طيب ، واذا اضفنا دواء جديد ، فاننا نريد ان نرى الملاحظة في النموذج Form1 كذلك ،

لذلك ، وعلى حدث Private Sub ListDosing_DblClick للنموذج frm_Medication ، نضيف الكود التالي:

وقبل ارسال المعلومة للنموذج Form1 ، الكود يتأكد ان النموذج Form1 مفتوح ، وإلا فإنه يفتحه:

    'now lets pass the comments to Form1
    'if Form1 is not open, then open it
    If CurrentProject.AllForms("Form1").IsLoaded = False Then
        DoCmd.OpenForm "Form1"
    End If
    
    Forms!Form1!Text0 = Me.ListDosing.Column(6)
    
    

 

 

جعفر 

298.2.Medication.accdb.zip

[co2002co]

اشكرك من كل اعماق قلبي

ما قصرت

[jjafferr]

حياك الله 

[co2002co]

السلام عليكم 

كيف اخلي النموذج رقم واحد ( الملاحظات )

تبتدي من اول السطر

بمعنى

1-

2

3

[co2002co]

عملتها من الجدول نفسه بس الشغله مره متعبه

[jjafferr]

10 دقائق مضت, co2002co said:

عملتها من الجدول نفسه بس الشغله مره متعبه

من طلب العُلا سهر الليالي 

ومن يركب البحر ، لا يخشى من الغرق