Merci pour votre dévouement et votre "acharnement" ( si si, je pèse mes mots) à trouver une solution au probleme qui me ;::^$a@#{#[ la tête, et c'est peu dire, depuis un moment...
Bien vu, le bouton se trouve dans la form principale et l'action doit agir sur le SubForm Pour répondre à la question de LiR, je ne sais pas pour vous, mais moi, vos réflexions m'intéressent!!! au moins autant que vous semble t'il ...
à la question ADO ou DAO, DAO 3.6 est référencée, pas ADO 2.7.
Ceci dit, ce code fonctionne très bien tel quel dans d'autre Form ou je m'en sert pour reparcourir le recordset et dans un cas, pour updater des data... d'ou ma stupeur en ayant ce message d'erreur Bon, je vais faire honneur à vos réflexions et tester tout ça
encore merci
A+
Frédéric
"fth" <infosSPAM?@matloc.be> wrote in message news:
Bonjour, J'ai un petit soucis avec ceci:
a ubout d'un moment, j'a itoujours une erreur qui me dit runtime error '3020' update or cancelupdate without addnew or edit
il y a pourtant bien .edit ... ceci dit, j'ai l'impression qu'il 'boucle' plusieurs fois...
merci pour vos lumières,
Frederic
Dim Rst As Recordset Set Rst = Forms!FMainFmD!FSubMontDemDetail.Form.Recordset
With Rst If Not .BOF Then .MoveFirst
Do Until .EOF
.Edit .Fields("Rmidi").Value = Me!DefmidiMange .Fields("RmidiNbr").Value = Me!DefMidiNbr .Update 'End If
.MoveNext Loop End If End With
Bonsoir à tous,
Merci pour votre dévouement et votre "acharnement" ( si si, je pèse mes
mots) à trouver une solution au probleme qui me ;::^$a@#{#[ la tête, et
c'est peu dire, depuis un moment...
Bien vu, le bouton se trouve dans la form principale et l'action doit agir
sur le SubForm
Pour répondre à la question de LiR, je ne sais pas pour vous, mais moi, vos
réflexions m'intéressent!!!
au moins autant que vous semble t'il ...
à la question ADO ou DAO, DAO 3.6 est référencée, pas ADO 2.7.
Ceci dit, ce code fonctionne très bien tel quel dans d'autre Form ou je m'en
sert pour reparcourir le recordset et dans un cas, pour updater des data...
d'ou ma stupeur en ayant ce message d'erreur
Bon, je vais faire honneur à vos réflexions et tester tout ça
encore merci
A+
Frédéric
"fth" <infosSPAM?@matloc.be> wrote in message
news:eh02vNkeGHA.3640@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai un petit soucis avec ceci:
a ubout d'un moment, j'a itoujours une erreur qui me dit
runtime error '3020'
update or cancelupdate without addnew or edit
il y a pourtant bien .edit ...
ceci dit, j'ai l'impression qu'il 'boucle' plusieurs fois...
merci pour vos lumières,
Frederic
Dim Rst As Recordset
Set Rst = Forms!FMainFmD!FSubMontDemDetail.Form.Recordset
With Rst
If Not .BOF Then
.MoveFirst
Do Until .EOF
.Edit
.Fields("Rmidi").Value = Me!DefmidiMange
.Fields("RmidiNbr").Value = Me!DefMidiNbr
.Update
'End If
Merci pour votre dévouement et votre "acharnement" ( si si, je pèse mes mots) à trouver une solution au probleme qui me ;::^$a@#{#[ la tête, et c'est peu dire, depuis un moment...
Bien vu, le bouton se trouve dans la form principale et l'action doit agir sur le SubForm Pour répondre à la question de LiR, je ne sais pas pour vous, mais moi, vos réflexions m'intéressent!!! au moins autant que vous semble t'il ...
à la question ADO ou DAO, DAO 3.6 est référencée, pas ADO 2.7.
Ceci dit, ce code fonctionne très bien tel quel dans d'autre Form ou je m'en sert pour reparcourir le recordset et dans un cas, pour updater des data... d'ou ma stupeur en ayant ce message d'erreur Bon, je vais faire honneur à vos réflexions et tester tout ça
encore merci
A+
Frédéric
"fth" <infosSPAM?@matloc.be> wrote in message news:
Bonjour, J'ai un petit soucis avec ceci:
a ubout d'un moment, j'a itoujours une erreur qui me dit runtime error '3020' update or cancelupdate without addnew or edit
il y a pourtant bien .edit ... ceci dit, j'ai l'impression qu'il 'boucle' plusieurs fois...
merci pour vos lumières,
Frederic
Dim Rst As Recordset Set Rst = Forms!FMainFmD!FSubMontDemDetail.Form.Recordset
With Rst If Not .BOF Then .MoveFirst
Do Until .EOF
.Edit .Fields("Rmidi").Value = Me!DefmidiMange .Fields("RmidiNbr").Value = Me!DefMidiNbr .Update 'End If
