تشغيل استعلام بشرط أن يكون النموذج مفتوح

[hougar]

السلام عليكم

أريد انشاء زر أمر لتشغيل استعلامين َQ1 Q2 يعملان على نموذجين مختلفين F1 F2 حيث عندما يكون النموذج  F1 مفتوح يشتغل الاستعلام Q1  وعندما F2 يكون مفتوح يشتغل الاستعلام Q2 

الهدف من ذلك هو الاعتماد على زر أمر واحد

أتمنى أن المطلوب واضح

[Barna]

  في 21‏/1‏/2022 at 11:09, hougar said:

السلام عليكم

أريد انشاء زر أمر لتشغيل استعلامين َQ1 Q2 يعملان على نموذجين مختلفين F1 F2 حيث عندما يكون النموذج  F1 مفتوح يشتغل الاستعلام Q1  وعندما F2 يكون مفتوح يشتغل الاستعلام Q2 

الهدف من ذلك هو الاعتماد على زر أمر واحد

أتمنى أن المطلوب واضح

Expand  

استخدم هذا الكود مع تعديل مكان الرسائل يالاستعلام المطلوب .....

With Application.Forms
        For I = .Count - 1 To 0 Step -1
           With .Item(I)
               
               If .Name <> "Main_Form" And .Name = "F1" Then
               MsgBox .Name
               ElseIf .Name <> "Main_Form" And .Name = "F2" Then
               MsgBox .Name
               End If
           End With
       Next I
End With

 

[hougar]

  في 21‏/1‏/2022 at 12:02, Barna said:

               MsgBox .Name

Expand  

هل استبدل الرسائل بامر الاستعلام  بهذه الطريقة

DoCmd.OpenQuery "Q2" .Name

أم هكذا

Q2 .Name

أعتذر لأنني جربت الكود ولم يعمل معي

[أبوبسمله]

مشاركه مع اخى واستاذى العزيز محمد

  في 21‏/1‏/2022 at 13:14, hougar said:

هل استبدل الرسائل بامر الاستعلام  بهذه الطريقة

DoCmd.OpenQuery "Q2" .Name

أم هكذا

Q2 .Name

أعتذر لأنني جربت الكود ولم يعمل معي

Expand  

استبدل الرسائل بـ

DoCmd.OpenQuery "Q2"

فقط

بالتوفيق

[Barna]

نعم ... صحيح

[hougar]

  في 21‏/1‏/2022 at 12:02, Barna said:

With Application.Forms
        For I = .Count - 1 To 0 Step -1
           With .Item(I)
               
               If .Name <> "Main_Form" And .Name = "F1" Then
               MsgBox .Name
               ElseIf .Name <> "Main_Form" And .Name = "F2" Then
               MsgBox .Name
               End If
           End With
       Next I
End With

Expand  

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

 

Private Sub Command3_Click()
On Error Resume Next
With Application.Forms
        For i = .count - 1 To 0 Step -1
           With .Item(i)
            If .Name <> "Main_Form" And .Name = "F1" Then
               DoCmd.OpenQuery "Q1"
               ElseIf .Name <> "Main_Form" And .Name = "F2" Then
               DoCmd.OpenQuery "Q2"
               End If
           End With
       Next i
End With
DoCmd.Close
DoCmd.RefreshRecord
End Sub

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

[أبوبسمله]

  في 21‏/1‏/2022 at 14:37, hougar said:

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

Expand  

برجاء ارفاق مثالك للتعديل عليه

بالتوفيق

[Barna]

  في 21‏/1‏/2022 at 15:15, الفلاحجى said:

برجاء ارفاق مثالك للتعديل عليه

بالتوفيق

Expand  

 

[Eng.Qassim]

  في 21‏/1‏/2022 at 14:37, hougar said:

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

Expand  

السلام عليكم ..

قم بتعريف المتغير Dim i As Integer

قم بوضع DoCmd.Requery

بدلا من DoCmd.RefreshRecord

 

 

 

[hougar]

شكرا لكم جميعا نعم المتغير i لم يكن معرفا

شكرا لكم Barna  الفلاحجى  Eng.Qassim

لقد عمل الكود بامتياز