Discussion :

[souketou]

Bonjour,

Je tente de faire une requete update en vba mais je bloque. Voila mon code:

Code :

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

DoCmd.RunSQL "Update LigneCmde set LigneCmde.NumFact='" & Me.NumFact & "' where LigneCmde.NumLigneCde='" & Me.NumLigneFact & "'"

En gros je veux mettre à jour ma table LigneCmde en y insérant le numéro de facture. Le problème c'est que le détail de ma facture est dans une table LigneFact. Ce qui relie la table LigneCmde et LigneFact est le NumLigneCde et NumLigneFact.

Le problème vient du

Code :

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

where LigneCmde.NumLigneCde='" & Me.NumLigneFact & "'

Car j'ai tenté en mettant

Code :

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

where LigneCmde.NumLigneCde=21

Et cela fonctionne très bien.

Le format de NumLigneCde est NumAuto et celui de NumLigneFact (le Me.NumLigneFact) est Numérique Entier long.

Désolé pour le post si long mais....dur dur d'être clair...en espérant l'avoir été.

Merci d'avance.

[Jean-Philippe André]

bonjour,
les champs de type numérique n'ont pas besoin de recevoir des valeurs entres apostrophes.

essaie avec :

Code :

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

DoCmd.RunSQL "Update LigneCmde set LigneCmde.NumFact=" & Me.NumFact & " where LigneCmde.NumLigneCde=" & Me.NumLigneFact & ""

[souketou]

Rapide, Clair, efficace....

Magnifique, Merci beaucoup!!!