Bonjour à tous les deux; je vous expose le tout afin de bien tout reprendre et voir si vous pouvez m'aider car la je n'en peux plus :S.
J'ai deux tables: GENERALE_ACTE et CONTACT_SORTIE; toutes les deux comportent plusieurs champs dont les trois que je veux qui sont: num_usager; nom; prenom
Afin de remplir les tables j'ai deux formulaires basés sur deux requêtes différentes: "Formulaire acte usager" (la table GENRALE_ACTE y est attachée) et "Formulaire de sortie" (idem mais pour la table CONTACT_SORTIE).
Il faudrait que lorsque je rentre le nom et prenom de l'usager (le num et un NuméroAuto) les trois informations se rentrent automatiquement dans la table CONTACT_SORTIE afin que chaque usager soit présent dans les deux tables (et donc visibles dans le "Formulaire de sortie".
Comme cité préalablement, j'ai donc pensé à une requête INSERT INTO dans le "Formulaire acte usager" qui se déclencherait à la sortie du formulaire.
Le problème: Je n'arrive pas a trouvé la bonne syntaxe de cette requête, je ne sais pas non plus si l'action de quitter le formulaire et la bonne. Besoin de vous là, vraiment... :/
Merci d'avance
Bonsoir à tous,
suite à notre petite discussion sur le chat
essaie ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private Sub Form_Close() DoCmd.RunSQL = "INSERT INTO CONTACT_SORTIE (num_usager , nom, prenom) " & _ "VALUES ( " & Me.GENERALE_ACTES.num_usager.value & ", '" & Me.GENERALE_ACTES.nom.value & "', '" & Me.GENRALE_ACTES.prenom.value & "');" End Sub
J'ai essayé ton code mais cela ne fonctionne pas :/. Je l'ai mis sur "après mise à jour" et j'ai renommé certain champs pour éviter les conflits, ca donne ça mais sans succès:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private Sub Form_AfterUpdate() DoCmd.RunSQL = "INSERT INTO CONTACT_SORTIE (num_usager, nom, prenom) " & _ "VALUES ( " & Me.num_usager_GENERALE_ACTES.Value & ", '" & Me.nom_GENERALE_ACTES.Value & "', '" & Me.prenom_GENERALE_ACTES.Value & "');" End Sub
Quel est le message d'erreur ?
@+.
Bonjour zoom61 =);
Cette application a été arrêtée à cause d'une erreur d'exécution.
Elle ne peut pas continuer et va être fermée.
Mais ce code à un endroit pour voir ce que cela donne :
Ensuite contrôle que le code est correct.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Msgbox "INSERT INTO CONTACT_SORTIE (num_usager, nom, prenom) " & _ "VALUES ( " & Me.num_usager_GENERALE_ACTES.Value & ", '" & Me.nom_GENERALE_ACTES.Value & "', '" & Me.prenom_GENERALE_ACTES.Value & "');"
@+.
J'ai mis le code dans un bouton sur click, même message :/ Même pas de msgbox
Idem avec le code :
Msgbox Me.num_usager_GENERALE_ACTES.Value
Msgbox Me.nom_GENERALE_ACTES.Value
Msgbox Me.prenom_GENERALE_ACTES.Value
Même message, je ne comprend pas, ca viendrais de mes valeurs?
Je viens de vérifier, les champs sont les mêmes...
Msgbox "INSERT INTO CONTACT_SORTIE (num_usager, nom, prenom) " & _
"VALUES ( " & Me.num_usager.Value & ", '" & Me.nom.Value & "', '" & Me.prenom.Value & "');"
__________________
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Msgbox Me.num_usager_GENERALE_ACTES.Value Msgbox Me.nom_GENERALE_ACTES.Value Msgbox Me.prenom_GENERALE_ACTES.Value
N'oubliez pas le Tag afin de faciliter la recherche, et en votant ou cela permet de mieux cibler la recherche.
C'est en parvenant à nos fins par l'effort, en étant prêt à faire le sacrifice de profits immédiats en faveur du bien-être d'autrui à long terme, que nous parviendrons au bonheur caractérisé par la paix et le contentement authentique. [Dalaï Lama]
Je ne réponds pas aux messages privés s'ils sont liés à une question du forum
Ton msgbox apparait, lorsque j'ai renommé mes champs j'avais fait une erreur d'ortographe, que j'ai vite corrigé mais ce Access avait gardé en mémoire la faute et ne reconnaissait pas le champs --'. Je crois que ca va fonctionné
Ton formulaire est ouvert !
Ton message est OK, il m'affiche mes valeurs, en revanche toujours le message d'erreur pour ce qui est de l'INSERT INTO, comment ça mon formulaire est ouvert?
Copie le résultat et crée une requête pour l'exécuter...Msgbox "INSERT INTO CONTACT_SORTIE (num_usager, nom, prenom) " & _
"VALUES ( " & Me.num_usager_GENERALE_ACTES.Value & ", '" & Me.nom_GENERALE_ACTES.Value & "', '" & Me.prenom_GENERALE_ACTES.Value & "');"
Le résultat
INSERT INTO CONTACT_SORTIE (num_usager, nom, prenom) VALUES (2, Dupont, Louis)
une requête pour l'execution?
Tu obtiens ça :
ou cela :INSERT INTO CONTACT_SORTIE (num_usager, nom, prenom) VALUES (2, Dupont, Louis)
@+.
Code : Sélectionner tout - Visualiser dans une fenêtre à part INSERT INTO CONTACT_SORTIE (num_usager, nom, prenom) VALUES (2, 'Dupont', 'Louis')
Tu as bien une table CONTACT_SORTIE, et qui contient bien les champs : num_usager, nom, prenom.
@+.
Oui oui, et d'autre champs mais je n'ai pas besoin de les remplir automatiquement.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager