Bonjour,

Je cherche à récupérer une valeur dans une table par une requête SQL.
Mais j'ai une erreur d'incompatibilité de type localisée sur "Modifiable64.Value=Csng(str)".
Peut-être manque-t-il une instruction pour exécuter la requête ou le problème vient-il de la fonction pour transformer une chaîne de caractère en single ?

Voilà mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Maj()
    Dim str As String
    Dim stn As Single
    Dim strMaj As String
    strMaj = Forms![Saisie nouveau dossier]![Garantie]
    MsgBox (strMaj)
    str = "SELECT [Garanties].[Statut] FROM [Garanties] WHERE [Garanties].[ID Garantie]='" & strMaj & "'"
    str = str & ";"
    MsgBox (str)
    Modifiable64.Value = CSng(str)
End Sub
A l'aide !

Merci
rberniga