Discussion :

[Izura]

Bonjour à tous,

J'aimerais pouvoir encoder des données dans différentes tables à l'aide d'un unique formulaire. Mon formulaire est actuellement assez basique:

- Un en-tête de formulaire affichant le titre et les explications

- Une série d'onglets (Données, Incorporation...)

Sous chaque onglet, on retrouve une série de zones de texte indépendantes

Exemples de zones de texte indépendantes de l'onglet "données":
Prénom:
NOM:

Exemple de zone de texte indépendante de l'onglet "incorporation":
Entité:

- Un pied de formulaire affichant un bouton.

Le bouton active une macro, elle-même activant une fonction.

C'est à ce stade que je rencontre des problèmes (et c'est malheureusement le stade le plus important).

La fonction que je tente de rédiger devrait idéalement envoyer les données dans différentes tables. J'ai cru comprendre que la fonction INSERT INTO / SELECT / FROM devrait me permettre ça... mais Access semble ne pas être d'accord.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function Enregistrer_Données_Nouvel_Agent()
INSERT INTO TABLETEST1 (NOMTEST, PRENOMTEST)
SELECT FORMULAIRETEST, (Nom:), (Prénom:)
FROM FORMULAIRETEST
 
INSERT INTO TABLETEST2, (ENTITETEST)
SELECT FORMULAIRETEST, (Entité:)
FROM FORMULAIRETEST
 
End Function

Les sites que je consulte indiquent parfois des parenthèses, parfois des crochets et je finis par ne plus savoir que mettre autour des champs que j'essaye de référencer.

Access semble considérer que, dans mon exemple, l'instruction INSERT INTO TABLETEST1 est incomplète...; il dit la même chose pour mon SELECT.

Voici dès lors, pour une âme charitable qui voudra bien m'éclairer pendant que je continue à chercher le pourquoi du comment, la liste de mes questions:

1) Pourrai-je effectivement copier des données écrites dans les champs de mon formulaire vers des tables de ma BDD?
2) Pourquoi mes instructions INSERT INTO et SELECT sont-elles incomplètes?
3) Ma manière de référencer les champs sources et cibles est-elle correcte? Si non, pourquoi (parenthèses? crochets? dénomination?)
4) Suis-je passé à côté d'une manière bien plus simple de procéder?

Et la question bonus, vers laquelle je pensais ne me tourner qu'après avoir réglé le reste:

5) Si dans TABLETEST1, j'ai un NuméroAuto servant de clé primaire... Comment faire pour que les enregistrements de mon formulaire reprennent, dans TABLETEST2, ce même numéro dans le champ ID (qui est, dans les tables secondaires, numérique)

D'avance, je vous remercie pour votre aide précieuse :-) En attendant, je continue bien entendu mes recherches... dès lors, même un simple lien vers une explication dont vous êtes sûrs du contenu me sera utile!

[Tofalu]

Vous ne pouvez pas procéder ainsi. La clause FROM définie la table Source de la requête. Il ne s'agit pas d'un formulaire.

Utilisez la syntaxe INSERT... INTO... VALUES en spécifiant la liste des contrôles concernés dans la partie VALUES

[Izura]

Ah! Réponse claire :-) Je teste de suite, merci!

[Izura]

Je ne dois pas l'utiliser comme il faut, j'ai toujours "erreur de syntaxe" ou "attendu: fin d'instruction" au niveau d'INSERT INTO...

Pour récapituler, est-ce que, dans mon code, je dois bien mettre:

Code :

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

En révision

[Tofalu]

Vous ne pouvez pas utiliser du SQL directement dans le VBA. Vous devez spécifier la chaine SQL à une méthode VBA capable de la transmettre au moteur de base de données.

Code :

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

1
2
3
4
5
6
 
Function NOMDELAFONCTION
 
Currentdb.Execute "INSERT INTO table values (""valeur 1"", ""valeur 2"")",dbFailOnError
 
End Function

[Izura]

D'acc, je pense avoir compris. Maintenant, le code est accepté par l'éditeur.

Code :

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

1
2
3
4
5
6
Function Enregistrer_Données_Nouvel_Agent()
Dim As String
 
CurrentDb.Execute "INSERT INTO [X_TABLETEST1].(Prénom:, Nom:) values (Forms!frmX_FORMUTEST!txtPrénom:, Forms!frmX_FORMUTEST!txtNom:)", dbFailOnError
 
End Function

Je ne peux cependant pas vérifier son fonctionnement car Access affiche "L'objet ne contient pas d'objet d'automatisation 'Enregistrer_Données_Nouvel_Agent'." lorsque j'active mon bouton-macro en bas du formulaire. Ce bouton est juste lié à une macro d'Access qui a pour seule action "ExécuterCode" et est liée au code listé ci-dessus...

Je débute, je débute... mais ça commence à rentrer! :-)

Edit: code en révision, j'essaye de faire référence au formulaire et à ses textbox à l'aide de "Me".

Code :

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

1
2
3
4
5
6
Function Enregistrer_Données_Nouvel_Agent()
Dim As String
 
CurrentDb.Execute "INSERT INTO [X_TABLETEST1].([Prénom:], [Nom:]) values (Me.textbox1, Me.textbox2)", dbFailOnError
 
End Function

Pas plus de succès avec ça...