[Forms]![Form1]![mynum] سؤال فيالاستعلام بقيمة مدخلة

[واضح2002]

السلام عليكم

هل ممكن تخبروني عن طريقة لبناء أستعلام يأخذ قيمة من متغير Public في Module

أرجو المساعدة

[التقني]

وعليكم السلام ورحمة الله

الخطوات كالتالي :

1- أن تجعل في النموذج MyForm مربع نص وليكن اسمه Qtxt تكون قيمته مستقاه من الكود .

مثال مقترح لتعبئة مربع النص qtxt بالقيمة من خلال الكود :

Private Sub Form_Current()
    Select Case Date
        Case Is = "Sat"
            qtxt.Value = "السبت"
        Case Is = "Sun"
            qtxt.Value = "الاحد"
        Case Is = "Mon"
            qtxt.Value = "الاثنين"
        Case Is = "Tue"
            qtxt.Value = "الثلاثاء"
        Case Is = "Wed"
            qtxt.Value = "الاربعاء"
        Case Is = "Thu"
            qtxt.Value = "الخميس"
        Case Is = "Fri"
            qtxt.Value = "الجمعة"
    End Select

End Sub

2- زر أمر يقوم بفتح الاستعلام . 3-ضع في الاستعلام السطر التالي :

Like [forms]![MyForm]![Qtxt] & "*"

والله أعلم

تم تعديل يناير 30, 2007 بواسطه التقني