المعذرة تفضل Option Compare Database Dim strcriteria As String ' Private Sub dfgh_AfterUpdate() Call searchCriteria End Sub Private Sub Form_Load() Call searchCriteria End Sub Private Sub n1_AfterUpdate() Call searchCriteria End Sub Private Sub n2_AfterUpdate() Call searchCriteria End Sub Private Sub qwer_AfterUpdate() Call searchCriteria End Sub Function searchCriteria() Dim task As String strcriteria = "" If Not IsNull(Me.dfgh) Then