هل يوجد كود يصفي بدل طريقه استعلامات

للرفع

(clock)

:cool:

اخوي مثالك صعب ويحتاج وقت

لكن اذا عندك استعلامات زي بعض ولا تبغى تكثر منها

اعمل نموذج واحد يصلح للاستعلامات المتشابهة

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

وفي النموذج في حدث قبل الفتح اكتب الكود

Me.RecordSource = ""

ثم الصق عبارة SQL اللي قصيتها من مصدر بيانات النموذج بين القوسين ""

وكذا الاستعلام ما عاد له حاجة .

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

يعني اكتب مثلا

If [Forms]![Form1]![txt1] = 1 Then

Me.RecordSource = SQL1

 ElseIf [Forms]![Form1]![txt1] = 2 Then

Me.RecordSource = SQL2

Else

Me.RecordSource = SQL3

End if

كان ودي اعمل مثال لكن وقتي ما يسمح ، واتمنى واحد من الاخوان يقدر يعدل في مثالك أو يحط مثال جديد

أرجو التوضيح أكثر

مثال ومعليش لو كان بسط

exampl1.zip

السلام عليكم

اخ osama457

كود بحاجه للتصليح

الاجراء الى كتبتو هونيك لن يعمل هنا

Private Sub رقم_AfterUpdate()

x = DLookup("[رقم]", "[تعريف]", "[نوع]=" & "'" & Me.نوع & "'" & " And [رقم]=" & "'" & Me.رقم & "'")

z = [رقم]

MsgBox x & vbCrLf & z

If Nz([x], "") <> Nz([z], "") Then

MsgBox# ("الرقم غير صحيح")

End If

End Sub

هزا هو البرنامج طبق الاصل

حولت كتير طبقو ماكان يظبط

شكرا واتمنى ماكون عم عزبك

شكرااااااا

اخوي انا ما فهمت المشكلة

لو تتكرم وتحط مثال بسيط ، يعني مثال توضح فيه وين مكان المشكلة بالظبط

وان شا الله تلقى حل مني انا او من غيري من الاخوان

للرفع