Bonjour,
Tout marchait bien...mais ce n'est plus le cas.
Dans un formulaire j'ai une liste déroulante avec le code suivant
Private Sub lmodSelectMVSL_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[t0SecteurNo] = " & Str(Nz(Me![lmodSelectMVSL], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Cela fonctionnait très bien, mais maintenant une erreur se produit sur
le mot "Str" et j'ai un message "Projet ou bibliothèque introuvable"
J'ai regardé un peu dans "module et outils->références", mais je ne
vois pas quel objet je dois cocher.
Pouvez-vous m'en dire plus ?
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
RAVAILLE James
Bonjour,
Petite remarque : pour déclarer ton recordset, tu ne devrais pas utiliser le type Object, mais le type ADODB.Recordset (ceci améliorera d'ailleurs les performances).
Si c'est l'instruction 'str' qui te pose un problème, cette instruction appartient à la classe Conversion du composant VBA contenue dans la DLL C:Program FilesFichiers communsMicrosoft SharedVBAVBA6VBE6.DLL. Cette référence apparaît dans ton projet sous le nom 'Visual Basic For Application'.
Cette référence existe par défaut sur tout projet VBA et ne peut être supprimé...
A+. James RAVAILLE.
Bonjour, Tout marchait bien...mais ce n'est plus le cas. Dans un formulaire j'ai une liste déroulante avec le code suivant
Private Sub lmodSelectMVSL_AfterUpdate() ' Rechercher l'enregistrement correspondant au contrôle. Dim rs As Object
Set rs = Me.Recordset.Clone rs.FindFirst "[t0SecteurNo] = " & Str(Nz(Me![lmodSelectMVSL], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub Cela fonctionnait très bien, mais maintenant une erreur se produit sur le mot "Str" et j'ai un message "Projet ou bibliothèque introuvable" J'ai regardé un peu dans "module et outils->références", mais je ne vois pas quel objet je dois cocher. Pouvez-vous m'en dire plus ?
Merci d'avance
Bonjour,
Petite remarque : pour déclarer ton recordset, tu ne devrais pas utiliser le
type Object, mais le type ADODB.Recordset (ceci améliorera d'ailleurs les
performances).
Si c'est l'instruction 'str' qui te pose un problème, cette instruction
appartient à la classe Conversion du composant VBA contenue dans la DLL
C:Program FilesFichiers communsMicrosoft SharedVBAVBA6VBE6.DLL. Cette
référence apparaît dans ton projet sous le nom 'Visual Basic For Application'.
Cette référence existe par défaut sur tout projet VBA et ne peut être
supprimé...
A+.
James RAVAILLE.
Bonjour,
Tout marchait bien...mais ce n'est plus le cas.
Dans un formulaire j'ai une liste déroulante avec le code suivant
Private Sub lmodSelectMVSL_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[t0SecteurNo] = " & Str(Nz(Me![lmodSelectMVSL], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Cela fonctionnait très bien, mais maintenant une erreur se produit sur
le mot "Str" et j'ai un message "Projet ou bibliothèque introuvable"
J'ai regardé un peu dans "module et outils->références", mais je ne
vois pas quel objet je dois cocher.
Pouvez-vous m'en dire plus ?
Petite remarque : pour déclarer ton recordset, tu ne devrais pas utiliser le type Object, mais le type ADODB.Recordset (ceci améliorera d'ailleurs les performances).
Si c'est l'instruction 'str' qui te pose un problème, cette instruction appartient à la classe Conversion du composant VBA contenue dans la DLL C:Program FilesFichiers communsMicrosoft SharedVBAVBA6VBE6.DLL. Cette référence apparaît dans ton projet sous le nom 'Visual Basic For Application'.
Cette référence existe par défaut sur tout projet VBA et ne peut être supprimé...
A+. James RAVAILLE.
Bonjour, Tout marchait bien...mais ce n'est plus le cas. Dans un formulaire j'ai une liste déroulante avec le code suivant
Private Sub lmodSelectMVSL_AfterUpdate() ' Rechercher l'enregistrement correspondant au contrôle. Dim rs As Object
Set rs = Me.Recordset.Clone rs.FindFirst "[t0SecteurNo] = " & Str(Nz(Me![lmodSelectMVSL], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub Cela fonctionnait très bien, mais maintenant une erreur se produit sur le mot "Str" et j'ai un message "Projet ou bibliothèque introuvable" J'ai regardé un peu dans "module et outils->références", mais je ne vois pas quel objet je dois cocher. Pouvez-vous m'en dire plus ?
Merci d'avance
3stone
Salut,
"bdel"
Tout marchait bien...mais ce n'est plus le cas. Dans un formulaire j'ai une liste déroulante avec le code suivant
Private Sub lmodSelectMVSL_AfterUpdate() ' Rechercher l'enregistrement correspondant au contrôle. Dim rs As Object
Dim rs as DAO.Recordset
Set rs = Me.Recordset.Clone rs.FindFirst "[t0SecteurNo] = " & Str(Nz(Me![lmodSelectMVSL], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Set rs = Nothing
End Sub Cela fonctionnait très bien, mais maintenant une erreur se produit sur le mot "Str" et j'ai un message "Projet ou bibliothèque introuvable" J'ai regardé un peu dans "module et outils->références", mais je ne vois pas quel objet je dois cocher. Pouvez-vous m'en dire plus ?
Pour l'erreur, tu dois avoir une référence marquée "Manquante"
vérifie et décoche-là... et recompile !!
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"bdel"
Tout marchait bien...mais ce n'est plus le cas.
Dans un formulaire j'ai une liste déroulante avec le code suivant
Private Sub lmodSelectMVSL_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Dim rs as DAO.Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "[t0SecteurNo] = " & Str(Nz(Me![lmodSelectMVSL], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Set rs = Nothing
End Sub
Cela fonctionnait très bien, mais maintenant une erreur se produit sur
le mot "Str" et j'ai un message "Projet ou bibliothèque introuvable"
J'ai regardé un peu dans "module et outils->références", mais je ne
vois pas quel objet je dois cocher.
Pouvez-vous m'en dire plus ?
Pour l'erreur, tu dois avoir une référence marquée "Manquante"
vérifie et décoche-là... et recompile !!
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Tout marchait bien...mais ce n'est plus le cas. Dans un formulaire j'ai une liste déroulante avec le code suivant
Private Sub lmodSelectMVSL_AfterUpdate() ' Rechercher l'enregistrement correspondant au contrôle. Dim rs As Object
Dim rs as DAO.Recordset
Set rs = Me.Recordset.Clone rs.FindFirst "[t0SecteurNo] = " & Str(Nz(Me![lmodSelectMVSL], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Set rs = Nothing
End Sub Cela fonctionnait très bien, mais maintenant une erreur se produit sur le mot "Str" et j'ai un message "Projet ou bibliothèque introuvable" J'ai regardé un peu dans "module et outils->références", mais je ne vois pas quel objet je dois cocher. Pouvez-vous m'en dire plus ?
Pour l'erreur, tu dois avoir une référence marquée "Manquante"
vérifie et décoche-là... et recompile !!
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
