Besoin d'aide pour FindFirst

Le
Soya
Re-bonjour, (si je vous fatigue vous le dites)

Voici un code que j'ai piqué à droite (ou à gauche) en glanant des idées. Je
comprends que ce code fonctionne avec un contenu de champs Modifiable16
numérique.

Comment modifier ce code pour qu'il fonctionne avec un champs de type texte ?

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

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

Encore merci bien sûr
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
Raymond [mvp]
Le #6291341
Bonsoir.

rs.FindFirst "[Reference] = '" & Str(Nz(Me![Modifiable16], 0)) & "'"

l'alpha toujours entre ' '

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/

Non Stop Mix '07 - Paris. La nouvelle scène web fête la créativité !
http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273


"Soya"
| Re-bonjour, (si je vous fatigue vous le dites...)
|
| Voici un code que j'ai piqué à droite (ou à gauche) en glanant des idées.
Je
| comprends que ce code fonctionne avec un contenu de champs Modifiable16
| numérique.
|
| Comment modifier ce code pour qu'il fonctionne avec un champs de type
texte ?
|
| Private Sub Modifiable16_AfterUpdate()
| ' Rechercher l'enregistrement correspondant au contrôle.
| Dim rs As Object
|
| Set rs = Me.Recordset.Clone
| rs.FindFirst "[Reference] = " & Str(Nz(Me![Modifiable16], 0))
| If Not rs.EOF Then Me.Bookmark = rs.Bookmark
| End Sub
|
| Encore merci bien sûr...
Soya
Le #6291321
Bonsoir Raymond,

C'est juste le & "" qui fait la différence ?
Je n'ai rien à inscrire entre les "" ?

Merci beaucoup !


Bonsoir.

rs.FindFirst "[Reference] = '" & Str(Nz(Me![Modifiable16], 0)) & "'"

l'alpha toujours entre ' '

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/

Non Stop Mix '07 - Paris. La nouvelle scène web fête la créativité !
http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273


"Soya"
| Re-bonjour, (si je vous fatigue vous le dites...)
|
| Voici un code que j'ai piqué à droite (ou à gauche) en glanant des idées.
Je
| comprends que ce code fonctionne avec un contenu de champs Modifiable16
| numérique.
|
| Comment modifier ce code pour qu'il fonctionne avec un champs de type
texte ?
|
| Private Sub Modifiable16_AfterUpdate()
| ' Rechercher l'enregistrement correspondant au contrôle.
| Dim rs As Object
|
| Set rs = Me.Recordset.Clone
| rs.FindFirst "[Reference] = " & Str(Nz(Me![Modifiable16], 0))
| If Not rs.EOF Then Me.Bookmark = rs.Bookmark
| End Sub
|
| Encore merci bien sûr...





Raymond [mvp]
Le #6291311
si, je l'ai indiqué:

il faut un ' entre le = et le "
il faut rajouter un ' à la fin entre " "

si je rajoute un espace entre chaque " pour mieux voir, ça donne:
"[Reference] = ' " & Str(Nz(Me![Modifiable16], 0)) & " ' "
mais attention, pas d'espace chez toi.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/

Non Stop Mix '07 - Paris. La nouvelle scène web fête la créativité !
http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273


"Soya"
| Bonsoir Raymond,
|
| C'est juste le & "" qui fait la différence ?
| Je n'ai rien à inscrire entre les "" ?
|
| Merci beaucoup !
|
|
| > Bonsoir.
| >
| > rs.FindFirst "[Reference] = '" & Str(Nz(Me![Modifiable16], 0)) & "'"
| >
| > l'alpha toujours entre ' '
| >
| > --
| > @+
| > Raymond Access MVP http://OfficeSystem.Access.free.fr/
| > Pour débuter sur le forum: http://www.mpfa.info/
| >
| > Non Stop Mix '07 - Paris. La nouvelle scène web fête la créativité !
| >
http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273
| >
| >
| > "Soya" | >
| > | Re-bonjour, (si je vous fatigue vous le dites...)
| > |
| > | Voici un code que j'ai piqué à droite (ou à gauche) en glanant des
idées.
| > Je
| > | comprends que ce code fonctionne avec un contenu de champs
Modifiable16
| > | numérique.
| > |
| > | Comment modifier ce code pour qu'il fonctionne avec un champs de type
| > texte ?
| > |
| > | Private Sub Modifiable16_AfterUpdate()
| > | ' Rechercher l'enregistrement correspondant au contrôle.
| > | Dim rs As Object
| > |
| > | Set rs = Me.Recordset.Clone
| > | rs.FindFirst "[Reference] = " & Str(Nz(Me![Modifiable16], 0))
| > | If Not rs.EOF Then Me.Bookmark = rs.Bookmark
| > | End Sub
| > |
| > | Encore merci bien sûr...
| >
| >
| >
Publicité
Poster une réponse
Anonyme