Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access info update avec where en vba

info update avec where en vba

4 réponses
Avatar
Macgiver
bonjour pouvez-vous m'expliqeur pourquoi cette procédure ne fonctionne pas?
ca bug au niveau du currentdb.execute Update ..., je n'y comprends rien.
merci

Private Sub nbr_pot_AfterUpdate()
Dim var_nbr As Double
Dim var_gr As Double
Dim var_no As Integer
Dim stDocName As String

var_nbr = Me.nbr_pot
var_gr = Me.qte
var_no = Me.no_auto

If Me.nbr_pot Then
If Me.Dirty Then
DoCmd.RunCommand acCmdSaveRecord
End If
CurrentDb.Execute "UPDATE T_miseenpot SET total_qte = ' &
var_nbr & ' * 89 where no_auto = var_no;"
End If
Requery
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
db
Macgiver a écrit :
bonjour pouvez-vous m'expliqeur pourquoi cette procédure ne fonctionne pas?
ca bug au niveau du currentdb.execute Update ..., je n'y comprends rien.
merci

Private Sub nbr_pot_AfterUpdate()
Dim var_nbr As Double
Dim var_gr As Double
Dim var_no As Integer
Dim stDocName As String

var_nbr = Me.nbr_pot
var_gr = Me.qte
var_no = Me.no_auto

If Me.nbr_pot Then
If Me.Dirty Then
DoCmd.RunCommand acCmdSaveRecord
End If
CurrentDb.Execute "UPDATE T_miseenpot SET total_qte = ' &
var_nbr & ' * 89 where no_auto = var_no;"
End If
Requery
End Sub





Bonsoir,

Il faudrait remplacer les apostrophes par des guillemets :

CurrentDb.Execute "UPDATE T_miseenpot SET total_qte = " & var_nbr &
" * 89 where no_auto = var_no;"


db
Avatar
3stone
Salut,

Macgiver wrote:
bonjour pouvez-vous m'expliqeur pourquoi cette procédure ne
fonctionne pas? ca bug au niveau du currentdb.execute Update ..., je
n'y comprends rien. merci

Private Sub nbr_pot_AfterUpdate()
Dim var_nbr As Double
Dim var_gr As Double
Dim var_no As Integer
Dim stDocName As String

var_nbr = Me.nbr_pot
var_gr = Me.qte
var_no = Me.no_auto

If Me.nbr_pot Then
If Me.Dirty Then
DoCmd.RunCommand acCmdSaveRecord
End If
CurrentDb.Execute "UPDATE T_miseenpot SET total_qte = ' &
var_nbr & ' * 89 where no_auto = var_no;"
End If
Requery
End Sub



Tu mets réellement "* 89" dans un champ total_qte ?

et puis, c'est quoi var_no ? une variable ?
dans ce cas, il faut la sortir de la chaîne...

...where no_auto =" & var_no


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
Macgiver
*89 c'est mon multiplicateur donc var * (multiplié par) 89



"3stone" a écrit dans le message de news:
%
Salut,

Macgiver wrote:
bonjour pouvez-vous m'expliqeur pourquoi cette procédure ne
fonctionne pas? ca bug au niveau du currentdb.execute Update ..., je
n'y comprends rien. merci

Private Sub nbr_pot_AfterUpdate()
Dim var_nbr As Double
Dim var_gr As Double
Dim var_no As Integer
Dim stDocName As String

var_nbr = Me.nbr_pot
var_gr = Me.qte
var_no = Me.no_auto

If Me.nbr_pot Then
If Me.Dirty Then
DoCmd.RunCommand acCmdSaveRecord
End If
CurrentDb.Execute "UPDATE T_miseenpot SET total_qte = ' &
var_nbr & ' * 89 where no_auto = var_no;"
End If
Requery
End Sub



Tu mets réellement "* 89" dans un champ total_qte ?

et puis, c'est quoi var_no ? une variable ?
dans ce cas, il faut la sortir de la chaîne...

...where no_auto =" & var_no


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)



Avatar
Macgiver
merci a vous 2 ca fonctionne maintenant avec ca

CurrentDb.Execute "UPDATE T_miseenpot SET total_qte = " & var_nbr & " * " &
var_gr & " where no_auto =" & var_no & ";"


"3stone" a écrit dans le message de news:
%
Salut,

Macgiver wrote:
bonjour pouvez-vous m'expliqeur pourquoi cette procédure ne
fonctionne pas? ca bug au niveau du currentdb.execute Update ..., je
n'y comprends rien. merci

Private Sub nbr_pot_AfterUpdate()
Dim var_nbr As Double
Dim var_gr As Double
Dim var_no As Integer
Dim stDocName As String

var_nbr = Me.nbr_pot
var_gr = Me.qte
var_no = Me.no_auto

If Me.nbr_pot Then
If Me.Dirty Then
DoCmd.RunCommand acCmdSaveRecord
End If
CurrentDb.Execute "UPDATE T_miseenpot SET total_qte = ' &
var_nbr & ' * 89 where no_auto = var_no;"
End If
Requery
End Sub



Tu mets réellement "* 89" dans un champ total_qte ?

et puis, c'est quoi var_no ? une variable ?
dans ce cas, il faut la sortir de la chaîne...

...where no_auto =" & var_no


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)