[VBA] Requete sql en vba Résolu/Fermé

Question

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 :)

BibopLeFou · Answer

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

[VBA] Requete sql en vba

1 réponse

Discussions similaires