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
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
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
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
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
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
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;"
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
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
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
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...
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
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...
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
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...
*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
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...
*89 c'est mon multiplicateur donc var * (multiplié par) 89
"3stone" <home@sweet_home.be> a écrit dans le message de news:
%23FsmnQfpKHA.2076@TK2MSFTNGP05.phx.gbl...
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
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...
*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
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...
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
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...
"3stone" <home@sweet_home.be> a écrit dans le message de news:
%23FsmnQfpKHA.2076@TK2MSFTNGP05.phx.gbl...
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
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...
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
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...