1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Public Function MaterielNonDisponible(ByRef Utilisateur As String, _
ByVal Matériel As String, ByVal Jour As Date) As Boolean
Dim SQL As String
Dim oRS As dao.Recordset
SQL = "SELECT COUNT TBLUtilisateurs.Utilisateur"
SQL = SQL & vbCrLf & "FROM TBLUtilisateurs"
SQL = SQL & vbCrLf & "WHERE TBLUtilisateurs.Utilisateur = " & Chr(34) & _
Utilisateur & Chr(34) & _
" AND TBLUtilisateurs.Materiel = " & Chr(34) & Matériel & Chr(34) & _
" AND TBLUtilisateurs.Jour = #" & Format(Jour, "mm/dd/yyyy") & "# ;"
Set oRS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
With oRS
If Not .EOF Then
Utilisateur = .Fields("Utilisateur")
MaterielNonDisponible = True
Else
MaterielNonDisponible = False
End If
.Close
End With
Set oRS = Nothing
End Function |
Partager