بارك الله فيك اخي الحبيب تم الامر فجزاك الله خيرا علي السمكة ولكن انا اريد ان تعلمني الصيد اخي
النموذج تم عمل حدث في الحالي Me.tblExpenses_e.Form.AllowEdits = False فما معني ذلك
و مربع التحرير والسرد المسمي cbof تم عمل حدث بعد التحديث
'[Forms]![eradat]![tblExpenses_e].Form.Filter = "[flatNo] = '" & Me.cboF & "'"
'[Forms]![eradat]![tblExpenses_e].Form.FilterOn = True
If Len(Me.cboF & vbNullString) > 0 Then
[Forms]![eradat]![tblExpenses_e].Form.Filter = "[flatNo] = '" & Me.cboF & "'"
[Forms]![eradat]![tblExpenses_e].Form.FilterOn = True
Else
[Forms]![eradat]![tblExpenses_e].Form.FilterOn = False
End If
فممكن شرح مبسط لذلك اخي الحبيب
وحضرتك وعدتني بشرح مبسط اخر للدالة IIf(Mid([flatNo];3;2)="00";1;0) مع كتابة <>1 في المعيار
اسف ان كنت اثقل عليك اخي