[سؤال] [تم الحل] مشكلة برنامج حساب نسب الموظفين

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

PHP كود :

Public Sub CountEM()

If RSGhiab.State = adStateOpen Then RSGhiab.Close

RSGhiab.Open "SELECT * FROM falowTB where ECase=0 And FDate=#" & Format(Date, "mm/dd/yyyy") & "#", Db, adOpenStatic, adLockPessimistic

If RSGhiab.RecordCount > 0 Then
   
   If RSGhiab.State = adStateOpen Then RSGhiab.Close
   MsgBox "لقد تمت التهيئة مسبقاً"
   Exit Sub
   
Else

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

   If RSCountEM.RecordCount > 0 Then
   
      RSCountEM.MoveFirst
   
      Do While Not RSCountEM.EOF
         RSGhiab.AddNew
         RSGhiab![FEmpID] = RSCountEM![EmID]
         RSGhiab![FDate] = Format(Date, "mm/dd/yyyy")
         RSGhiab![Ftime] = Format(Time, "HH:MM:SS AM/PM")
         RSGhiab![Fday] = Format(Date, "dddd")
         RSGhiab![EReson] = ""
         RSGhiab![ECase] = 0
         RSGhiab![ECovr] = 0
         RSGhiab![Enots] = ""
         RSGhiab.Update
         DoEvents
         RSCountEM.MoveNext
      Loop
   
      MsgBox "تمت التهيئة"

   Else
   
      MsgBox "لم تتم التهيئة, لم يتم العثور على موظفين مسجلين!"
   
   End If

   If RSGhiab.State = adStateOpen Then RSGhiab.Close
   If RSCountEM.State = adStateOpen Then RSCountEM.Close

End If

End Sub 

PHP كود :

Public Sub CountEM()

If RSGhiab.State = adStateOpen Then RSGhiab.Close

RSGhiab.Open "SELECT * FROM falowTB where FDate=#" & Format(Date, "mm/dd/yyyy") & "#", Db, adOpenStatic, adLockPessimistic

If RSGhiab.RecordCount > 0 Then
   
   If RSGhiab.State = adStateOpen Then RSGhiab.Close
   MsgBox "لقد تمت التهيئة مسبقاً"
   Exit Sub
   
Else

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

   If RSCountEM.RecordCount > 0 Then
   
      RSCountEM.MoveFirst
   
      Do While Not RSCountEM.EOF
         RSGhiab.AddNew
         RSGhiab![FEmpID] = RSCountEM![EmID]
         RSGhiab![FDate] = Format(Date, "mm/dd/yyyy")
         RSGhiab![Ftime] = Format(Time, "HH:MM:SS AM/PM")
         RSGhiab![Fday] = Format(Date, "dddd")
         RSGhiab![EReson] = ""
         RSGhiab![ECase] = 0
         RSGhiab![ECovr] = 0
         RSGhiab![Enots] = ""
         RSGhiab.Update
         DoEvents
         RSCountEM.MoveNext
      Loop
   
      MsgBox "تمت التهيئة"

   Else
   
      MsgBox "لم تتم التهيئة, لم يتم العثور على موظفين مسجلين!"
   
   End If

   If RSGhiab.State = adStateOpen Then RSGhiab.Close
   If RSCountEM.State = adStateOpen Then RSCountEM.Close

End If

End Sub 