Erreur dans mon code VBA

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #18959711
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.
@+
chpa
Le #18966871
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" 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


Publicité
Poster une réponse
Anonyme