Discussion :

[glooping]

Bonjour,
Je souhaite savoir si dans une donnée, il existe une lettre précise comment faire?
Par exemple, lire la référence "Analyse" pour voir si pour l'enregistrement n°3 elle contient la lettre A.
Merci

[nico84]

Bonjour,

Si j'ai bien compris c'est possible avec l'instruction like :

Code :

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

select * from matable where monchamp like '*A*'

(toutes les lignes ou monchamp contient A quelquepart - * est le joker)

[glooping]

J'ai essayé le code et il me met : "Erreur de compilation : Attendu : Expression" en surlignant Select

Code :

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

1
2
3
4
5
Dim lettre As String
Dim num As Integer
Dim NumAff As String
num = Forms![Form_Mission_Amiante_Aff]![NumautoAff]
lettre = select * from Affaires where [NumautoAff]=num and [NumAff] like "a"

[pier.antoine]

Bonjour

Comme la variable "lettre" est une chaîne de caractère, il faut donc mettre des guillemets :

Code :

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

lettre = "select * from Affaires where [NumautoAff]=" & num

Pierre

[glooping]

Et comment obtenir le résultat du select, déjà?

[Invité]

Bonjour

Comme la variable "lettre" est une chaîne de caractère, il faut donc mettre des guillemets :

Code :

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

lettre = "select * from Affaires where [NumautoAff]=" & num

On ne peut lancer une instruction SQL de la sorte.

@glooping

Tes explications ne sont pas claires

Où se trouve ta donnée à tester ?

Dans une table ? Dans une variable ?

Philippe

[nico84]

Ah bah non ma réponse était pour du SQL

En VBA il faut plutot aller chercher du coté des fonctions sur chaine genre instr ou strcomp

[glooping]

Ma donnée à tester est dans une table qui si elle contient la lettre voulue désactivera des onglet dans le formulaire placé plus bas.

[Invité]

Ok

Il faut donc s'orienter vers la solution de nico84 avec InStr, voir , tu y trouveras toutes les informations nécessaires.

Le SQL est pour l'accès à des données sur les tables.

Philippe

[glooping]

Finalement je me suis trompé, la donnée à tester est dans une donnée d'une table ce qui m'a fait trompé est du à la zone de liste elle affiche une valeur que j'aurais pus tester mais renvoie au formulaire une autre valeur.

[glooping]

En utilisant une requête avec like je n'obtient aucune bonne réponse.

Code :

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

Select * From Affaires Where (((Affaires.NumAff) Like "A"));

[Edit]j'avais oublié les *[/Edit]