Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Erreur dans mon code VBA

Erreur dans mon code VBA

2 réponses
Avatar
Webmaster HVFE
Bonjour,

Pourriez-vous me dire ce qui cloche dans mon code:

Private Sub Modifiable38_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[N°] = " & Str(Nz(Me![Modifiable38], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Access signale une erreur de compilation, projet ou bibliothèque introuvable
en se positionnant sur Str

Merci pour votre aide

STEF
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Fabien
Webmaster HVFE a écrit :
Bonjour,

Pourriez-vous me dire ce qui cloche dans mon code:

Private Sub Modifiable38_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[N°] = " & Str(Nz(Me![Modifiable38], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Access signale une erreur de compilation, projet ou bibliothèque
introuvable en se positionnant sur Str

Merci pour votre aide

STEF


Salut,
Voir lorsque tu est dans l'éditeur VBA Outils>références Tu en as une
qui doit-être signalée comme manquante. Enleve la coche et ça devrait
être ok.
@+
Avatar
chpa
Bonjour,
Que souhaitez vous faire ?
Si le champ [N°] est un string, il faut mettre des guillemets simples :

rs.FindFirst "[N°] = '" & Nz(Me![Modifiable38], 0) & "'"

ou doubles (au choix)

rs.FindFirst "[N°] = """ & Nz(Me![Modifiable38], 0) & """"

si c'est du numérique :

rs.FindFirst "[N°] = " & Nz(Me![Modifiable38], 0) devrait suffire.


"Webmaster HVFE" a écrit dans le message de
news:
Bonjour,

Pourriez-vous me dire ce qui cloche dans mon code:

Private Sub Modifiable38_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[N°] = " & Str(Nz(Me![Modifiable38], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Access signale une erreur de compilation, projet ou bibliothèque
introuvable en se positionnant sur Str

Merci pour votre aide

STEF