Bonjour,
je souhaite sur un formulaire,aprés impression mettre à jour 2 champs
d'une table tlitige
un champs codevalidationeditionbon
un champs datevaleditionbon
le but etant que les enregistrements selectionnés prennent respectivement la
valeur
2 pour codevalidationeditionbon
now() pour datevaleditionbon
j'ai tenté une codif en vba mais tout aprés plusieurs tentatives
infructueuses je me tourne vers vous.
mon code
Private Sub Commande32_Click()
Dim db1
Dim rst1
Dim g, i
Dim monsql1
Dim stDocName As String
stDocName = "BONRETOUR"
monsql1 = "select* from tlitige where(((tLitige.codevalidationaccordadv)=2)
AND ((tLitige.codevalidationbonretour)=2)AND
((tLitige.codevalidationeditionbon)=1)) "
Set db1 = CurrentDb
Set rst1 = db1.OpenRecordset(monsql1)
rst1.MoveLast
rst1.MoveFirst
g = rst1.RecordCount
If g = 0 Then
MsgBox ("PAS DE BON EN ATTENTE D'EDITION")
Else
stDocName = "BONRETOUR"
DoCmd.OpenReport stDocName, acNormal
For i = 1 To g
Me.codevalidationbonretour = 2
Me.datevaleditionbon = Now()
DoCmd.GoToRecord , , acNext
Next i
End If
Me.Requery
Me.Refresh
Set db1 = Nothing
Set rst1 = Nothing
End Sub
N'y a-t-il pas une possibilité de faire un update des champs concernés pour
rst1?
Merci d'avance
eric
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
RaphK34
Salut, je pense qu'à la place de : For i = 1 To g Me.codevalidationbonretour = 2 Me.datevaleditionbon = Now() DoCmd.GoToRecord , , acNext Next i je ferais un update du style:
UPDATE tlitige SET tlitige.codevalidationeditionbon = 2, tlitige.datevaleditionbon= Now() where(((tLitige.codevalidationaccordadv)=2) AND ((tLitige.codevalidationbonretour)=2)AND ((tLitige.codevalidationeditionbon)=1)) "
-- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues ! -------------------------------------------- "eric" a écrit dans le message de news:
Bonjour, je souhaite sur un formulaire,aprés impression mettre à jour 2 champs d'une table tlitige
un champs codevalidationeditionbon un champs datevaleditionbon le but etant que les enregistrements selectionnés prennent respectivement la valeur 2 pour codevalidationeditionbon now() pour datevaleditionbon j'ai tenté une codif en vba mais tout aprés plusieurs tentatives infructueuses je me tourne vers vous.
mon code Private Sub Commande32_Click() Dim db1 Dim rst1 Dim g, i Dim monsql1 Dim stDocName As String
stDocName = "BONRETOUR" monsql1 = "select* from tlitige where(((tLitige.codevalidationaccordadv)=2) AND ((tLitige.codevalidationbonretour)=2)AND ((tLitige.codevalidationeditionbon)=1)) " Set db1 = CurrentDb Set rst1 = db1.OpenRecordset(monsql1) rst1.MoveLast rst1.MoveFirst g = rst1.RecordCount
If g = 0 Then MsgBox ("PAS DE BON EN ATTENTE D'EDITION") Else stDocName = "BONRETOUR" DoCmd.OpenReport stDocName, acNormal For i = 1 To g Me.codevalidationbonretour = 2 Me.datevaleditionbon = Now() DoCmd.GoToRecord , , acNext Next i
End If
Me.Requery Me.Refresh
Set db1 = Nothing Set rst1 = Nothing End Sub
N'y a-t-il pas une possibilité de faire un update des champs concernés pour rst1? Merci d'avance eric
Salut,
je pense qu'à la place de :
For i = 1 To g
Me.codevalidationbonretour = 2
Me.datevaleditionbon = Now()
DoCmd.GoToRecord , , acNext
Next i
je ferais un update du style:
UPDATE tlitige SET tlitige.codevalidationeditionbon = 2,
tlitige.datevaleditionbon= Now()
where(((tLitige.codevalidationaccordadv)=2)
AND ((tLitige.codevalidationbonretour)=2)AND
((tLitige.codevalidationeditionbon)=1)) "
--
@+ Raph.
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
--------------------------------------------
"eric" <eric@discussions.microsoft.com> a écrit dans le message de news:
F5BA9768-0533-45F0-A414-3689011ABD0B@microsoft.com...
Bonjour,
je souhaite sur un formulaire,aprés impression mettre à jour 2 champs
d'une table tlitige
un champs codevalidationeditionbon
un champs datevaleditionbon
le but etant que les enregistrements selectionnés prennent respectivement
la
valeur
2 pour codevalidationeditionbon
now() pour datevaleditionbon
j'ai tenté une codif en vba mais tout aprés plusieurs tentatives
infructueuses je me tourne vers vous.
mon code
Private Sub Commande32_Click()
Dim db1
Dim rst1
Dim g, i
Dim monsql1
Dim stDocName As String
stDocName = "BONRETOUR"
monsql1 = "select* from tlitige
where(((tLitige.codevalidationaccordadv)=2)
AND ((tLitige.codevalidationbonretour)=2)AND
((tLitige.codevalidationeditionbon)=1)) "
Set db1 = CurrentDb
Set rst1 = db1.OpenRecordset(monsql1)
rst1.MoveLast
rst1.MoveFirst
g = rst1.RecordCount
If g = 0 Then
MsgBox ("PAS DE BON EN ATTENTE D'EDITION")
Else
stDocName = "BONRETOUR"
DoCmd.OpenReport stDocName, acNormal
For i = 1 To g
Me.codevalidationbonretour = 2
Me.datevaleditionbon = Now()
DoCmd.GoToRecord , , acNext
Next i
End If
Me.Requery
Me.Refresh
Set db1 = Nothing
Set rst1 = Nothing
End Sub
N'y a-t-il pas une possibilité de faire un update des champs concernés
pour
rst1?
Merci d'avance
eric
Salut, je pense qu'à la place de : For i = 1 To g Me.codevalidationbonretour = 2 Me.datevaleditionbon = Now() DoCmd.GoToRecord , , acNext Next i je ferais un update du style:
UPDATE tlitige SET tlitige.codevalidationeditionbon = 2, tlitige.datevaleditionbon= Now() where(((tLitige.codevalidationaccordadv)=2) AND ((tLitige.codevalidationbonretour)=2)AND ((tLitige.codevalidationeditionbon)=1)) "
-- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues ! -------------------------------------------- "eric" a écrit dans le message de news:
Bonjour, je souhaite sur un formulaire,aprés impression mettre à jour 2 champs d'une table tlitige
un champs codevalidationeditionbon un champs datevaleditionbon le but etant que les enregistrements selectionnés prennent respectivement la valeur 2 pour codevalidationeditionbon now() pour datevaleditionbon j'ai tenté une codif en vba mais tout aprés plusieurs tentatives infructueuses je me tourne vers vous.
mon code Private Sub Commande32_Click() Dim db1 Dim rst1 Dim g, i Dim monsql1 Dim stDocName As String
stDocName = "BONRETOUR" monsql1 = "select* from tlitige where(((tLitige.codevalidationaccordadv)=2) AND ((tLitige.codevalidationbonretour)=2)AND ((tLitige.codevalidationeditionbon)=1)) " Set db1 = CurrentDb Set rst1 = db1.OpenRecordset(monsql1) rst1.MoveLast rst1.MoveFirst g = rst1.RecordCount
If g = 0 Then MsgBox ("PAS DE BON EN ATTENTE D'EDITION") Else stDocName = "BONRETOUR" DoCmd.OpenReport stDocName, acNormal For i = 1 To g Me.codevalidationbonretour = 2 Me.datevaleditionbon = Now() DoCmd.GoToRecord , , acNext Next i
End If
Me.Requery Me.Refresh
Set db1 = Nothing Set rst1 = Nothing End Sub
N'y a-t-il pas une possibilité de faire un update des champs concernés pour rst1? Merci d'avance eric