[VBA] Requete sql en vba

Résolu/Fermé
Signaler
-
 BibopLeFou -
Bonjour,
J'ai un petit problème avec le code suivant qui me renvoie faux a chaque fois que soit les données envoyées :

Public Function estservco(ByVal user As String, serveur As String) As Boolean

Dim rst As DAO.Recordset
strSQL = "SELECT t_conserv.id FROM t_conserv WHERE (((t_conserv.datefin) Is Null) AND ((t_conserv.utilisateur) Like 'user') AND ((t_conserv.poste) Like 'serveur'))"
Set rst = CurrentDb.OpenRecordset(strSQL)
If rst.RecordCount = 1 Then
estservco = True
Else
estservco = False
End If
End Function

En fait je suis un peu nul en VBA et j'ai besoin de savoir si il y a une ou zero ligne dans ma table sans date de fin pour un utilisateur et un poste donné.

Merci d'avance :)

1 réponse

bonjour,
J'ai finalement réussit comme sa :

Public Function estservco(ByVal user As String, serveur As String) As Boolean
'HB20081105 création dune fonction qui pour un nom et un serveur donné renvoi un bool si il y a une connection en cours
Dim rst As DAO.Recordset
strSQL = "SELECT t_conserv.id FROM t_conserv WHERE (((t_conserv.datefin) Is Null) AND ((t_conserv.utilisateur) Like '" & user & "') AND ((t_conserv.poste) Like '" & serveur & "'))"
Set rst = CurrentDb.OpenRecordset(strSQL)
If rst.RecordCount = 1 Then
estservco = True
Else
estservco = False
End If
End Function

Désolé pour le dérangement :p
0