Discussion :

[tat2398]

Bonjour à tous,

Alors voilà j'ai un petit problème de syntaxe lors de ma requête update et honnêtement je ne vois pas où est l'erreur.
voilà le code qui ne veut pas fonctionner .

merci d'avance pour votre réponse et je vous souhaite une bonne journée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  insertSQL = "UPDATE LBSA_CCTRL_Cartes_Layout SET id_att = ' " & Me.choix_mesures & " ', " & _
                           "carte_lay_nom = '" & Me.nom_form & " '," & _
                           "carte_Lay_ima= '" & Me.image_1 & " '," & _
                           "carte_Lay_plan= '" & Me.plan_1 & "'," & _
                           "carte_Lay_lien_Instr = '" & Me.instru_1 & "'," & _
                           "carte_lay_champ_visuel = " & champ_visuel & "," & _
                           "carte_lay_champ_remarque = '" & Me.remarque & "'," & _
                           "carte_Lay_num_importance = " & mes_import & "," & _
                           "carte_Lay_position = " & pos_lay & " " & _
                           "WHERE id =  " & id_lay & " ;"
 
                           Debug.Print insertSQL
                          DoCmd.RunSQL insertSQL

et dans le debug j'ai ceci

UPDATE LBSA_CCTRL_Cartes_Layout SET id_att = ' GAT_FLOAT_14 ', carte_lay_nom = 'dsfn ',carte_Lay_ima= ' ',carte_Lay_plan= '',carte_Lay_lien_Instr = '',carte_lay_champ_visuel = ,carte_lay_champ_remarque = '',carte_Lay_num_importance = ,carte_Lay_position = 1 WHERE id = 3 ;

Si jamais si il y a = sans rien c'est car c'est du numérique mais la il est null et dans ma table j'ai accepté les valeurs null donc je ne pense pas que c'est celà.
d'avance je vous remercie pour votre réponse

[Thumb down]

Bonjour,
Quand la valeur est nulle il faut lui dire!

Code :

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

 carte_Lay_ima=null,arte_lay_nom = null

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
Debug.Print TrouveTypeSql("")
Debug.Print TrouveTypeSql(strFileName)
Debug.Print TrouveTypeSql("toto")
Debug.Print TrouveTypeSql(Date)
Debug.Print TrouveTypeSql(Now)
Debug.Print TrouveTypeSql(10.5)
 
SQL= "INSERT INTO Files (Path, File, DateLastModified) VALUES (" & TrouveTypeSql(strFilePath) & "," & TrouveTypeSql(strFileName) & "," & TrouveTypeSql(dtDateLastModified) & ")"
Debug.Print SQL
cnn.Execute  SQL
End Sub
 
 
Function TrouveTypeSql(V)
TrouveTypeSql = Trim("" & V)
If Trim("" & TrouveTypeSql) = "" Then TrouveTypeSql = "Null": Exit Function
If IsDate(TrouveTypeSql) = True And InStr(TrouveTypeSql, "/") <> 0 And InStr(TrouveTypeSql, ":") <> 0 Then TrouveTypeSql = "#" & Format(TrouveTypeSql, "yyyy-mm-dd hh:mm") & "#": Exit Function
If IsDate(TrouveTypeSql) = True And InStr(TrouveTypeSql, "/") <> 0 Then TrouveTypeSql = "#" & Format(TrouveTypeSql, "yyyy-mm-dd") & "#": Exit Function
If IsNumeric(Replace(TrouveTypeSql, ".", ",")) = True Then TrouveTypeSql = Replace(TrouveTypeSql, ",", "."): Exit Function
TrouveTypeSql = "'" & Replace(TrouveTypeSql, "'", "''") & "'"
End Function

[Jeannot45]

Je pense que l'erreur viendrait plutot de ces null.
Le plus simple serait de ne pas accepter les Null et de mettre 0 comme valeur par défaut dans la table En utilisant la fonction nz() au niveau de tes champs numériques tu n'aurais plus d'erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
insertSQL = "UPDATE LBSA_CCTRL_Cartes_Layout SET id_att = ' " & Me.choix_mesures & " ', " & _
                           "carte_lay_nom = '" & Me.nom_form & " '," & _
                           "carte_Lay_ima= '" & Me.image_1 & " '," & _
                           "carte_Lay_plan= '" & Me.plan_1 & "'," & _
                           "carte_Lay_lien_Instr = '" & Me.instru_1 & "'," & _
                           "carte_lay_champ_visuel = " & nz(champ_visuel,0) & "," & _
                           "carte_lay_champ_remarque = '" & Me.remarque & "'," & _
                           "carte_Lay_num_importance = " & nz(mes_import,0) & "," & _
                           "carte_Lay_position = " & nz(pos_lay,0) & " " & _
                           "WHERE id =  " & id_lay & " ;"

[Thumb down]

en fait si je [FONT=Verdana, Arial, Tahoma, Calibri, Geneva, sans-serif]concatène[/FONT] un texte avec un valeur nulle ça revient à concaténer avec rien on le voit bien avec carte_Lay_ima= ' '.

Code :

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

"id_att =" & TrouveTypeSql(Me.choix_mesures) & ",carte_Lay_ima= " & TrouveTypeSql(Me.image_1) & ",carte_Lay_num_importance =" & TrouveTypeSql(mes_import) & ",carte_Lay_position = " & TrouveTypeSql(pos_lay) & " "

retournera "id_att = 'GAT_FLOAT_14',carte_Lay_ima=null,carte_Lay_num_importance =null,carte_Lay_position =1 " ce qui est conforme à sql!

[tee_grandbois]

bonjour,

en fait si je concatène un texte avec un valeur nulle ça revient à concaténer avec rien on le voit bien avec carte_Lay_ima= ' '.

oui, encore faut-il le faire, car ici ce n'est pas le cas:



or, cette syntaxe: Champ= provoque une erreur, il faut donc bien utiliser Nz(), comme te l'a préconisé Jeannot45

[Thumb down]

or, cette syntaxe: Champ= provoque une erreur, il faut donc bien utiliser Nz(), comme te l'a préconisé Jeannot45

oui et si il s'agissait d'une date on donnera la date du jour par défaut,

non on met null!

[tat2398]

Bonjour à tous,

Merci d'avoir répondu si rapidement c'était en effet le nz( ) qui manquait
Merci a tous pour votre aide et une bonne journée