Access copie partielle
Fermé
enlérga
-
30 mai 2008 à 13:40
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 - 15 juin 2008 à 11:28
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 - 15 juin 2008 à 11:28
A voir également:
- Access copie partielle
- Copie cachée - Guide
- Copie écran samsung - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie disque dur - Guide
- Copie rapide - Télécharger - Gestion de fichiers
7 réponses
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
30 mai 2008 à 19:38
30 mai 2008 à 19:38
Dans le module attaché au bouton qui copie, tu rajoutes pour chaque champ qui doit rester vide:
Me!NomDuChamp.Value = Null
Me!NomDuChamp.Value = Null
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
9 juin 2008 à 12:18
9 juin 2008 à 12:18
Tu vas dans les propriétés du bouton, tu affiches la procédure évenementielle Sur Clic, tu copies ce qui s'affiche et tu me le postes, ok? Je rajouterai ce qui manque.
Je ne peux pas faire un cours complet de VB Access ici. Un coup de pouce, je veux bien...
Je ne peux pas faire un cours complet de VB Access ici. Un coup de pouce, je veux bien...
Private Sub Commande50_Click()
On Error GoTo Err_Commande50_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Commande50_Click:
Exit Sub
Err_Commande50_Click:
MsgBox Err.Description
Resume Exit_Commande50_Click
End Sub
______________________________________________________________
Private Sub Commande51_Click()
On Error GoTo Err_Commande51_Click
DoCmd.Close
Exit_Commande51_Click:
Exit Sub
Err_Commande51_Click:
MsgBox Err.Description
Resume Exit_Commande51_Click
End Sub
______________________________________________________________
Private Sub Commande58_Click()
On Error GoTo Err_Commande58_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_Commande58_Click:
Exit Sub
Err_Commande58_Click:
MsgBox Err.Description
Resume Exit_Commande58_Click
End Sub
J'ai copié toute la page qui s'est affiché (ce que j'avais en fasse de moi était à partir du 3éme PRIVATE) !
Je t'aurais bien donné les champs à ne pas copier mais il en a au moins 15...
Tu m'éxpliquera juste comment faire avec un exemple !
Merci Bien c'est gentil !!
On Error GoTo Err_Commande50_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Commande50_Click:
Exit Sub
Err_Commande50_Click:
MsgBox Err.Description
Resume Exit_Commande50_Click
End Sub
______________________________________________________________
Private Sub Commande51_Click()
On Error GoTo Err_Commande51_Click
DoCmd.Close
Exit_Commande51_Click:
Exit Sub
Err_Commande51_Click:
MsgBox Err.Description
Resume Exit_Commande51_Click
End Sub
______________________________________________________________
Private Sub Commande58_Click()
On Error GoTo Err_Commande58_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_Commande58_Click:
Exit Sub
Err_Commande58_Click:
MsgBox Err.Description
Resume Exit_Commande58_Click
End Sub
J'ai copié toute la page qui s'est affiché (ce que j'avais en fasse de moi était à partir du 3éme PRIVATE) !
Je t'aurais bien donné les champs à ne pas copier mais il en a au moins 15...
Tu m'éxpliquera juste comment faire avec un exemple !
Merci Bien c'est gentil !!
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
9 juin 2008 à 15:05
9 juin 2008 à 15:05
Le Commande50 enregistre tes données, le Commande 51 ferme (le formulaire sans doute), c'est le 58 qui duplique.
(Enregistre puis copie puis colle par ajout, en fait)
Une fois que c'est ajouté il faut donc remettre les champs à blanc:
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Me!NomDuChamp1.Value = Null
Me!NomDuChamp2.Value = Null
etc etc etc...
(Enregistre puis copie puis colle par ajout, en fait)
Une fois que c'est ajouté il faut donc remettre les champs à blanc:
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Me!NomDuChamp1.Value = Null
Me!NomDuChamp2.Value = Null
etc etc etc...
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
9 juin 2008 à 17:11
9 juin 2008 à 17:11
Mets des crochets autour du nom de champ.
Merci avec les crochets ça marche.
Mais y'a un petit souci...pas dans la copie elle marche bien la copie, mais le truc c'est que quand tu copies ça crée une deuxième fiche mais j'aimerais bloquer la roulette pour pas faire défiler les fiches!!
J'explique:
Je sais pas si tu as deja remarqué, on a tendance à faire tourner la roulette de la souris pour faire descendre ou monter la page, mais dans un formulaire ça fais passer à la fiche suivante !! Donc on peut perdre l'endroit ou on travail si on a plein de fiches!!
C'est possible de bloquer la roulette sur les formulaires et que si il veut changer de fiche, l'utilisateur clic lui même sur la flèche??
Mais y'a un petit souci...pas dans la copie elle marche bien la copie, mais le truc c'est que quand tu copies ça crée une deuxième fiche mais j'aimerais bloquer la roulette pour pas faire défiler les fiches!!
J'explique:
Je sais pas si tu as deja remarqué, on a tendance à faire tourner la roulette de la souris pour faire descendre ou monter la page, mais dans un formulaire ça fais passer à la fiche suivante !! Donc on peut perdre l'endroit ou on travail si on a plein de fiches!!
C'est possible de bloquer la roulette sur les formulaires et que si il veut changer de fiche, l'utilisateur clic lui même sur la flèche??
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
10 juin 2008 à 09:57
10 juin 2008 à 09:57
J'ai déjà vu des posts là dessus, c'était compliqué, un peu. Il n'y a pas juste une option à cocher quelque part...
Voilà ce que 'avais trouvé...
http://www.self-access.com/access/grenier/acRedir.php?id=131
Voilà ce que 'avais trouvé...
http://www.self-access.com/access/grenier/acRedir.php?id=131
Salut,
Pourrais-tu m'expliquer cette expression: Me!NomDuChamp1.Value = Null
Que veut dire le : Me!
Merci
Pourrais-tu m'expliquer cette expression: Me!NomDuChamp1.Value = Null
Que veut dire le : Me!
Merci
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
15 juin 2008 à 11:28
15 juin 2008 à 11:28
Me! veut dire formulaire actif.
5 juin 2008 à 10:57
J'ai simplement créer un bouton sur le formulaire de cette maniére:
catégorie : " Opéations sur enreg." > Actions:" Dupliquer un enregistrement"
9 juin 2008 à 11:27
Pourrait tu me dire à quelle endroit on entre ce type d'éxpression??
Merci !!