Enregistrement avec requête SQL depuis un formulaire.

**TeoJyx** · 17/10/2012, 10h10

Salut à tous,

Après plusieurs heure de recherche, et ayant trouvé des cas similaire, mais pas de réponses, je m'en remet à vous.

J'ai un petit problème (certainement simpliste) avec accès.

En gros j'ai un formulaire qui doit me servir à rentrer des numéros de séries de machine dans une table "Machine" et associé cette machine a un client de la table "Client", pour ce faire une table "Suivi client" concorde le numéro d'ID_Machine et le numéro d'ID_Client présent dans leurs tables respectives.

Mon formulaire comprend donc des cases pour rentrer les numéros de séries, un menu déroulant avec mes clients et un bouton d'envoi.

La base du formulaire avec les cases des numéro de série a été faite avec l'assistant formulaire, du coup quand on clique sur le bouton d'envoi, la machine est bien créer dans la table Machine.

Maintenant ce que j'aimerais, c'est qu'après que la Machine est été créer, que les entré ID_Client et ID_Machine soit créer dans la table "Suivi client", pour ca je pensais faire à la suite de l'enregistrement une requête SQL qui sélectionnerai l'ID_Machine dans la table machine avec un numéro de série rentrer, l'enregistrerai dans une variable en vba, puis une requête SQL qui utiliserai la variable ID_Machine et l'ID_Client (récupérer du menu déroulant), qui créerai l'entré dans la table suivi client.

Pouvez vous m'aider a utiliser mes requête SQL dans l’éditeur VBA ? Je test plusieurs choses depuis un certains temps sans succès.

Merci de votre soutien,

Cordialement.

**zoom61** · 17/10/2012, 11h02

Salut,

Quelque chose comme cela te permettra de récupérer dans la variable ID_MACHINE :

Code :

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

1
2
3
4
5
6
7
8
9
SQL = "SELECT ID_MACHINE " _
    & "FROM TABLE_MACHINE " _
    & "WHERE NUMERO_SERIE = '" & FORMS!F_FORMULAIRE!NUMERO_SERIE.value & "';"
Set oSQL = CurrentDb.OpenRecordset(SQL)
    While Not oSQL.EOF
        ID_MACHINE = oSQL.Fields(0)
        oSQL.MoveNext
    Wend
Set oSQL = Nothing

@+.

**TeoJyx** · 18/10/2012, 09h39

Envoyé par zoom61

Salut,

Quelque chose comme cela te permettra de récupérer dans la variable ID_MACHINE :

Code :

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

1
2
3
4
5
6
7
8
9
SQL = "SELECT ID_MACHINE " _
    & "FROM TABLE_MACHINE " _
    & "WHERE NUMERO_SERIE = '" & FORMS!F_FORMULAIRE!NUMERO_SERIE.value & "';"
Set oSQL = CurrentDb.OpenRecordset(SQL)
    While Not oSQL.EOF
        ID_MACHINE = oSQL.Fields(0)
        oSQL.MoveNext
    Wend
Set oSQL = Nothing

@+.

Merci de tq réponse, je n'ai pas vraiment compris ton code, du coup j'ai copié pour voir ce que ca donnait, avec un MsgBox à la fin pour afficher la variable obtenu :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
SQL = "SELECT ID_Machine" _
    & "FROM Machines1" _
    & "WHERE Camera = '" & Me!Camera & "';"
Set oSQL = CurrentDb.OpenRecordset(SQL)
    While Not oSQL.EOF
        ID_machine = oSQL.Fiels(0)
        oSQL.MoveNext
    Wend
Set oSQL = Nothing
 
MsgBox (ID_machine)

j'obtient l'erreur : Erreur d'execution '3075':

Erreur de syntaxe (opérateur absent) dans l'expression "ID_MachineFrom Machines1Where Camera = 'test42'".

le debugeur me signale l'erreur dans la ligne :

Code :

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

1
2
 
Set oSQL = CurrentDb.OpenRecordset(SQL)

Merci

**zoom61** · 18/10/2012, 09h50

Cela devrait mieux fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
SQL = "SELECT ID_Machine " _
    & "FROM Machines1 " _
    & "WHERE Camera = '" & Me!Camera & "';"
Set oSQL = CurrentDb.OpenRecordset(SQL)
    While Not oSQL.EOF
        ID_machine = oSQL.Fiels(0)
        oSQL.MoveNext
    Wend
Set oSQL = Nothing
 
MsgBox (ID_machine)

Il faut un espace avant

" _

**TeoJyx** · 18/10/2012, 09h58

Merci encore de ta réponse

alors cette fois, j'ai une erreur : Erreur d'execution '3061' :

Trop peu de paramètres. 1 attendu.

Le debugeur me donne la même ligne.

**zoom61** · 18/10/2012, 10h01

Fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
SQL = "SELECT ID_Machine " _
    & "FROM Machines1 " _
    & "WHERE Camera = '" & Me!Camera & "';"
MsgBox SQL
Set oSQL = CurrentDb.OpenRecordset(SQL)
    While Not oSQL.EOF
        ID_machine = oSQL.Fiels(0)
        oSQL.MoveNext
    Wend
Set oSQL = Nothing
 
MsgBox (ID_machine)

Et que donne :

Code :

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

MsgBox SQL

**TeoJyx** · 18/10/2012, 10h03

Affichage de la requête SQL, puis même erreur que ci dessus.

**zoom61** · 18/10/2012, 10h05

Peux-tu me donner le résultat du

Code :

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

MsgBox SQL

**TeoJyx** · 18/10/2012, 10h10

Envoyé par zoom61

Peux-tu me donner le résultat du

Code :

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

MsgBox SQL

Pas sur d'avoir compris, enfin j'ai mis MsgBox SQL dans le code, et j'obtient :

SELECT ID_Machine FROM Machine1 WHERE Camera = 'test42';

puis

Erreur d’exécution '3061' : Trop peu de paramètres. 1 attendu.

Désolé si ce n’est pas ce que tu attend :/.

**zoom61** · 18/10/2012, 10h13

Si tu crées une requête avec le code suivant la requête fonctionne-elle ?

Code :

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

SELECT ID_Machine FROM Machine1 WHERE Camera = 'test42';

**TeoJyx** · 18/10/2012, 10h22

Envoyé par zoom61

Si tu crées une requête avec le code suivant la requête fonctionne-elle ?

Code :

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

SELECT ID_Machine FROM Machine1 WHERE Camera = 'test42';

Hum, j'avais oublier un "s" a ID_Machines, je me sent un peu bête du coup

Enfin du coup avec cette correction la rqt fonctionne bien.

Correction faite dans le code également, l’exécution m'affiche 2 fois:

SELECT ID_Machine FROM Machine1 WHERE Camera = 'test42';

puis une fenêtre vide.

**zoom61** · 18/10/2012, 10h29

Si tu refais le code suivant, cela donne quoi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
SQL = "SELECT ID_Machines " _
    & "FROM Machines1 " _
    & "WHERE Camera = '" & Me!Camera & "';"
Set oSQL = CurrentDb.OpenRecordset(SQL)
    While Not oSQL.EOF
        ID_machines = oSQL.Fiels(0)
        oSQL.MoveNext
    Wend
Set oSQL = Nothing
 
MsgBox "Valeur : " & ID_machines

**TeoJyx** · 18/10/2012, 10h45

Envoyé par zoom61

Si tu refais le code suivant, cela donne quoi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
SQL = "SELECT ID_Machines " _
    & "FROM Machines1 " _
    & "WHERE Camera = '" & Me!Camera & "';"
Set oSQL = CurrentDb.OpenRecordset(SQL)
    While Not oSQL.EOF
        ID_machines = oSQL.Fiels(0)
        oSQL.MoveNext
    Wend
Set oSQL = Nothing
 
MsgBox "Valeur : " & ID_machines

Affichage d'une MsgBox "Valeur : " seule, sans valeur ou autre texte.

**zoom61** · 18/10/2012, 10h50

Essaie cela et dis moi ce que tu obtiens dans le msgbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
SQL = "SELECT ID_Machines " _
    & "FROM Machines1 " _
    & "WHERE Camera = '" & Me!Camera & "';"
Set oSQL = CurrentDb.OpenRecordset(SQL)
Do Until oSQL.EOF
        Msgbox oSQL.Fiels(0)
        ID_machines = oSQL.Fiels(0)
        oSQL.MoveNext
    Loop
Set oSQL = Nothing
 
MsgBox "Valeur : " & ID_machines

Et que dois-tu obtenir ? Avec la requête "SELECT ID_Machine FROM Machine1 WHERE Camera = 'test42';"

**TeoJyx** · 18/10/2012, 10h56

Envoyé par zoom61

Essaie cela et dis moi ce que tu obtiens dans le msgbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
SQL = "SELECT ID_Machines " _
    & "FROM Machines1 " _
    & "WHERE Camera = '" & Me!Camera & "';"
Set oSQL = CurrentDb.OpenRecordset(SQL)
Do Until oSQL.EOF
        Msgbox oSQL.Fiels(0)
        ID_machines = oSQL.Fiels(0)
        oSQL.MoveNext
    Loop
Set oSQL = Nothing
 
MsgBox "Valeur : " & ID_machines

Et que dois-tu obtenir ? Avec la requête "SELECT ID_Machine FROM Machine1 WHERE Camera = 'test42';"

resultat : "Valeur :"

Je dervais obtenir l'ID de la Machine par rapport au numéro de série de la camera rentré dans le formulaire, par ailleurs avec ce dernier code la machine n'est pas créer dans la table Machines1.

**zoom61** · 18/10/2012, 11h03

C'est normal si la donnée n'est pas créée dans Machines1 que cela ne donne rien !!!

**TeoJyx** · 18/10/2012, 11h09

Envoyé par zoom61

C'est normal si la donnée n'est pas créée dans Machines1 que cela ne donne rien !!!

Certe c'est logique, enfin avec les précédent codes, l'entré se fessait bien
:s.

**zoom61** · 18/10/2012, 11h19

Il faut que tu rajoutes ce code juste après la création dans la table Machines1...

**TeoJyx** · 18/10/2012, 11h36

Envoyé par zoom61

Il faut que tu rajoutes ce code juste après la création dans la table Machines1...

Bon j'ai résolu le problème de l'entré dans la Tables Machines1, elle se fait par une macro, puis il y'a exécution du code. le résultat est toujours :

MsgBox "Valeur : "

**zoom61** · 18/10/2012, 11h44

Là, je ne vois plus ce que tu veux faire

Enregistrement avec requête SQL depuis un formulaire.

VBA Access

Discussions similaires

Partager

Partager