Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Besoin d'aide pour FindFirst

Besoin d'aide pour FindFirst

3 réponses
Avatar
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...
Signaler un problème avec ce contenu

3 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
Raymond [mvp]
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" a écrit dans le message de news:

| 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...
Avatar
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" a écrit dans le message de news:

| 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...





Avatar
Raymond [mvp]
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" a écrit dans le message de news:

| 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" a écrit dans le message de news:
| >
| > | 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...
| >
| >
| >