[awidan76]

اخي الغالي احمد منصور اعلم بانني كثرت اسئلتي لك ولكن فعلا محتاج لك 
اذا عندك بعض الوقت لترى هل هذا الكود صحيح ام لا
حيث انني اردت عند تحميل واجهة الحضور والغياب يقوم هذا الكود بعمل غياب لكل الموظفين في هذا اليوم (تاريخ الجهاز)

جلبت بيانات الحضور والغياب فان وجد ان اكثر من شخص غائبين في هذا التاريخ إذاً يخرج من الاجراء .... مالم يقوم بعمل غياب للكل 

هذا ولك جزيل الشكر 

PHP كود :

Public Sub CountEM()
'Dim RSGhiab As ADODB.Recordset
'Set RSGhiab = New ADODB.Recordset
If RSGhiab.State = adStateOpen Then RSGhiab.Close
RSGhiab.Open "SELECT * FROM falowTB where FDate like #" & Date & "#", Db, adOpenStatic, adLockOptimistic
If RSGhiab.RecordCount > 0 Then
Exit Sub
Else
'Dim RSCountEM As ADODB.Recordset

'Set RSCountEM = New ADODB.Recordset
Dim CC As Integer

If RSCountEM.State = adStateOpen Then RSCountEM.Close
RSCountEM.Open "SELECT EmID FROM EmpTB", Db, adOpenStatic, adLockOptimistic

If RSCountEM.RecordCount > 0 Then
   
   RSCountEM.MoveFirst
   Do While Not RSCountEM.EOF
  ' Do Until RSCountEM.EOF
     CC = RSCountEM![EmID]
     RSGhiab.AddNew
     RSGhiab![FEmpID] = CC
     RSGhiab![FDate] = Date
     RSGhiab![Ftime] = Time
     RSGhiab![Fday] = Format(Date, "dddd")
     RSGhiab![EReson] = ""
        ..........غياب ......     RSGhiab![ECase] = 0
     RSGhiab![ECovr] = 0
     RSGhiab![Enots] = ""
   RSCountEM.MoveNext
   RSGhiab.MoveNext
   
   Loop
msgbox"تمت التهيئة"

Else
   
   MsgBox "لم تتم التهيئة"
   
End If

End If
End Sub