انتخاب اختیاری کمبو برای باز کردن ریپورت

[mah3150]

با سلام خدمت دوستان
میشه فرم 2 رو طوری اصلاح کرد که حتی با انتخاب یک فیلد(کمبو اولی) هم اطلاعات موجود را نمایش ندهد و نیاز به انتخاب اجباری کمبو بعدی نباشد؟

[mah3150]

آسونه یکم لطف کنید

[Abbas Amiri]

کد زیر را جایگزین کنید


Private Sub Combo2_AfterUpdate()
If Not IsNull(Combo2) Then
Combo3.RowSource = "SELECT Tabl3.[ID Rosta], Tabl3.Rosta, Tabl3.[ID Shahr] " & _
"FROM Tabl3 WHERE (((Tabl3.[ID Shahr])=[Forms]![Form2]![Combo2]));"
Else
Combo3.RowSource = "SELECT Tabl3.[ID Rosta], Tabl3.Rosta, Tabl3.[ID Shahr] FROM Tabl3"
End If
Combo3.Requery
End Sub



همچنین RowSource مربوط به کمبو2 را برابر خط 6 کد فوق قرار دهید