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

[hougar]

السلام عليكم

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

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

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

[Barna]

52 دقائق مضت, hougar said:

السلام عليكم

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

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

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

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

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]

منذ ساعه, Barna said:

               MsgBox .Name

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

DoCmd.OpenQuery "Q2" .Name

أم هكذا

Q2 .Name

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

[أبوبسمله]

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

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

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

DoCmd.OpenQuery "Q2" .Name

أم هكذا

Q2 .Name

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

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

DoCmd.OpenQuery "Q2"

فقط

بالتوفيق

[Barna]

نعم ... صحيح

[hougar]

2 ساعات مضت, 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

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

 

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

[أبوبسمله]

36 دقائق مضت, hougar said:

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

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

بالتوفيق

[Barna]

14 دقائق مضت, الفلاحجى said:

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

بالتوفيق

 

[Eng.Qassim]

1 ساعه مضت, hougar said:

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

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

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

قم بوضع DoCmd.Requery

بدلا من DoCmd.RefreshRecord

 

 

 

[hougar]

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

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

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