OVH Cloud OVH Cloud

combo box et recherche

2 réponses
Avatar
fth
Bonjour,
je fais un combo basé sur uen query qui recherche un renregistrement dans ma
form.
je l'ouvre, je tape les premières lettre, ça recherche dans la lsite bref,
ce que je veux faire.
je fais un compress database, ou je ferme r et réouvre la base et *basta*,
ça ne fonctione plus.
je peux toujours selectionner "à la main" mais pas en tappant les première
lettres ...
ça m'énerve, mais ça m'énerve!

help, je vasi p...un plomb...
D'avance merci

Frédéric

ci joint le code généré par access:
Private Sub Combo447_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[LASTNAME1] = '" & Me![Combo447] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

2 réponses

Avatar
Raymond [mvp]
RE.

c'est la propriété auto-étendre qui est à oui pour faire ça. Tu voudrais
dire qu'elle passe à non après un compactage ?
et si après le compactage tu sors d'access et que tu remontes ta base, ça
marche ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"fth" <frederic.thiriauxSPAM!@matloc.be> a écrit dans le message de news:
%
Bonjour,
je fais un combo basé sur uen query qui recherche un renregistrement dans
ma form.
je l'ouvre, je tape les premières lettre, ça recherche dans la lsite bref,
ce que je veux faire.
je fais un compress database, ou je ferme r et réouvre la base et *basta*,
ça ne fonctione plus.
je peux toujours selectionner "à la main" mais pas en tappant les première
lettres ...
ça m'énerve, mais ça m'énerve!

help, je vasi p...un plomb...
D'avance merci

Frédéric

ci joint le code généré par access:
Private Sub Combo447_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[LASTNAME1] = '" & Me![Combo447] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub



Avatar
fth
Salut Raymond
(je vois que je ne suis pas le seul à bucher en access...mm le dimanche!)

Ben non, après sortie et retour dans l'appli, ça fonctionne plus...
rien qu'un compact suffit à faire sauter le process...
j'ai pourtant tenu comtpe de l'auto-étendre mais rien n'y fait

me reste plus qu'à pondre une fonction pour être certain du résultat..
Pffff
et à la repasser dans tous les écrans ou j'en ai besoins

Merci pour la piste en tout cas...

Frédéric

"Raymond [mvp]" wrote in message
news:%
RE.

c'est la propriété auto-étendre qui est à oui pour faire ça. Tu voudrais
dire qu'elle passe à non après un compactage ?
et si après le compactage tu sors d'access et que tu remontes ta base, ça
marche ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"fth" <frederic.thiriauxSPAM!@matloc.be> a écrit dans le message de news:
%
Bonjour,
je fais un combo basé sur uen query qui recherche un renregistrement dans
ma form.
je l'ouvre, je tape les premières lettre, ça recherche dans la lsite
bref, ce que je veux faire.
je fais un compress database, ou je ferme r et réouvre la base et
*basta*, ça ne fonctione plus.
je peux toujours selectionner "à la main" mais pas en tappant les
première lettres ...
ça m'énerve, mais ça m'énerve!

help, je vasi p...un plomb...
D'avance merci

Frédéric

ci joint le code généré par access:
Private Sub Combo447_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[LASTNAME1] = '" & Me![Combo447] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub