modifié: dupliqué: et modifié le nouveau record
Le
Guy du Lac
Bonjour,
j'utilise access 2003
Dans un formulaire, je dois modifier certains champs sur le premier record
puis créer un réplicat de ce record et modifier un champ du nouveau record.
cette procedure doit se faire pour l'ensemble des records du formulaire en
cliquant sur un bouton.
Quelque chose qui ressemble à cela
for compteur = 1 to eof()
modifier certain champs sur le record
dupliquer le record modifier
modifier un champ sur le record dupliqué
avancer au record suivant du formulaire
next for
j'ai peu d'expérience en programmation avec Access.
--
Merci,
Guy du Lac
j'utilise access 2003
Dans un formulaire, je dois modifier certains champs sur le premier record
puis créer un réplicat de ce record et modifier un champ du nouveau record.
cette procedure doit se faire pour l'ensemble des records du formulaire en
cliquant sur un bouton.
Quelque chose qui ressemble à cela
for compteur = 1 to eof()
modifier certain champs sur le record
dupliquer le record modifier
modifier un champ sur le record dupliqué
avancer au record suivant du formulaire
next for
j'ai peu d'expérience en programmation avec Access.
--
Merci,
Guy du Lac
Poser une question
les modifications sont-elles automatiques ou manuelles ?
si c'est pour tout faire manuellement, autant mettre un copier/coller pour
l'opérateur.
si tu as 5000 enregistrements tu fais comment ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
PowerShell, une nouvelle approche de l'administration de l'environnement
Windows
http://www.comscamp.com/Tracker/Red...587f7ef413
"Guy du Lac" news:
| Bonjour,
|
| j'utilise access 2003
| Dans un formulaire, je dois modifier certains champs sur le premier record
| puis créer un réplicat de ce record et modifier un champ du nouveau
record.
| cette procedure doit se faire pour l'ensemble des records du formulaire en
| cliquant sur un bouton.
|
| Quelque chose qui ressemble à cela
|
| for compteur = 1 to eof()
| modifier certain champs sur le record
| dupliquer le record modifier
| modifier un champ sur le record dupliqué
| avancer au record suivant du formulaire
|
|
| next for
|
| ......... j'ai peu d'expérience en programmation avec Access.
|
| --
| Merci,
| Guy du Lac
tout doit se faire automatiquement en pesant sur un bouton
--
Merci,
Guy du Lac
1-modification d'un enregistrement de la requête
2-cliquer sur le bouton dupliquer qui dupliquera et se positionnera sur
l'enregistrement créé.
3-modifier l'enregistrement créé.
4-revenir par un deuxième bouton sur l'enregistrement suivant l'ancien
dans les déclaratives en début de module:
Dim Ancien As Long
bouton duplication:
DoCmd.RunCommand acCmdSelectRecord
Ancien = Me.CurrentRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
bouton retour
DoCmd.GoToRecord , , acGoTo, Ancien + 1
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
PowerShell, une nouvelle approche de l'administration de l'environnement
Windows
http://www.comscamp.com/Tracker/Red...587f7ef413
"Guy du Lac" news:
| Bonjour Raymond,
| tout doit se faire automatiquement en pesant sur un bouton
| --
| Merci,
| Guy du Lac
|
Runtime Error 3323 (La requete update ne renvoie aucun enregistrement)
ma ligne de code est: Me.RecordSource = req3. 'voir routine ci-bas
Est-il possible de laisser executer la requete en envoyant le message
d'erreur dans une variable et comment on fait cela? tout de suite apres cette
requete je call une routine SQL correspondant aux valeurs du dit formulaire.
ce sql update permet de remettre certain champs à blanc me permettant de
faire un nouveau traitement
Encore merci pour ton aide, c'est vraiment apprécié
For compteur = 1 To Me.x
Me.Text93 = Me.Text93 - Me.tampon ' reduire aux-montant du
montant recu
DoCmd.RunCommand acCmdSelectRecord
ancien = Me.CurrentRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
DoCmd.GoToRecord , , acLast
[DESCRIPTION] = "encaisse"
Me.Text93 = 0
Me.auxilliaire = 0
Me.montant = Me.tampon
Me.laDATE = Now()
Me.compte_GL = 100
Me.ligne = " "
DoCmd.GoToRecord , , acGoTo, ancien + 1
Next compteur
req1 = "UPDATE [Grand-Livre] SET [Grand-Livre].auxilliaire = 0,
[Grand-Livre].tampon = 0 "
req2 = "WHERE ((([Grand-Livre].aux_montant)=0));"
req3 = req1 + req2
Me.RecordSource = req3
Call marequete
--
Merci,
Guy du Lac
mais seulement select.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
PowerShell, une nouvelle approche de l'administration de l'environnement
Windows
http://www.comscamp.com/Tracker/Red...587f7ef413
"Guy du Lac" news:
| merci pour les lignes de code, cela fonctionne très bien. Maintenant j'ai
un
| Runtime Error 3323 (La requete update ne renvoie aucun enregistrement)
|
| ma ligne de code est: Me.RecordSource = req3. 'voir routine ci-bas
|
| Est-il possible de laisser executer la requete en envoyant le message
| d'erreur dans une variable et comment on fait cela? tout de suite apres
cette
| requete je call une routine SQL correspondant aux valeurs du dit
formulaire.
| ce sql update permet de remettre certain champs à blanc me permettant de
| faire un nouveau traitement
|
| Encore merci pour ton aide, c'est vraiment apprécié
|
|
|
| For compteur = 1 To Me.x
|
| Me.Text93 = Me.Text93 - Me.tampon ' reduire aux-montant du
| montant recu
|
| DoCmd.RunCommand acCmdSelectRecord
| ancien = Me.CurrentRecord
| DoCmd.RunCommand acCmdCopy
| DoCmd.RunCommand acCmdPasteAppend
| DoCmd.GoToRecord , , acLast
| [DESCRIPTION] = "encaisse"
| Me.Text93 = 0
| Me.auxilliaire = 0
| Me.montant = Me.tampon
| Me.laDATE = Now()
| Me.compte_GL = 100
| Me.ligne = " "
| DoCmd.GoToRecord , , acGoTo, ancien + 1
|
| Next compteur
| req1 = "UPDATE [Grand-Livre] SET [Grand-Livre].auxilliaire = 0,
| [Grand-Livre].tampon = 0 "
| req2 = "WHERE ((([Grand-Livre].aux_montant)=0));"
| req3 = req1 + req2
| Me.RecordSource = req3
| Call marequete
|
| --
| Merci,
| Guy du Lac