Discussion :

[zoom61]

Ne serait-ce pas le nom du formulaire avec apostrophe qui causerait des problèmes dans le syntaxe ?

Normalement non car il est donné entre crochet.
Mais il est vrai, comme cité plus haut, qu'il est conseillé d'éviter ce genre de chose .

@+.

[DébutantAccess]

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

[minot83]

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

[DébutantAccess]

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

[zoom61]

Quel est le message d'erreur ?

@+.

[DébutantAccess]

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.

[zoom61]

Mais ce code à un endroit pour voir ce que cela donne :

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 & "');"

Ensuite contrôle que le code est correct.

@+.

[DébutantAccess]

J'ai mis le code dans un bouton sur click, même message :/ Même pas de msgbox

[zoom61]

Idem avec le code :

Msgbox Me.num_usager_GENERALE_ACTES.Value
Msgbox Me.nom_GENERALE_ACTES.Value
Msgbox Me.prenom_GENERALE_ACTES.Value

[DébutantAccess]

Même message, je ne comprend pas, ca viendrais de mes valeurs?
Je viens de vérifier, les champs sont les mêmes...

[zoom61]

Msgbox "INSERT INTO CONTACT_SORTIE (num_usager, nom, prenom) " & _
"VALUES ( " & Me.num_usager.Value & ", '" & Me.nom.Value & "', '" & Me.prenom.Value & "');"

[DébutantAccess]

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é

[zoom61]

Ton formulaire est ouvert !

[DébutantAccess]

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?

[zoom61]

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 & "');"

Copie le résultat et crée une requête pour l'exécuter...

[DébutantAccess]

Le résultat

INSERT INTO CONTACT_SORTIE (num_usager, nom, prenom) VALUES (2, Dupont, Louis)

une requête pour l'execution?

[zoom61]

Tu obtiens ça :

INSERT INTO CONTACT_SORTIE (num_usager, nom, prenom) VALUES (2, Dupont, Louis)

ou cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

INSERT INTO CONTACT_SORTIE (num_usager, nom, prenom) VALUES (2, 'Dupont', 'Louis')

@+.

[DébutantAccess]

le deuxième pardon.

[zoom61]

Tu as bien une table CONTACT_SORTIE, et qui contient bien les champs : num_usager, nom, prenom.

@+.

[DébutantAccess]

Oui oui, et d'autre champs mais je n'ai pas besoin de les remplir automatiquement.