A voir également:
- Access recherche par mots clé
- Clé windows 10 gratuit - Guide
- Clé usb non détectée - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Recherche par image - Guide
- Clé bootable windows 10 - Guide
1 réponse
random
Messages postés
1612
Date d'inscription
vendredi 26 novembre 2004
Statut
Membre
Dernière intervention
30 mars 2006
155
27 avril 2005 à 11:37
27 avril 2005 à 11:37
tu fais une requete avec tes trois champs
à partir de la tu demandes à l'assistant un formulaire
dans le formulaire tu ajoutes manu deux champs textes
que tu nommes ex et nouv
sur leur proprietes évenementielles tu mets le code suivant
Private Sub nouv_LostFocus()
Me.FilterOn = False
Me.Filter = "nref = '" & CInt(Me.[nouv]) & "'"
Me.FilterOn = True
Me.[ex] = ""
End Sub
et
Private Sub ex_LostFocus()
Me.FilterOn = False
Me.Filter = "exref = '" & Me.[ex] & "'"
Me.FilterOn = True
Me.[nouv] = ""
End Sub
en remplacant nref et exref par tes champs
la premiere sub s'applique à des nombres la seconde à du texte
à partir de la tu demandes à l'assistant un formulaire
dans le formulaire tu ajoutes manu deux champs textes
que tu nommes ex et nouv
sur leur proprietes évenementielles tu mets le code suivant
Private Sub nouv_LostFocus()
Me.FilterOn = False
Me.Filter = "nref = '" & CInt(Me.[nouv]) & "'"
Me.FilterOn = True
Me.[ex] = ""
End Sub
et
Private Sub ex_LostFocus()
Me.FilterOn = False
Me.Filter = "exref = '" & Me.[ex] & "'"
Me.FilterOn = True
Me.[nouv] = ""
End Sub
en remplacant nref et exref par tes champs
la premiere sub s'applique à des nombres la seconde à du texte
27 avril 2005 à 15:19
J'ai essayé de mettre en oeuvre ta solution mais ca me dit qu'il y a un problème.
Plutot que de faire ce "tri" avec access, ne serait-il pas plus simple d'effectuer la recherche de ces références avec excel (fichier d'origine); si c'est le cas comment réaliser ça?
Merci d'avance