Discussion :

[Tydher]

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 :

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

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

[Jean-Philippe André]

salut,

peux-tu nous afficher le contenu sql qui est alors execute stp ?

[Tydher]

Que veux-tu dire par

...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

[Jean-Philippe André]

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 ?

[Tydher]

J'ai ajouté les colonnes en début de requete SQL :

Code :

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

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 ...

[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 ?

[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?

[Jean-Philippe André]

en changeant la fonction d'appel de

Code :

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

Docmd.RunSQL

essaie de faire tourner avec

Code :

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

Currentdb.Execute

[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

EDIT : J'ai tenté avec ta solution de

currentDB.Execute

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