Discussion :

[rberniga]

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

[Jean-Philippe André]

salut,
un peu de lecture sur la manipulation de données
http://warin.developpez.com/access/dao/
et notamment la partie 5 du cours : http://warin.developpez.com/access/dao/?page=partie_5

[rberniga]

Si je mets directement une valeur numérique pour Modif.Value çà fonctionne très bien..

[rberniga]

J'ai malheureusement peu de temps et beaucoup de manque dans ce domaine ..
Quelqu'un pourrait'il m'aider directement au niveau de mon code svp ?

[Jean-Philippe André]

On a pour habitude d'apprendre à pêcher aux membres, pas de pêcher pour eux

remplace ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
str = "SELECT [Garanties].[Statut] FROM [Garanties] WHERE [Garanties].[ID Garantie]='" & strMaj & "'"
    str = str & ";"
    MsgBox (str)
    Modifiable64.Value = CSng(str)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Modifiable64.Value = CSng(dlookup("Statut","Garanties","[ID Garantie]='" & strMaj & "'"))

[rberniga]

Mais c'est tout à fait normal et c'est ce que j'essaye de faire le plus souvent possible ..

Alors message d'erreur '3464' :
Type de données incompatibles dans l'expression du critère.
Localisé sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    Modifiable64.Value = CSng(DLookup("Statut", "Garanties", "[ID Garantie]='" & strMaj & "'"))

Code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Maj()
    Dim str As String
    Dim stn As Single
    Dim strMaj As String
    strMaj = Forms![Saisie nouveau dossier]![Garantie]
    MsgBox (strMaj)
    Modifiable64.Value = CSng(DLookup("Statut", "Garanties", "[ID Garantie]='" & strMaj & "'"))
End Sub

Merci

[Jean-Philippe André]

- ton champ statut contient quel type de données ?
- même question pour ton champ ID Garantie ?

s'il s'agit de valeur numérique, les apostrophes sont inutiles.

[rberniga]

Les deux sont effectivement des champs numériques.
J'ai enlevé les apostrophes et c'est tout bon !
Merci beaucoup jpcheck !!

Promis je regarderais le cours que tu m'as indiqué dès que possible

rberniga