Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Boucle de Maj

Boucle de Maj

2 réponses
Avatar
Brucat
Bonjour,

Je dois mettre à jour 2 champs d'une table à partir d'un formulaire.

J'ai pour cela créer un bouton mais la mise à jour s'effectue uniquement sur
l'enregistrement en cours.
Comment modifier mon code pour que tous les enregistrements de la table se
mettent à jour.

Merci pour votre aide.

voici mon code :

If Me.Catégorie = "toto" Or Me.Catégorie = "titi" Then
Me.Recalc
Me.L1 = Nz(Me.LB / Me.SteS)
Me.L2 = Nz(Me.LB / M.SteS)
Me.L3 = Nz(Me.LV / Me.SteS)

ElseIf Me.Catégorie = "tutu" Then

If Not IsNull(Me.Societe) Then
Me.L1 = (Me.LB - Me.MS) / Me.SteS
Me.L2 = (Me.LV - Me.MVS) / Me.SteS
Else
Me.L1 = Nz(Me.NbP* DLookup("L", "Table1", "Reference = true"))
Me.L2 = Nz(Me.NbP * DLookup("LV", "Table1", "ReferenceV = true"))

Me.Recalc
End If
Else
Me.L1 = Nz(Me.NbP* DLookup("L", "Table1", "Reference = true"))
Me.L2 = Nz(Me.NbP * DLookup("LV", "Table1", "ReferenceV = true"))

Me.Recalc
Me.L1 = Me.MS
Me.L2 = Me.MVS

End If
Me.Refresh

End Sub
Signaler un problème avec ce contenu

2 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
Le Méruvien
bonjour, avec le bouton, lance une requette de maj !


"Brucat" a écrit dans le message de news:
ef88qt$ncf$
Bonjour,

Je dois mettre à jour 2 champs d'une table à partir d'un formulaire.

J'ai pour cela créer un bouton mais la mise à jour s'effectue uniquement
sur l'enregistrement en cours.
Comment modifier mon code pour que tous les enregistrements de la table se
mettent à jour.

Merci pour votre aide.

voici mon code :

If Me.Catégorie = "toto" Or Me.Catégorie = "titi" Then
Me.Recalc
Me.L1 = Nz(Me.LB / Me.SteS)
Me.L2 = Nz(Me.LB / M.SteS)
Me.L3 = Nz(Me.LV / Me.SteS)

ElseIf Me.Catégorie = "tutu" Then

If Not IsNull(Me.Societe) Then
Me.L1 = (Me.LB - Me.MS) / Me.SteS
Me.L2 = (Me.LV - Me.MVS) / Me.SteS
Else
Me.L1 = Nz(Me.NbP* DLookup("L", "Table1", "Reference = true"))
Me.L2 = Nz(Me.NbP * DLookup("LV", "Table1", "ReferenceV = true"))

Me.Recalc
End If
Else
Me.L1 = Nz(Me.NbP* DLookup("L", "Table1", "Reference = true"))
Me.L2 = Nz(Me.NbP * DLookup("LV", "Table1", "ReferenceV = true"))

Me.Recalc
Me.L1 = Me.MS
Me.L2 = Me.MVS

End If
Me.Refresh

End Sub



Avatar
Brucat
bonjour,

je n'arrive pas à lancer une requete de Maj car elle doit tenir compte de
plusieurs tables et de regroupement.

"Le Méruvien" a écrit dans le message de news:
4517b5f3$0$1938$
bonjour, avec le bouton, lance une requette de maj !


"Brucat" a écrit dans le message de news:
ef88qt$ncf$
Bonjour,

Je dois mettre à jour 2 champs d'une table à partir d'un formulaire.

J'ai pour cela créer un bouton mais la mise à jour s'effectue uniquement
sur l'enregistrement en cours.
Comment modifier mon code pour que tous les enregistrements de la table
se mettent à jour.

Merci pour votre aide.

voici mon code :

If Me.Catégorie = "toto" Or Me.Catégorie = "titi" Then
Me.Recalc
Me.L1 = Nz(Me.LB / Me.SteS)
Me.L2 = Nz(Me.LB / M.SteS)
Me.L3 = Nz(Me.LV / Me.SteS)

ElseIf Me.Catégorie = "tutu" Then

If Not IsNull(Me.Societe) Then
Me.L1 = (Me.LB - Me.MS) / Me.SteS
Me.L2 = (Me.LV - Me.MVS) / Me.SteS
Else
Me.L1 = Nz(Me.NbP* DLookup("L", "Table1", "Reference = true"))
Me.L2 = Nz(Me.NbP * DLookup("LV", "Table1", "ReferenceV = true"))

Me.Recalc
End If
Else
Me.L1 = Nz(Me.NbP* DLookup("L", "Table1", "Reference = true"))
Me.L2 = Nz(Me.NbP * DLookup("LV", "Table1", "ReferenceV = true"))

Me.Recalc
Me.L1 = Me.MS
Me.L2 = Me.MVS

End If
Me.Refresh

End Sub