Probleme d'insertion de données en VBA

Version imprimable

Bonjour à tous,

Voila, j'ai un script qui m'insere des données dans diverses tables, cependant, une de mes requete d'insertion ne fonctionne pas (la deuxieme ci-dessous)
Code:

1 2 3 4 5 6 7 8 9 ... if Not Cells(i, T0) Is Nothing Then MType = 4 MInterface = "No" DoCmd.RunSQL "Insert into M values (" & IdM & ", " & MType & ",'" & MInterface & "', " & IdS & "," & IdNe & "," & IdTr & ", " & MLP & ")" DoCmd.RunSQL "Insert into LkEqptBPM values (" & IdM & "," & IdP & "," & IdEqB & ")" IdM = IdM + 1 End If ...
Pourtant, lors de l'éxécution de la macro, aucun message d'erreur n'apparait.
J'ai vérifier mes champs (qui sont entier Long) et mes variable (des integer), mais même en changeant mes variables en Long rien ne changent et ma table reste vide.

Votre aide est la bienvenue

25/05/2011, 10h23
Jean-Philippe André

salut,

peux-tu nous afficher le contenu sql qui est alors execute stp ?
25/05/2011, 10h31
Tydher

Que veux-tu dire par

Citation:

...le contenu SQL...

?

Est-ce la valeur des variables qui sont censé être inserer dans la table?

Si c'est la cas, voila un exemple :

Requete 1
IdM = 2
MType = 4
MInterface = No
IdS = 1
IdN = 1
IdT = 0
MLP = 0

Requete 2
IdM = 2
IdP = 1
IdEqB = 1
25/05/2011, 10h39
Jean-Philippe André

:koi:
et n'est-il pas possible de placer avant tes values la liste de tes colonnes, histoire de bien preciser dans quel ordre tu inseres tes valeurs ?
25/05/2011, 10h44
Tydher
J'ai ajouté les colonnes en début de requete SQL :
Code:

1 2 3 4 ... DoCmd.RunSQL "Insert into LkEqptBPM(IDM, IDP, IDEQUIPMENTB) values (" & IdM & "," & IdP & "," & IdEqB & ")" ...
Mais j'ai hélas toujours le même résultats ...
25/05/2011, 10h46
Jean-Philippe André

Ok,
y a-t-il a ce moment la des cles dans ta table qui font que tu ne peux inserer de doublons ?
25/05/2011, 10h50
Tydher

Sur la propriété "Indexé" de chacun de mes trois champs, il y a la valeur NON de selectionné !

Je devrais changer cette valeur?
25/05/2011, 11h08
Jean-Philippe André

:calim2:

en changeant la fonction d'appel de

Code:

Docmd.RunSQL

essaie de faire tourner avec

Code:

Currentdb.Execute
25/05/2011, 11h09
Tydher

J'ai modifié la valeur de la propriété "Indexé".

En la passant sur Oui, sans doublons je n'avais qu'un seul enregistrement dans ma table

En la passant sur Oui, avec doublons tout mes enregistrements sont inserer.

Bizzare alors que je n'ai pas de doublons

Merci beaucoup en tout cas :ccool:

EDIT : J'ai tenté avec ta solution de

Citation:

currentDB.Execute

Le résultat et le même que précédement, aucun enregistrement ...