Discussion :

[adriantox]

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 :

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

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

[le_niak]

Salut,

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

Code :

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

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

[loufab]

Salut,

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

Code :

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

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.

[le_niak]

=>loufab

Comme ca, j'aurais appris quelque chose.

[adriantox]

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

[loufab]

Bonjour,

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

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
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,