Discussion :

[jarodCameleon]

Bonjour,

J'ai un probleme au niveau de l'enregistrement des donées d'un formulaire basé sur la table Avoir dans deux tables diffèrentes (Avoir, facture-avoir).

Les données s'enregistrent tres bien dans la table avoir avec tous les champs, mais pour la deuxième partie qui consiste à enregistrer juste le N°Avoir et le N°Facture dans la table facture-avoir, il enregistre que le N°Facture et la champ N°Avoir est vide dans la table facture-avoir.

Voici le code qui s'exécute derrière le bouton "sauvegarde avoir" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande146_Click()
    On Error GoTo Err_Commande146_Click
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.RunSQL "insert into [facture-avoir] ([N° de l' avoir], [N° Facture]) values ( " & Me.[N° de l' avoir] & ", " & Me.[N° Facture] & ");"
 
Exit_Commande146_Click:
    Exit Sub
 
Err_Commande146_Click:
    MsgBox Err.Description
    Resume Exit_Commande146_Click
 
End Sub

j'espère avoir été assez clair !!

Merci d'avance de votre aide.

[argyronet]

Bonjour,

Conseils:
Évite d'utiliser des commandes de menu pour exécuter une commande.
Nomme tes contrôles correctement
Tes noms de champ sont (très) loin d'être normalisés
Je te préconise un peu de lecture

Pour ton problème...
Et du fait que tu aies adopté une convention de nommage de tes champs non normalisée, tu rencontres des problèmes.
je pense que ta valeur issue de

Code :

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

N° de l' avoir

doit être plutôt

Code :

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

N° de l'avoir

et de façon normalisée

Code :

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

NoAvoir

Argy

[jarodCameleon]

Merci pour ta réponse et je suis tout à fait d'accord avec toi.

Je suis débutante en Access c'est vrai mais j'ai déjà fait de la modélisation Merise, donc N° de l' avoir m'a beaucoup perturbé au début.

Malheureusement je suis une stagiaire et je reprends une bdd qui a été réalisée par un intérimaire et comme le champ [N° de l' avoir] est lié à pas mal de requêtes j'ai évité de le renommer.

D'un autre coté mon tuteur ne veut pas que je touche à la structure de cette base.

Je vais lire la doc que tu m'a conseillé.

Merci bien.

[argyronet]

D'un autre coté mon tuteur ne veut pas que je touche à la structure de cette base.

Ca peut se comprendre mais tout de même, sur ce point conventionnel, tu peux dire à ton tuteur de réviser sa copie et de prendre des cours

Bref, il y a deux espaces dans ton script Insert et ça ma sauté aux yeux comme un coup de pied dans le d.......

Argy

[jarodCameleon]

hhhhh à ton avis je peux lui faire ce genre de remarque

Sinon pour mon problème j'ai enlevé les espaces dans le INSERT mais j'ais toujours le même problème. (Enfin j'espère que c'est les bons espaces qui sautent aux yeux comme un coup de pied dans le d...!!!!!!!)

Code :

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

DoCmd.RunSQL "insert into [facture-avoir] values (" & Me.[N° de l' avoir] & "," & Me.[N° Facture] & ");"

Merci.

[argyronet]

Humm, non, je parlais des espaces dans le nom du champ :
http://www.developpez.net/forums/d93...s/#post5277715

Mais peut-être me trompé-je...

Argy

[jarodCameleon]

Il y'a bien les deux espaces dans le champ [N° de l' avoir] et un seul dans [N° Facture].

Si tu as encore une idée je veux bien la tester.

[argyronet]

Eh bien c'est pire que je pensais...
Bref, tu peux effectuer ce test avec cette modif :

Code :

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

1
2
3
4
5
6
7
8
9
    If (Not IsNull(Me.[N° de l' avoir]) Or Len(IsNull(Me.[N° de l' avoir])) > 0) And IsNumeric(Me.[N° de l' avoir]) Then
        If (Not IsNull(Me.[N° Facture]) Or Len(IsNull(Me.[N° Facture])) > 0) And IsNumeric(Me.[N° Facture]) Then
            CurrentDb.Execute "insert into [facture-avoir] values (" & Me.[N° de l    ' avoir] & "," & Me.[N° Facture] & ");", dbFailOnError
        Else
            MsgBox "N° d'avoir requis !", vbExclamation
        End If
    Else
        MsgBox "N° de facture requis !", vbExclamation
    End If

Argy

[jarodCameleon]

Mon problème est résolu
Le champ [N° de l' avoir] est de type texte et donc il fallait mettre des simples côtes pour dire que c'est une chaîne de caractères.
Merci beaucoup!!

Bonne journée.

[LinC49]

J'ai le même souci actuellement, sauf que l'idée des côtes ne m'avance guère.
Si quelqu'un pouvais m'aider, voici mon code :

Code :

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

1
2
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.RunSQL "insert into [T_ConsultantSousTheme]([NC], [IDSousTheme]) values ( " & Me.[LstNC] & ", " & Me.[LstSousTheme] & ");"

Sachant que NC est de type texte et IDSousTheme de type numérique et les LstNC et LstSousTheme sont des liste déroulante


Merci d'avance

[argyronet]

Bonjour,

Les '' se placent autour des valeurs des type texte...

Code :

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

DoCmd.RunSQL "insert into [T_ConsultantSousTheme]([NC], [IDSousTheme]) values ( '" & Me.[LstNC] & "', " & Me.[LstSousTheme] & ");"

Argy