hndren قام بنشر يناير 29, 2017 مشاركة قام بنشر يناير 29, 2017 السلام و عليكم عندي مشكلة عندما نقوم بلفتر لايتغير قيمة حقل عدد استاذ او عدد مهندس db.rar رابط هذا التعليق شارك More sharing options...
hndren قام بنشر يناير 31, 2017 الكاتب مشاركة قام بنشر يناير 31, 2017 ممكن حل لهاي مشكلة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 وعليكم السلام تفضل: 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 1 رابط هذا التعليق شارك More sharing options...
hndren قام بنشر فبراير 2, 2017 الكاتب مشاركة قام بنشر فبراير 2, 2017 شكرا جزيرا استاذ جعفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان