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 Eliminer même champ pour plusieurs registres

Eliminer même champ pour plusieurs registres

3 réponses
Avatar
Greg
Bonjour,

J'ai:
- 1 formulaire principal (Vue Formulaire unique) basé sur la table Famille
(IdFamille, TypePoints, PointsFamille)
- 1 sous formulaire (Vue feuille de données) basé sur la table Parents
(IdParent, IdFamille, PointsParent) Relation 1 a plusieurs entre Famille et
Parents

J'aimerais:
Effacer les données du champ "PointsParent" pour tous les registres
"IdParent" du même IdFamille lorsque dans le formulaire formulaire
principal, l'usager choisi la valeur 1 pour TypePoints.
J'ai essayé plusieurs procédés AfterUpdate du champ "TypePoints" mais sans
succés.

Merci d'avance

Bonne journée
----
Greg
Signaler un problème avec ce contenu

3 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
Greg
Je m'auto réponds, si ça peut servir à qqn:

Private Sub TypePoints_AfterUpdate()
On Error Resume Next

Dim mirst As DAO.Recordset
Set mirst = Forms![Famille]![Parents].Form.RecordsetClone

If Me!TypePoints = 2 Then

With mirst
.MoveFirst
While Not .EOF
.Edit
![PointsParents].Value = Null
.Update
.MoveNext
Wend
End With
mirst.Close

Forms![Famille]![Parents].Form![PointsParents].ColumnWidth = 1

Else

Forms![Famille]![Parents].Form![PointsParents].ColumnWidth = 1000

End If

End Sub

--
Bonne journée, soirée,...(a moi même)
------
Greg

"Greg" escribió en el mensaje
news:
Bonjour,

J'ai:
- 1 formulaire principal (Vue Formulaire unique) basé sur la table Famille
(IdFamille, TypePoints, PointsFamille)
- 1 sous formulaire (Vue feuille de données) basé sur la table Parents
(IdParent, IdFamille, PointsParent) Relation 1 a plusieurs entre Famille
et

Parents

J'aimerais:
Effacer les données du champ "PointsParent" pour tous les registres
"IdParent" du même IdFamille lorsque dans le formulaire formulaire
principal, l'usager choisi la valeur 1 pour TypePoints.
J'ai essayé plusieurs procédés AfterUpdate du champ "TypePoints" mais sans
succés.

Merci d'avance

Bonne journée
----
Greg




Avatar
3stone
Salut,

"Greg"
Je m'auto réponds, si ça peut servir à qqn:



Dans ce cas... ajouter :


mirst.Close



Set mirst = Nothing


serait plus prudent...

;-)



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Greg
En effet. merci pour cet ajout.

--
Bonne journée, soirée,...
------
Greg

"3stone" escribió en el mensaje
news:uvs1$
Salut,

"Greg"
Je m'auto réponds, si ça peut servir à qqn:



Dans ce cas... ajouter :


mirst.Close



Set mirst = Nothing


serait plus prudent...

;-)



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------