Discussion :

[bodtx]

Bonjour à tous.
Je viens ici car après avoir parcouru plusieurs exemples, j'ai un soucis que je ne comprends pas.

Je veux faire un bouton pour supprimer un enregistrement d'une table (je sais qu'on peut le faire avec un truc autogénéré mais je veux compléter la fonctionalité de ce bouton plustard)

voici le code de l'action:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Commande1_Click()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "delete from [DOCUMENTS EXTERNES] where [REFERENCE DOCUMENTS EXTERNES]='" & Me.txtRechAuteur & "' "
 
SQL = SQL & ";"
 
DoCmd.RunSQL SQL
 
End Sub

Impossible de récupérer la valeur Me.txtRechAuteur pourtant c'est une zone de texte du formulaire toute bête... il me claque une erreure 438 (methode non gérée, je suis un peu perdu.
txtRechAuteur apparait en complétion de Me donc je suppose que le champs est bien reconnu...

La fonction marche avec une valeur en dur.

Merci beaucoup

[Invité]

Salut,

Tu Delete quoi, et met .value à ton champ

Starec

[bodtx]

Re, bien le .value j'ai essayé mais il ne me le propose pas avec la completion. Si jamais je le met et que j'execute là il me sort que cette propriété n'existe pas

Code :

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

SQL = "delete from [DOCUMENTS EXTERNES] where [REFERENCE DOCUMENTS EXTERNES]='" & Me.txtRechAuteur.value & "' "

J'essaye d'effacer un enregistrement de la table [DOCUMENTS EXTERNES] dont la clé primaire (texte) est [REFERENCE DOCUMENTS EXTERNES] et qui est rentrée dans le champs txtRechAuteur du formulaire à la mano... voilà aussi bête que ca. Mais comme je débute en access et en VB... aie aie.

Sinon VB c le moyen le plus simple pour passer des paramètres de formulaires à des requetes je suppose

merci

[Invité]

Re

Déjà

Code :

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

1
2
 
Delete * ...

De plus, ta textbox est-elle dans le formulaire ou tu cliques sur le bouton ?

Starec

[hocine]

Salut
de quel type est Me.txtRechAuteur si c'est numérique
& Me.txtRechAuteur
Bonne chance.
Merci.

[bodtx]

Bon méa culpa, en fait Me.txtRechAuteur c'est le libellé collé devant la zone de saisie, je pensais avoir mis le bon nom pour la zone de saisie.. mais non

bref du coup voici la commande qui fonctionne:

Code :

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

SQL = "delete from [DOCUMENTS EXTERNES] where [REFERENCE DOCUMENTS EXTERNES]='" & Me.texte5 & "' "

désolé