J'ai un formulaire avec un sous fomulaire type tableau=20
donc avec plusieurs lignes
Je voudrais, =E0 partir d'un bouton de commande sur le=20
formulaire principal, mettre =E0 false un champs pour=20
toutes les lignes du tableau et faire un test sur chaque=20
ligne
Je prefererai pas passer par une requ=EAte MAJ car je=20
voudrais mettre false, faire le test, passer =E0 la ligne=20
suivante...etc
Comment pui-je faire?
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
Rv
Salut,
On insère cette procédure dans un module standard
Sub majSousForm(objForm As Form) If objForm.RecordsetClone.EOF Then Exit Sub objForm.RecordsetClone.MoveFirst Do While Not objForm.RecordsetClone.EOF ' Mise à jour objForm.RecordsetClone.Edit objForm.RecordsetClone("nomDuChampsMaj") = -1 objForm.RecordsetClone.Update ' Test ... objForm.RecordsetClone.MoveNext Loop End Sub
Est sur l'événement click du bouton:
Private Sub txtMaj_Click() Call majSousForm(Me.NomDuSousform.Form) End Sub
A+
Rv
"dfcena" a écrit dans le message de news:2436d01c45f4b$0b93fb90$ Bonjour
J'ai un formulaire avec un sous fomulaire type tableau donc avec plusieurs lignes Je voudrais, à partir d'un bouton de commande sur le formulaire principal, mettre à false un champs pour toutes les lignes du tableau et faire un test sur chaque ligne Je prefererai pas passer par une requête MAJ car je voudrais mettre false, faire le test, passer à la ligne suivante...etc Comment pui-je faire?
Salut,
On insère cette procédure dans un module standard
Sub majSousForm(objForm As Form)
If objForm.RecordsetClone.EOF Then Exit Sub
objForm.RecordsetClone.MoveFirst
Do While Not objForm.RecordsetClone.EOF
' Mise à jour
objForm.RecordsetClone.Edit
objForm.RecordsetClone("nomDuChampsMaj") = -1
objForm.RecordsetClone.Update
' Test
...
objForm.RecordsetClone.MoveNext
Loop
End Sub
Est sur l'événement click du bouton:
Private Sub txtMaj_Click()
Call majSousForm(Me.NomDuSousform.Form)
End Sub
A+
Rv
"dfcena" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2436d01c45f4b$0b93fb90$a401280a@phx.gbl...
Bonjour
J'ai un formulaire avec un sous fomulaire type tableau
donc avec plusieurs lignes
Je voudrais, à partir d'un bouton de commande sur le
formulaire principal, mettre à false un champs pour
toutes les lignes du tableau et faire un test sur chaque
ligne
Je prefererai pas passer par une requête MAJ car je
voudrais mettre false, faire le test, passer à la ligne
suivante...etc
Comment pui-je faire?
Sub majSousForm(objForm As Form) If objForm.RecordsetClone.EOF Then Exit Sub objForm.RecordsetClone.MoveFirst Do While Not objForm.RecordsetClone.EOF ' Mise à jour objForm.RecordsetClone.Edit objForm.RecordsetClone("nomDuChampsMaj") = -1 objForm.RecordsetClone.Update ' Test ... objForm.RecordsetClone.MoveNext Loop End Sub
Est sur l'événement click du bouton:
Private Sub txtMaj_Click() Call majSousForm(Me.NomDuSousform.Form) End Sub
A+
Rv
"dfcena" a écrit dans le message de news:2436d01c45f4b$0b93fb90$ Bonjour
J'ai un formulaire avec un sous fomulaire type tableau donc avec plusieurs lignes Je voudrais, à partir d'un bouton de commande sur le formulaire principal, mettre à false un champs pour toutes les lignes du tableau et faire un test sur chaque ligne Je prefererai pas passer par une requête MAJ car je voudrais mettre false, faire le test, passer à la ligne suivante...etc Comment pui-je faire?
