Discussion :

[yakudark]

Bonjour,

J'ai un soucis de code VBA avec mon projet.

Pour faire simple, voici mon projet de recherche par référence de vis, par référence de produit, par nom de vis et par référence de vis.
Le moteur de recherche se fait sur deux onglets. Un pour la recherche par nom (txt) et un autre pour la recherche par référence (numérique).

L'onglet txt à un filtre avec 5 choix et la possibilité de choisir entre nom de vis ou de produit et l'onglet nombre un seul filtre avec un choix entre référence de vis ou de produit.

Une zone de texte et un bouton de recherche avec le code VBA.



Quand j'utilise l'onglet "par référence" et le champ "component" et que je rentre la référence au hasard 100001, cela fonctionne. Il me trouve toutes les références de meubles qui contiennent cette vis.

Par contre si je cherche une référence de meuble ou dans l'onglet "par nom" un simple nom, il m'affiche cette erreur

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
Private Sub Commande23_Click()
Dim nomchamp As String
Listchamptxt.SetFocus
nomchamp = Listchamptxt.ItemData(Listchamptxt.ListIndex)
Txt.SetFocus
DoCmd.OpenForm "FR_VissEquiv" 'ouvrir le formulaire
 
If FiltreTxT.Value = 1 Then 'égal
 Forms!FR_VissEquiv.RecordSource = "select * from T_VissEquiv where " & nomchamp & _
  "=" & """" & Txt.Value & """" 'modifier la source de données
 ElseIf FiltreTxT.Value = 2 Then 'commence par
  Forms!FR_VissEquiv.RecordSource = "select * from T_VissEquiv where " & nomchamp & _
  " like '" & Txt.Text & "*'"
ElseIf FiltreTxT.Value = 3 Then 'se termine par
Forms!FR_VissEquiv.RecordSource = "select * from T_VissEquiv where " & nomchamp & _
" like '*" & Txt.Text & "'"
ElseIf FiltreTxT.Value = 4 Then 'contient
Forms!FR_VissEquiv.RecordSource = "select * from T_VissEquiv where " & nomchamp & _
" like '*" & Txt.Text & "*'"
ElseIf FiltreTxT.Value = 5 Then 'différent de
Forms!FR_VissEquiv.RecordSource = "select * from T_VissEquiv where " & nomchamp & _
"<>" & """" & Txt.Text & """"
End If
End Sub

Quelque soit le choix il y a une erreur sur toutes les lignes "Forms"

Je vous met le lien de mon projet téléchargeable ici https://mon-partage.fr/f/0usYSrIE/

J'espère avoir été compris dans mes propos et que je ne vous aurez pas embrouillé.

Merci d'avance pour toute aide que vous pourriez m'apporter.

Vivi

[marot_r]

Bonjour.

C'est à cause des blancs dans le nom de ton champ.

Par sécurité, toujours encadrer les noms de table, de requête ou de champ avec de cochet.

Ex :

Code :

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

"select [T_VissEquiv].* from [T_VissEquiv] where [T_VissEquiv].[" & nomchamp & "]=" & """" & Txt.Value & """"

Et personnellement j'aime bien préfixer mes champs par leur source. Dans du SQL simple cela ne change pas grand chose mais si ta requête est un peu longue et complexe, je trouve que cela aide à la rendre plus compréhensible.

Et il est recommandé pour les noms internes de se limiter aux lettres majuscules et minuscules non accentuées et non "décorées" (pas de cédille), aux chiffres et aux soulignés (_). Cela évite des bugs sournois.

A+

[yakudark]

Merkiii ! Ca fonctionne !!

Maintenant go pour l'améliorer ^^