Discussion :

[hgoss4]

Bonjour,

je suis en train de construire une BD devant être manipulé (ajout , edit ,...) par formulaire.

J'ai donc créé un formulaire permettant au user d'ajouter une ligne à une table.
L'ajout est déclenché par un bouton, mais lors de l'exécutions, ACCESS m'indique un code erreur 424 objet requis.

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
 
 
Private Sub BTN_VALIDER_AJOUT_Click()
Me.Requery
Dim req1 As String
 
 
req1 = "INSERT INTO SUIVI_EQUIPEMENT (Zone, FIN, Description, Code, PN, CMS, SN, MOD, CROQUIS, ATA, MODELE, Vendor )" _
& "VALUES (" & txt_ZONE.Text & "," & txt_FIN.Text & "," & txt_DESCRIPTION.Text & "," & LST_FOURNISSEUR.Text & "," & txt_PN.Text & "
," & txt_CMS.Text & "," & txt_SN.Text & "," & txt_MOD.Text & "," & txt_CROQUIS.Text & "," & txt_ATA.Text & "," &  txt_AVION.Text & "," & txt.VENDOR.Text & ");"
 
 
DoCmd.RunSQL req1
 
BTN_VALIDER_AJOUT.Enabled = False
EQUIPEMENT_AJOUT.Visible = False
 
 
 
End Sub

Les champs de texte sont tous créés, et la syntaxe à été vérifiée, et ma table autorise les champs vide pour tous les attributs.

Quelqu'un a -t-il un idée ?

[madefemere]

Bonjour,

La propriété Text est particulière dans son fonctionnement. Fais une recherche dans l'aide avec
Je te conseille d'utiliser plutôt la propriété Value pour faire référence aux valeurs contenues dans un contrôle ou carrément utiliser uniquement le nom du contrôle.

De plus, ton expression a priori ne prend pas en compte les types de données que tu as.
Il faut quotter correctement les arguments :
- entre guillemets ou apostrophes quand c'est du texte
- entre croisillons # si c'est une date
- sans quotes pour les variables numériques.

Si on considère que tous tes variables sont du texte, le code serait :

Code :

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

1
2
3
req1 = "INSERT INTO SUIVI_EQUIPEMENT (Zone, FIN, Description, Code, PN, CMS, SN, MOD, CROQUIS, ATA, MODELE, Vendor )" _
& "VALUES ('" & txt_ZONE & "','" & txt_FIN & "','" & txt_DESCRIPTION & "','" & LST_FOURNISSEUR & "','" & txt_PN & "','" & txt_CMS _
& "','" & txt_SN & "','" & txt_MOD & "','" & txt_CROQUIS & "','" & txt_ATA & "','" &  txt_AVION & "','" & txt.VENDOR & "');"

Utiliser un Debug.Print est une bonne méthode pour "vérifier" ce qu'on a dans une expression SQL.

Cordialement.

[hgoss4]

Merci pour ton aide,
effectivement la déformation du .net ma fait utiliser .text au lieu du .value.
Mais j'ai utilisé des textbox dans un select sans .value :

Code :

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

1
2
 
sql = "SELECT * FROM USER WHERE NOM = '" & Me.ID & "' AND MDP ='" & Me.MDP & "'AND POSTE = 'LOGISTIQUE';"

Après test il semblerait que ce soit un problème de définition des objets ( la textbox n'est pas reconnu dans le formulaire actif) , je vais tenter le nomformulaire.txt_nom) le nom formulaire remplaçant le ME...

Affaire à suivre

[hgoss4]

J'ai identifié l'erreur , mon control textbox est dans un sous formulaire, il faut donc appeler ce contrôle dans le formulaire ou se situe le sous formulaire.

déclaration de mes conteneurs :

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
 
Option Compare Database
Public ZONE As String
Public FIN As String
Public CMS As String
Public ATA As Integer
Public PN As String
Public SN As String
Public MODIF As String
Public CROQUIS As String
Public MODELE As String
Public AVION As String
Public DESCRIPTION As String
Public CODE As String
Public VENDOR As String

sub d'ajout :

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
22
23
24
25
26
27
28
29
 
Private Sub BTN_VALIDER_AJOUT_Click()
Me.Requery
Dim req1 As String
 ZONE = Forms("F_QUALITE").txt_ZONE.Form
 FIN = Forms("F_QUALITE").txt_FIN.Form
 CMS = Forms("F_QUALITE").txt_CMS.Form
 ATA = Forms("F_QUALITE").LST_ATA.Form
 PN = Forms("F_QUALITE").txt_PN.Form
 SN = Forms("F_QUALITE").txt_SN.Form
 MODIF = Forms("F_QUALITE").txt_MOD.Form
 CROQUIS = Forms("F_QUALITE").txt_CROQUIS.Form
 MODELE = Forms("F_QUALITE").txt_MODELE.Form
 AVION = Forms("F_QUALITE").txt_AVION.Form
 DESCRIPTION = Forms("F_QUALITE").txt_DESCRIPTION.Form
 CODE = Forms("F_QUALITE").LST_CODE.Form
 VENDOR = Forms("F_QUALITE").LST_CODE.Form
 
req1 = "INSERT INTO SUIVI_EQUIPEMENT (Zone, FIN, Description, Code, PN, CMS, SN, MOD, CROQUIS, ATA, MODELE, Vendor, AVION ) VALUES ('" & ZONE & "','" & FIN & "','" & DESCRIPTION & "','" & CODE & "','" & PN & "','" & CMS & "','" & SN & "','" & MODIF & "','" & CROQUIS & "','" & ATA & "','" & MODELE & "','" & VENDOR & "','" & AVION & "',);"
 
 
DoCmd.RunSQL req1
 
BTN_VALIDER_AJOUT.Enabled = False
AJOUT_EQUIPEMENT.Visible = False
 
 
 
End Sub

la synthaxe ne fonctionne pas , à l'éxécution j'ai : erreur 2465 , erreur définie par l'application ou par l'objet.

Connaissez vous la syntaxe pour pouvoir appeler un contrôle d'un sous formulaire dans le code du formulaire père ?

Même principe que pour de l'objet?

[hgoss4]

J'ai trouvé !!! la connerie le matin très tôt !

le code pour ceux que ca peut aider :

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
22
23
24
25
26
27
Private Sub BTN_VALIDER_AJOUT_Click()
 
Dim req1 As String
 
ZONE = Me!AJOUT_EQUIPEMENT.Form!txt_ZONE
 
 
 
 
 FIN = Me!AJOUT_EQUIPEMENT.Form!txt_FIN
 CMS = Me.AJOUT_EQUIPEMENT!txt_CMS
 ATA = Me.AJOUT_EQUIPEMENT!LST_ATA
 PN = Me.AJOUT_EQUIPEMENT!txt_PN
 SN = Me.AJOUT_EQUIPEMENT!txt_SN
 MODIF = Me.AJOUT_EQUIPEMENT!txt_MOD
 CROQUIS = Me.AJOUT_EQUIPEMENT!txt_CROQUIS
 MODELE = AVION
 
 DESCRIPTION = Me.AJOUT_EQUIPEMENT!txt_DESC
 CODE = Me.AJOUT_EQUIPEMENT!LST_FOURNISSEUR.Column(1)
 VENDOR = Me.AJOUT_EQUIPEMENT!LST_FOURNISSEUR.Column(0)
 
req1 = "INSERT INTO SUIVI_EQUIPEMENT (Zone, FIN, Description, Code, PN, CMS, SN, MOD, CROQUIS, ATA, MODELE, Vendor, AVION ) VALUES ('" & ZONE & "','" & FIN & "','" & DESCRIPTION & "','" & CODE & "','" & PN & "','" & CMS & "','" & SN & "','" & MODIF & "','" & CROQUIS & "','" & ATA & "','" & MODELE & "','" & VENDOR & "','" & AVION & "');"
 
 
DoCmd.RunSQL req1
...