[AC-2000] Probleme d'insertion de données en VBA [Résolu]

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

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

[jpcheck]

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

[jpcheck]

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 :

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

[jpcheck]

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?

[jpcheck]

en changeant la fonction d'appel de

Code :

Docmd.RunSQL

essaie de faire tourner avec

Code :

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