Discussion :

[dams95190]

Bonjour à tous,

J'ai plusieurs tables, 12 au total.

J'ai un formulaire général pour noter des infos, et je voudrai donc choisir dans quelle table je veux enregistrer ces differentes infos.

Je suis débutant donc si vous avez un tuto, je suis preneur , j'ai recherché mais pas du tout trouvé.

Pour séléctionner mes tables je passe par une zone de liste déroulante ou j'ai mis mes tables par défaut.


Merci à tous

[Dolphy35]

Salut,

Intérresse toi au SQL

Le Langage SQL appliqué à Access

Dolphy

[dams95190]

ok
Mais je suppose que je ne peux pas écrire en direct les requetes SQL?

Il doit falloir déclarer des choses??

[Dolphy35]

Salut,

il ne faut rien déclarer pour utiliser le SQL


exemple: (requête ajout)

Code :

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

DoCmd.RunSQL ("INSERT INTO <NomTable> (<Champ>, <Champ2>…..) VALUES (<Valeur1>, <Valeur2>….)")

ce code ajoute un nouvel enregistrement dans la table citée. Donc le principe est de modifier ta table en fonction de ta sélection dans ton form.

la chaîne SQL est une chîne de caractères (string) donc il t'est possible de la construire cette chaîne en différente étapes

Dolphy

[dams95190]

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim strTable As String, strField As String, strCriteria As String, strSql As String
    Dim Criter As Variant
 
strTable = Me.ch_table 'recupère le nom de ma table
    strField = Me.ch_Opérateur & Me.ch_Modèle & Me.ch_Numéro & Me.ch_U
    ' récupére le nom de mes champs
 
    DoCmd.RunSQL ("INSERT INTO strTable (Me.ch_Opérateur,Me.ch_Modèle,Me.ch_Numéro,Me.ch_U) VALUES (Me.ch_Opérateur,Me.ch_Modèle,Me.ch_Numéro_I,Me.ch_U)")

Evenement géer lors d'un clic sur bouton et je pensais à cela comme code pour débuter.

[Dolphy35]

Salut,

ton code n'est pas bon , si tu veux mettre des variables dans ton code il faut sortir de ta chaine de texte :

Code :

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

DoCmd.RunSQL ("INSERT INTO " & strTable & "(" & Me.ch_Opérateur & "," & Me.ch_Modèle & "," & Me.ch_Numéro & "," & Me.ch_U & ") VALUES (" & Me.ch_Opérateur & "," & Me.ch_Modèle & "," & Me.ch_Numéro_I & "," & Me.ch_U & ")")

Dolphy

[dams95190]

Est ce que je suis obligé de mettre le champ

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
Private Sub bo_Enregistrer_Click()
On Error GoTo Err_bo_Enregistrer_Click
 
Dim strTable As String, strField As String, strCriteria As String, strSql As String
    Dim Criter As Variant
 
    strTable = Me.ch_table 'recupère le nom de ma table
 
    DoCmd.RunSQL ("INSERT INTO " & strTable & "(" & Me.ch_Opérateur & "," & Me.ch_Modèle & "," & Me.ch_Numéro & "," & Me.ch_U & ") VALUES (" & Me.ch_Opérateur & "," & Me.ch_Modèle & "," & Me.ch_Numéro_I & "," & Me.ch_U & ")")   
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_bo_Enregistrer_Click:
    Exit Sub
 
Err_bo_Enregistrer_Click:
    MsgBox Err.Description
    Resume Exit_bo_Enregistrer_Click
 
End Sub

La ca doit etre bon?

[dams95190]

J'ai des erreurs avec le code dumessage précédent

Erreur est:
Erreur de compilation
Membre de méthode ou de données introuvable

lorsque je clic sur entrée
la flèche jaune et le surlignage pointe sur -> Private Sub bo_Enregistrer_Click()
Et sur fond bleu j'ai -> Me.ch_Modèle

Quelle erreur je dois traiter en priorité, l'erreur bleu est-elle une erreur??

Merci

[dams95190]

Est-ce que cela peut résoudre mon probleme...

http://support.microsoft.com/kb/465997/fr

Si oui comment faire?

[Dolphy35]

Salut,

Enlève ta gestion d'erreur pour voir cela bloque.

[dams95190]

Bonjour

Comment est-ce que l'on l'enleve???

[dams95190]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub bo_Enregistrer_Click()
 
'On Error GoTo Err_bo_Enregistrer_Click'
 
Dim strTable As String, strField As String, strCriteria As String, strSql As String
    Dim Criter As Variant
 
    strTable = Me.ch_table 'recupère le nom de ma table
 
    DoCmd.RunSQL ("INSERT INTO " & strTable & "(" & Me.ch_Opérateur & "," & Me.ch_Modèle & "," & Me.ch_Numéro & "," & Me.ch_U & ") VALUES (" & Me.ch_Opérateur & "," & Me.ch_Modèle & "," & Me.ch_Numéro_I & "," & Me.ch_U & ")")
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_bo_Enregistrer_Click:
    Exit Sub
 
Err_bo_Enregistrer_Click:
    MsgBox Err.Description
    Resume Exit_bo_Enregistrer_Click
 
End Sub

Est-ce que cela le fait?

[Dolphy35]

Salut,

Maintenant où se situe l'erreur ?

Dolphy

[dams95190]

toujours pareil,

memes erreurs,

.ch_Modèle st sur fond bleu, est-ce que c'est une erreur ou pas??

[Dolphy35]

Salut,

ceci est une erreur de compilation avec le débogueur, que te dit le débogueur lors de la compilation ?

ch_Modèle existe ?

Dolphy

[dams95190]

ch_modèle existe

C'est toujours la meme erreur que cité precedemment*


voila si tu as une solution