[vba]recherche sur multichamp

Version imprimable

bonjour,

j ai un petit probleme au niveau d un code.Je vous presente ma table acess avec mes champs.
c est une table nommer archives avec les cjhamps suivant
enregistrement,N° Outil,N° outil 2,N° outil 3,N° outil 4.
j ai un formulaire qui permet de afficher l enregistrement en fonction de l outil
sauf que j ai reussi a le faire que pour qu il recherche en fonction du N° outils .

Ma question : Pouvez m aider a modifier ces ligne de code afin qu il recherche aussi dans les autre champs telle que N° outil 2,N° outil3 etc

voici mon code
Code:

1 2 3 4 5 6 7 8 Private Sub Modifiable46_AfterUpdate() ' Rechercher l'enregistrement correspondant au contrôle. Dim rs As Object Set rs = Me.Recordset.Clone rs.findFirst "[N° outil] = '" & Me![Modifiable46] & "'" Me.Bookmark = rs.Bookmark End Sub
en esperant une reponse de votre part,je vous souhaite une bonne journée:king:

Salut,

Je ne connais pas bien la fonction findfirst mais je suppose que ce code devrait fonctionner
Code:

1 2 rs.findFirst "[N° outil] = '" & Me![Modifiable46] & "' or [N° outil2] = '" & Me![Modifiable46]& "' or [N° outil3] = '" & Me![Modifiable46]& "' "

Bonjour,

Utilise la propriété nomatch (non trouvé) pour savoir si ta recherche est infrustueuse.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Modifiable46_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset
    rs.findFirst "[N° outil] = '" & Me![Modifiable46] & "'"
 
    If rs.nomatch then
       rs.findFirst "[N° outil2] = '" & Me![Modifiable46] & "'"
    elseif rs.nomatch then
       rs.findFirst "[N° outil3] = '" & Me![Modifiable46] & "'"
    else
       rs.findFirst "[N° outil4] = '" & Me![Modifiable46] & "'"
    endif
End Sub

Cordialement,

13/04/2007, 16h15
loufab
Citation:
Envoyé par le_niak

Salut,

Je ne connais pas bien la fonction findfirst mais je suppose que ce code devrait fonctionner

Code:

1 2 rs.findFirst "[N° outil] = '" & Me![Modifiable46] & "' or [N° outil2] = '" & Me![Modifiable46]& "' or [N° outil3] = '" & Me![Modifiable46]& "' "
Avec DAO on ne peut avoir qu'un critère.
13/04/2007, 16h17
le_niak

=>loufab

Comme ca, j'aurais appris quelque chose.
19/04/2007, 11h52
adriantox

Merci

RE,
Dsl de pas avoir interagie avant mais j ete partit en vacs.En tout cas merci car vos ligne de code marche et c ceux qui me manquer
pour pouvoir terminer ma base acess