Discussion :

[glougloup]

Bonjour à tous,

Je vous expose mon problème :

J'ai dans un formulaire un sous formulaire dont un des champs affiche automatiquement des données en fonction des choix faits dans le formulaire.

Je souhaite cependant pouvoir supprimer cette valeur si je clique dans son champ.

Voici le code que j'ai tenté d'utiliser sans succès :

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
Public Sub Essai_de_traction_Click()
 
Dim db As Database
Dim rs As Recordset
Dim rech1 As Single
rech1 = Forms.IDENTIFICATION.ENSEMBLE![Index table ensemble].Value
Set db = CurrentDb()
Set rs = db.OpenRecordset("ENSEMBLE")
rs.FindFirst ("[Index table ensemble] ='" & rech1 & "'")
rs.Edit
rs![Essai de traction] = ""
rs.Update
 
Me.Refresh
End Sub

Mais j'ai l'erreur suivante qui apparait :
Erreur d'exécution '3464'
Type de données incompatible dans l'expression du critère.

et il me surligne en jaune la ligne qui commence par "rs.Findfirst..."

Je précise que rech1 est une valeur numérique.

Je vous remercie d'avance pour votre aide.

p.s. : Inutile de vous préciser que je ne suis pas un grand expert de vba

[marot_r]

La solution au problème que tu mentionnes est

Code :

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

rs.FindFirst ("[Index table ensemble] =" & rech1)

quand tu as affaire à un numérique il ne faut pas de délimteurs de chaîne de caractères. De même si tu as une date aors il convient de mettre # autours.

Code :

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

rs.FindFirst ("[UnChampDate] =#" & format(rech1,"yyyy-mm-dd" & "#")

le format n'est pas indispensable mais il lève complétement l'ambiguité sur le format de la date. En effet access se mélange parfois entre le format français (DD-MM-YYYY) et américain (MM-DD-YYYY) lorsque la date est du type 01/11/2010.

Pour ton problème d'effacement je te suggère la solution suivante : remplace tout ton code par

Code :

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

Me.[Index table ensemble]=""

qui va faire exactement la même chose.

Autre suggestion évite les espaces, les accents, les caractères spéciaux dans tes noms d'objets Access (champs, requête, tables, formulaire ou état). Utilise simplement des lettres et/ou des chiffres et/ou le _.

Exemple : Index table ensemble pourrait être IndexTableEnsemble ou Index_table_ensemble.

A+

[glougloup]

Je te remercie.
Pour la 2ème solution que tu me proposes, elle ne peut pas s'appliquer dans mon cas, car c'est [Essai de traction] que je veux supprimer.
Je récupère la valeur [Index table ensemble] dans le formulaire pour retrouver dans la table pour trouver l'enregistrement dont je veux effacer la valeur de [Essai de traction]. Après mon code n'est peut être le plus simple...

Encore merci.