hougar قام بنشر يناير 21, 2022 مشاركة قام بنشر يناير 21, 2022 السلام عليكم أريد انشاء زر أمر لتشغيل استعلامين َQ1 Q2 يعملان على نموذجين مختلفين F1 F2 حيث عندما يكون النموذج F1 مفتوح يشتغل الاستعلام Q1 وعندما F2 يكون مفتوح يشتغل الاستعلام Q2 الهدف من ذلك هو الاعتماد على زر أمر واحد أتمنى أن المطلوب واضح رابط هذا التعليق شارك More sharing options...
أفضل إجابة Barna قام بنشر يناير 21, 2022 أفضل إجابة مشاركة قام بنشر يناير 21, 2022 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 2 رابط هذا التعليق شارك More sharing options...
hougar قام بنشر يناير 21, 2022 الكاتب مشاركة قام بنشر يناير 21, 2022 منذ ساعه, Barna said: MsgBox .Name هل استبدل الرسائل بامر الاستعلام بهذه الطريقة DoCmd.OpenQuery "Q2" .Name أم هكذا Q2 .Name أعتذر لأنني جربت الكود ولم يعمل معي رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 21, 2022 مشاركة قام بنشر يناير 21, 2022 مشاركه مع اخى واستاذى العزيز محمد 7 دقائق مضت, hougar said: هل استبدل الرسائل بامر الاستعلام بهذه الطريقة DoCmd.OpenQuery "Q2" .Name أم هكذا Q2 .Name أعتذر لأنني جربت الكود ولم يعمل معي استبدل الرسائل بـ DoCmd.OpenQuery "Q2" فقط بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يناير 21, 2022 مشاركة قام بنشر يناير 21, 2022 نعم ... صحيح 1 رابط هذا التعليق شارك More sharing options...
hougar قام بنشر يناير 21, 2022 الكاتب مشاركة قام بنشر يناير 21, 2022 (معدل) 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 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 21, 2022 مشاركة قام بنشر يناير 21, 2022 36 دقائق مضت, hougar said: لقد قمت بكتالة الكود ولم ينفع حيث هل هناك خطأ في استعمال الكود برجاء ارفاق مثالك للتعديل عليه بالتوفيق رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يناير 21, 2022 مشاركة قام بنشر يناير 21, 2022 14 دقائق مضت, الفلاحجى said: برجاء ارفاق مثالك للتعديل عليه بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يناير 21, 2022 مشاركة قام بنشر يناير 21, 2022 1 ساعه مضت, hougar said: قد قمت بكتالة الكود ولم ينفع حيث هل هناك خطأ في استعمال الكود السلام عليكم .. قم بتعريف المتغير Dim i As Integer قم بوضع DoCmd.Requery بدلا من DoCmd.RefreshRecord 1 رابط هذا التعليق شارك More sharing options...
hougar قام بنشر يناير 21, 2022 الكاتب مشاركة قام بنشر يناير 21, 2022 شكرا لكم جميعا نعم المتغير i لم يكن معرفا شكرا لكم Barna الفلاحجى Eng.Qassim لقد عمل الكود بامتياز رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان