ACCESS recherche multi critère
dabigben
Messages postés
2110
Statut
Membre
-
dabigben Messages postés 2110 Statut Membre -
dabigben Messages postés 2110 Statut Membre -
Bonjour,
quelqu'un pourrait-il me passer un bout de code pour de la recherche multi-critères :
j'ai un formulaire de recherche a partir duquel un bouton permet d'ouvrir le formulaire de modification (formulaire1)du contact recherché en fonction du champ "NOM". Mais il faudrait que si il n'y a pas de nom, , le "formulaire1" s'ouvre en fonction du champ "sigle" et sinon en fonction du champ "structure". ça fait trois critères en fait mais je ne connais pas le VBA. j'aurais bien besoin d'un gros coup de main si vous pouvez m'aider c'est cool!
quelqu'un pourrait-il me passer un bout de code pour de la recherche multi-critères :
j'ai un formulaire de recherche a partir duquel un bouton permet d'ouvrir le formulaire de modification (formulaire1)du contact recherché en fonction du champ "NOM". Mais il faudrait que si il n'y a pas de nom, , le "formulaire1" s'ouvre en fonction du champ "sigle" et sinon en fonction du champ "structure". ça fait trois critères en fait mais je ne connais pas le VBA. j'aurais bien besoin d'un gros coup de main si vous pouvez m'aider c'est cool!
A voir également:
- Stlinkcriteria
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Rechercher ou entrer l'adresse mm - recherche google - Guide
- Fréquence tnt recherche manuelle - Forum Téléviseurs
- Sfr multi - Accueil - Opérateurs & Forfaits
- Acer quick access - Forum Logiciels
2 réponses
Colle ton code pour qu'on puisse le modifier direct, ça sera plus simple et ça évitera des erreurs...
voici le code du bouton "modifier" qui ouvre le "formulaire1" (en fait "saisie_log3") en fonction du champ nom
Private Sub modif_Click()
On Error GoTo Err_modif_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_saisie_log3"
stLinkCriteria = "[NOM]=" & "'" & Me![Texte122] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_modif_Click:
Exit Sub
Err_modif_Click:
MsgBox Err.Description
Resume Exit_modif_Click
End Sub
il faudrait un if quelque part pour dire que si "nom" est vide alors cherche dans "sigle" et si sigle est vide, cherche dans "structure"...
ton aide me serait très précieuse.!!! merci
Private Sub modif_Click()
On Error GoTo Err_modif_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_saisie_log3"
stLinkCriteria = "[NOM]=" & "'" & Me![Texte122] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_modif_Click:
Exit Sub
Err_modif_Click:
MsgBox Err.Description
Resume Exit_modif_Click
End Sub
il faudrait un if quelque part pour dire que si "nom" est vide alors cherche dans "sigle" et si sigle est vide, cherche dans "structure"...
ton aide me serait très précieuse.!!! merci
