Ouvrir deux formulaires simultanément sans passer par une macroFermé

Question

Bonjour, 
              Je souhaite à l'aide d'un bouton ouvrir 2 formulaires simultanément, sans passé par une macro mais VBA. Je m'explique, j'ai créé un formulaire et un sous-formulaire(qui est lui même créer a partir d'un autre formulaire). Je souhaite quand je clique sur un bouton j'ouvre le formulaire principale content des informations tandis le sous-formulaire qui est à l'intérieur restera vide qui . NB le sous formulaire et renvoie l'information dans une autre table. Je souhaite faire le code ainsi. Quand je clique sur le bouton je dis a VBA au code copie moi tous c'est informations dans un nouvelle enregistrement et ouvre moi le formulaire le sous-formulaire vide. Comme ça la base sera a moitié rempli et sous-formulaire servira pour le complété.
 Voici le lien d'une partie de ma base avec quelques informations que je pense que vous pouvez m'aider Merci d'avance


http://fromsmash.com/6284c94f-8d93-11e7-830d-0a39043893bc
Configuration: Windows / Internet Explorer 11.0

jordane45 · Answer

Bonjour,

1 - Tu nous dire vouloir le faire sans Macro ... mais en VBA ....  heu... VBA = MACRO !!*

2 - Ta question concerne ACCESS ... je la déplace donc dans le forum access ...

Huguo90 · Answer

Bonjour 
            Merci d'avoir répondu, J'avais oublié de dire un truc, si vous êtes entrain de faire le code. dans le bouton "FERMER", quand on dessus, tu dis. " Souhaitez-vous enregistrer les enregistrements? si OUI on enregistre si "NON" On supprime tous même les ce qu'on a copier sur dans le formulaire précédent. J'ai trouvé un truc sur Google, je suis dessus mais c'est compliqué je suis pas trop doué en access. 
Voici le lien:
https://www.developpez.net/forums/d22501/logiciels/microsoft-office/access/dupliquer-enregistrement-formulaire-sous-formulaire/

yg_be · Answer

bonjour,
je ne comprends pas ton explication.
tu n'as pas précisé les noms des formulaires impliqués ni le nom du bouton.

Huguo90 · Answer

Dsl, en effet j'ai pas trop expliquer,  c'est le bouton " Ajouter une personne".

Huguo · Answer

Je vous explique Le formulaire les entités sers a ouvrir tous les entités avec un select distinct" et formulaire "Personnes" sert a ouvrir tous les personnes "avec aussi un select distinct" donc quand on ouvre le formulaire les_entités " on clique sur le bouton ajouter une personnes je veux faire en sorte qu'il ouvre le formulaire "nouvelle personne" tous en reprenant tous les éléments du formulaire "les_entités avec le même siren de l'entreprise et les mêmes infos et qu'il ouvrir dans le formulaire "nouvelle_personne" le frm_personnes vide. Donc l'objectif c'est d'avoir dans la grande table "tables_entités et personnes" dans je clique sur le bouton "ajouter une personne" un nouveau enregistrement qui va être compléter par le formulaire " frm_personnes. Une fois enregistrer les informations de le formulaire "frm_personnes" la table sera complète.

Huguo90 · Answer

Important: Le bouton "ajouter une Entité sera pareil que "Ajouter une personne" Il suffit de m'aider avec le "ajouter personne et je pourrais le faire pour le reste 
Donc pour finir : 
Dans le formulaire "nouvelle personne" je souhaite quand je clique sur le bouton "Fermer" tous l'enregistrement que je voulais ajouter est supprimé. J'ai commencé a faire le code mais je suis bloqué s'il vous plait aide moi, Je dois faire une présentation du travail demain. Voici le lien de la base encore 
http://fromsmash.com/d40c8fbe-914c-11e7-830d-0a39043893bc

Huguo90 · Answer

Voici le code

Option Compare Database

Private Sub Cmdajout_Click() 'pour ajouter une personne
Dim Rst As dao.Recordset
Dim lng As Long
Dim str As String
Dim Type_Tiers As String
Dim Raison_sociale As String
Dim Catégorie_client As String
Dim SIREN As String
Dim Taille_du_tiers As String
Dim Numéro_Siret As String
Dim Marché As String
Dim Département As String
Dim Région As String
Dim Adresse As String
Dim Code_postal As String
Dim Ville As String
Dim Utilisateur_associe_a_la_relation As String
 
'On copie l'enregistrement "Element"
Set Rst = CurrentDb.openrecordset("table_des_entites_et_personnes1")
With rs
  .addnew
    'On copie les champs voulu:
    !Type_Tiers = Me!Type_Tiers
    !Raison_sociale = Me!Raison_sociale
    !Catégorie_client = Me!Catégorie_client
    !SIREN = Me!SIREN
    !Taille_du_tiers = Me!Taille_du_tiers
    !Numéro_Siret = Me!Numéro_Siret
    !Marché = Me!Marché
    !Département = Me!Département
    !Région = Me!Région
    !Adresse = Me!Adresse
    !Code_postal = Me!Code_postal
    !Ville = Me!Ville
    !Utilisateur_associe_a_la_relation = Me!Utilisateur_associe_a_la_relation
  .update
  .Bookmark = .LastModified
  lng = !NomChampCléPrimaire
End With

'Exécutez les détails de la commande en double ajoutent une requête qui sélectionne tous
'Détail des enregistrements contenant l'ID de commande stocké sous la forme
'Marquez la propriété et ajoutez-les à la table des détails avec
'L'OrderID de l'enregistrement du formulaire principal dupliqué.


'On copie les enregistrements "Détails"
str = "INSERT INTO table_des_entites_et_personnes1(Type_Tiers , Raison_sociale, Catégorie_client, SIREN,Taille_du_tiers, Numéro_Siret, Marché, Département, Région, Adresse, Code_postal, Ville ) " & _
"SELECT "table_des_entites_et_personnes1.Type_Tiers , table_des_entites_et_personnes1.Raison_sociale, table_des_entites_et_personnes1.Catégorie_client, table_des_entites_et_personnes1.SIREN,table_des_entites_et_personnes1.Taille_du_tiers, table_des_entites_et_personnes1.Numéro_Siret, table_des_entites_et_personnes1.Marché, table_des_entites_et_personnes1.Département, table_des_entites_et_personnes1.Région, table_des_entites_et_personnes1.Adresse, table_des_entites_et_personnes1.Code_postal, table_des_entites_et_personnes1.Ville " & _
"FROM table_des_entites_et_personnes1;"

DoCmd.RunSQL str

Forms!les_entites.Requery
 
DoCmd.GoToRecord , , acNewRec

Me.rev.SetFocus
DoCmd.OpenForm "frm_personne", , , , acFormAdd

End Sub


Private Sub Commande483_Click() 'pour fermer
If MsgBox("Valider la mise à jour ?", vbOKCancel) = vbCancel Then
            MsgBox "L'opération de mise à jour a été annulée", vbInformation
            Cancel = True ' annule l'opération
            Exit Sub
        And If
        Delete table_des_entites_et_personnes1(Type_Tiers , Raison_sociale, Catégorie_client, SIREN,Taille_du_tiers, Numéro_Siret, Marché, Département, Région, Adresse, Code_postal, Ville ) " & _
"SELECT "table_des_entites_et_personnes1.Type_Tiers , table_des_entites_et_personnes1.Raison_sociale, table_des_entites_et_personnes1.Catégorie_client, table_des_entites_et_personnes1.SIREN,table_des_entites_et_personnes1.Taille_du_tiers, table_des_entites_et_personnes1.Numéro_Siret, table_des_entites_et_personnes1.Marché, table_des_entites_et_personnes1.Département, table_des_entites_et_personnes1.Région, table_des_entites_et_personnes1.Adresse, table_des_entites_et_personnes1.Code_postal, table_des_entites_et_personnes1.Ville " & _
"FROM table_des_entites_et_personnes1;"
End Sub

Ouvrir deux formulaires simultanément sans passer par une macro

7 réponses

Discussions similaires

Newsletters