Discussion :

[Mariboo]

Bonjour !

Alors le problème du jour que je vous propose concerne un Insert Into en VB...
J'ai un insert into tout bête :

Code :

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

1
2
3
4
 
 
DoCmd.RunSQL "Insert into [LIVRAISON] select [Livraison temporaire].* 
from [Livraison temporaire];"

- La table [Livraison temporaire] est strictement identique à [LIVRAISON] ...
- En parcourant point par point, je vois que dans ma table [Livraison temporaire] j'ai une ligne de données qui correspond bien à la ligne que j'ai entrée dans mon formulaire....

- CEPENDANT, Access me génère l'erreur suivante :
Erreur d'execution : Impossible de trouver le champ "Forms" auquel il est fait référence dans votre expression
Et il me surligne le Insert into ....

Comprends pas ...

Si quelqu'un a déjà eu ce genre de problème .. qu'il me fasse signe !

[pafi76]

Et en passant par une boucle ca te fait plus d'erreur ?
Juste pour savoir si tout marche bien ...

Code :

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

1
2
3
4
5
6
7
8
 
req="select * from [Livraison temporaire]"
set result=currentDb().openRecordset(req)
while not result.EOF
     req="insert into livraison values(result.Fields(1), ..........)"
     currentDb().Execute(req)
result.moveNext
wend

[Mariboo]

En faisant ça, il me surligne en jaune la ligne :

Code :

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

1
2
3
 
 
CurrentDb().Execute (req)

et il me dit : Erreur d'exécution 3000 : Erreur réservée (-1517); aucun message n'est assigné à cette erreur

j'ai tout écris comme il faut en vérifiant 3 fois ...

[pafi76]

copie moi le code de la requête "req" que tu a écrit juste au dessus de cette erreur stp

[Mariboo]

En faisant ça :

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
 
 
Set maBd = CurrentDb
Set requete = maBd.CreateQueryDef("", "Select * from [Livraison temporaire];")
Set table = requete.OpenRecordset()
While Not table.EOF
    Dim NLiv As String
    Dim DateLiv As Date
    Dim Trans As Integer
    Dim Palett As String
    Dim NDos As String
    NLiv = table.Fields(0).Value
    DateLiv = table.Fields(1).Value
    Trans = table.Fields(2).Value
    Palett = Nz(table.Fields(3).Value, "")
    NDos = table.Fields(4).Value
    req = "Insert into [LIVRAISON] values ('" & NLiv & "', '" & DateLiv & "', '" & Trans & "', '" & Palett & "', '" & NDos & "');"
    Debug.Print req
    CurrentDb().Execute (req)
    table.MoveNext
Wend

J'obtiens ceci au niveau du debug.print :

Code :

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

1
2
3
 
 
Insert into [LIVRAISON] values ('BL00001', '26/07/06', '1', '', 'OF00001');

Donc c'est bien les données que je veux insérer ... mais j'ai ce bug sur la ligne Currentdb().execute => - Erreur d'exécution 3000 : Erreur réservée (-1517); aucun message n'est assigné à cette erreur

[Muhad'hib]

Salut,

As tu essayer de faire un debug.print de ton SQL, de le coller dans une novelle requete (QBE) et d'executer cette requete ? (voir le tuto de Cafeine sur le debugage des requete en vba ici)

A+

[pafi76]

Deaj remplace currentDb() par maDb
ensuite je pense que c'est les dates qui bugs, elle ne doivent pas être entre côtes mais entre dièses (#)

Code :

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

1
2
3
4
 
 
req = "Insert into [LIVRAISON] values ('" & NLiv & "', #" & DateLiv & "#, '" & Trans & "', '" & Palett & "', '" & NDos & "');"
j

essaye comme ca

[Mariboo]

Non ...
mais arrêtons là les bidouillages !

ça ne viens ni du format, ni de la syntaxe, ni de rien du tout ! en faisant tout ce que vous m'avez dit et en faisant des tonnnes et des tonnes d'essais j'obtiens toujours la même erreur ... même en l'exécutant en QBE...

je pense que ça viens de ma table qui a dû s'abimer lors d'un plantage d'access .... je vais la supprimer et le reprendre .. on va bien voir..

[Mariboo]

Ben voilà ....

En supprimant la table Livraison temporaire et en la recréant ça marche ....

J'aurai dû faire ça depuis le début ...
c'est simple quand access te prend la tête : supprime et refait tout! et là ça marche !

C'est vraiment ....