Problème de recorset : Membre de méthode introuvable
6 réponses
Frédéric
Je voudrais utiliser les recordset pour sélectionner certains enregistrement
ou réaliser des recherches dans des formulaires.
J'ai adapté à un de mes formulaires une protions de code qui fonctionne sur
mon PC, et pourtant j'ai comme erreur "Membre de méthode introuvable" : Help
!!!
Voici le code que j'utilise :
Private Sub Commande1311_Click()
Dim rst As Recordset
Dim FicheRecherche As String
Dim reponse As String
FicheRecherche = InputBox("Taper le nom de la personne recherchée",
"Recherche d'une personne")
Set rst = Forms![Contacts].RecordsetClone
rst.FindNext "[Nom] Like '" & "*" & FicheRecherche & "*" & "'"
If rst.NoMatch Then
reponse = MsgBox("Nom introuvable dans la base de données !!", ,
"Recherche d'une personne")
Else
' positionnement
Me.Bookmark = rst.Bookmark
End If
rst.Close
End sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gafish
Frédéric wrote:
Je voudrais utiliser les recordset pour sélectionner certains enregistrement ou réaliser des recherches dans des formulaires. J'ai adapté à un de mes formulaires une protions de code qui fonctionne sur mon PC, et pourtant j'ai comme erreur "Membre de méthode introuvable" : Help !!!
C'est quelle ligne qui est surlignée ? Tu as une vieille fiche technique la dessus, regarde si elle peut t'aider: http://support.microsoft.com/default.aspx?scid=kb;fr;465997
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Frédéric wrote:
Je voudrais utiliser les recordset pour sélectionner certains
enregistrement ou réaliser des recherches dans des formulaires.
J'ai adapté à un de mes formulaires une protions de code qui
fonctionne sur mon PC, et pourtant j'ai comme erreur "Membre de
méthode introuvable" : Help !!!
C'est quelle ligne qui est surlignée ?
Tu as une vieille fiche technique la dessus, regarde si elle peut t'aider:
http://support.microsoft.com/default.aspx?scid=kb;fr;465997
Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Je voudrais utiliser les recordset pour sélectionner certains enregistrement ou réaliser des recherches dans des formulaires. J'ai adapté à un de mes formulaires une protions de code qui fonctionne sur mon PC, et pourtant j'ai comme erreur "Membre de méthode introuvable" : Help !!!
C'est quelle ligne qui est surlignée ? Tu as une vieille fiche technique la dessus, regarde si elle peut t'aider: http://support.microsoft.com/default.aspx?scid=kb;fr;465997
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
pgz
Si c'est cette ligne qui se met en jaune, tu peux essayer : rst.FindNext "[Nom] Like " & FicheRecherche & "*" Des fois... pgz
Je voudrais utiliser les recordset pour sélectionner certains enregistrement ou réaliser des recherches dans des formulaires. J'ai adapté à un de mes formulaires une protions de code qui fonctionne sur mon PC, et pourtant j'ai comme erreur "Membre de méthode introuvable" : Help !!!
Voici le code que j'utilise :
Private Sub Commande1311_Click()
Dim rst As Recordset Dim FicheRecherche As String Dim reponse As String
FicheRecherche = InputBox("Taper le nom de la personne recherchée", "Recherche d'une personne") Set rst = Forms![Contacts].RecordsetClone rst.FindNext "[Nom] Like '" & "*" & FicheRecherche & "*" & "'"
If rst.NoMatch Then reponse = MsgBox("Nom introuvable dans la base de données !!", , "Recherche d'une personne") Else ' positionnement Me.Bookmark = rst.Bookmark End If rst.Close End sub
Merci +++ de votre aide
Si c'est cette ligne qui se met en jaune, tu peux essayer :
rst.FindNext "[Nom] Like " & FicheRecherche & "*"
Des fois...
pgz
Je voudrais utiliser les recordset pour sélectionner certains enregistrement
ou réaliser des recherches dans des formulaires.
J'ai adapté à un de mes formulaires une protions de code qui fonctionne sur
mon PC, et pourtant j'ai comme erreur "Membre de méthode introuvable" : Help
!!!
Voici le code que j'utilise :
Private Sub Commande1311_Click()
Dim rst As Recordset
Dim FicheRecherche As String
Dim reponse As String
FicheRecherche = InputBox("Taper le nom de la personne recherchée",
"Recherche d'une personne")
Set rst = Forms![Contacts].RecordsetClone
rst.FindNext "[Nom] Like '" & "*" & FicheRecherche & "*" & "'"
If rst.NoMatch Then
reponse = MsgBox("Nom introuvable dans la base de données !!", ,
"Recherche d'une personne")
Else
' positionnement
Me.Bookmark = rst.Bookmark
End If
rst.Close
End sub
Si c'est cette ligne qui se met en jaune, tu peux essayer : rst.FindNext "[Nom] Like " & FicheRecherche & "*" Des fois... pgz
Je voudrais utiliser les recordset pour sélectionner certains enregistrement ou réaliser des recherches dans des formulaires. J'ai adapté à un de mes formulaires une protions de code qui fonctionne sur mon PC, et pourtant j'ai comme erreur "Membre de méthode introuvable" : Help !!!
Voici le code que j'utilise :
Private Sub Commande1311_Click()
Dim rst As Recordset Dim FicheRecherche As String Dim reponse As String
FicheRecherche = InputBox("Taper le nom de la personne recherchée", "Recherche d'une personne") Set rst = Forms![Contacts].RecordsetClone rst.FindNext "[Nom] Like '" & "*" & FicheRecherche & "*" & "'"
If rst.NoMatch Then reponse = MsgBox("Nom introuvable dans la base de données !!", , "Recherche d'une personne") Else ' positionnement Me.Bookmark = rst.Bookmark End If rst.Close End sub
Merci +++ de votre aide
Frédéric
C'est la commande .FindNext qui est surlignée. Sinon pgz, j'ai essayé d'enlever les ' : toujours les même problème...
Si c'est cette ligne qui se met en jaune, tu peux essayer : rst.FindNext "[Nom] Like " & FicheRecherche & "*" Des fois... pgz
C'est la commande .FindNext qui est surlignée.
Sinon pgz, j'ai essayé d'enlever les ' : toujours les même problème...
Si c'est cette ligne qui se met en jaune, tu peux essayer :
rst.FindNext "[Nom] Like " & FicheRecherche & "*"
Des fois...
pgz
C'est la commande .FindNext qui est surlignée. Sinon pgz, j'ai essayé d'enlever les ' : toujours les même problème...
Si c'est cette ligne qui se met en jaune, tu peux essayer : rst.FindNext "[Nom] Like " & FicheRecherche & "*" Des fois... pgz
Gafish
Frédéric wrote:
C'est la commande .FindNext qui est surlignée. Sinon pgz, j'ai essayé d'enlever les ' : toujours les même problème...
Essaie ici rst.FindNext "[Nom]........ de préfixer Nom par le nom de la table qui le contient et met un ! entre les deux : rst.FindNext "[LaTable]![Nom] ........
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Frédéric wrote:
C'est la commande .FindNext qui est surlignée.
Sinon pgz, j'ai essayé d'enlever les ' : toujours les même problème...
Essaie ici
rst.FindNext "[Nom]........
de préfixer Nom par le nom de la table qui le contient et met un ! entre les
deux :
rst.FindNext "[LaTable]![Nom] ........
Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
C'est la commande .FindNext qui est surlignée. Sinon pgz, j'ai essayé d'enlever les ' : toujours les même problème...
Essaie ici rst.FindNext "[Nom]........ de préfixer Nom par le nom de la table qui le contient et met un ! entre les deux : rst.FindNext "[LaTable]![Nom] ........
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Gafish
Frédéric wrote:
C'est la commande .FindNext qui est surlignée. Sinon pgz, j'ai essayé d'enlever les ' : toujours les même problème...
Et vérifie aussi tes références, tu as bien la référence DAO ? essaie de décocher la référence ADO si elle est cochée
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Frédéric wrote:
C'est la commande .FindNext qui est surlignée.
Sinon pgz, j'ai essayé d'enlever les ' : toujours les même problème...
Et vérifie aussi tes références, tu as bien la référence DAO ? essaie de
décocher la référence ADO si elle est cochée
Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
