عندي مشكلة عندما نقوم بلفتر لايتغير قيمة حقل عدد استاذ او عدد مهندس

[hndren]

السلام و عليكم

عندي مشكلة عندما نقوم بلفتر لايتغير قيمة حقل عدد استاذ او عدد مهندس

db.rar

[hndren]

ممكن حل لهاي مشكلة

[jjafferr]

وعليكم السلام

 

تفضل:

 

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)

    Dim rst As DAO.Recordset
    
    ApplyType = acShowAllRecords
    
    If Len(Me.Filter & "") = 0 Then
        mySQL = "Select * From " & Me.RecordSource
    Else
        mySQL = "Select * From " & Me.RecordSource & " Where " & Me.Filter
    End If
    
    Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    Me.Engineers = 0
    Me.Teachers = 0
    
    For i = 1 To RC
        
        If rst!job = "ãåäÏÓ" Then
            Me.Engineers = Me.Engineers + 1
        
        ElseIf rst!job = "ÇÓÊÇÐ" Then
            Me.Teachers = Me.Teachers + 1
        
        End If
        
        rst.MoveNext
    Next i
End Sub

Private Sub Form_Current()

    Call Form_ApplyFilter(0, 0)
End Sub

Private Sub Form_Load()

    Me.Filter = ""
    Me.FilterOn = False
    Call Form_ApplyFilter(0, 0)
End Sub

.

جعفر

564.db.accdb.zip

[hndren]

شكرا جزيرا استاذ جعفر