Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access recherche automatique.

recherche automatique.

7 réponses
Avatar
user
bonjour ;
j'ai une formulaire en mode contenu ; est un champ C1 c'est un index sans
doublans .
comment je peux faire lorsque je tape un nouveau enregistrement sur C1 ,
s'il n'existe pas il ajoute mais s'il existe il doit le chercher et pointer
sur l'enregistrement tapé.

Merçi.
Signaler un problème avec ce contenu

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

essaie cette procédure à placer sur l'événement BeforeUpdate de ton contrôle
( ici le controle Num pour l'exemple).

Private Sub Num_BeforeUpdate(Cancel As Integer)
If Me.NewRecord Then
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Num] = '" & Nz(Me![Num], "") & "'"
If Not rs.NoMatch Then
Me.Undo
Me.Bookmark = rs.Bookmark
End If
End If
End Sub

Attention, procédure non testée, bien vérifier avant de l'appliquer.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"user" a écrit dans le message de news:

bonjour ;
j'ai une formulaire en mode contenu ; est un champ C1 c'est un index sans
doublans .
comment je peux faire lorsque je tape un nouveau enregistrement sur C1 ,
s'il n'existe pas il ajoute mais s'il existe il doit le chercher et
pointer
sur l'enregistrement tapé.

Merçi.





Avatar
user
Erreur de compilation :
Membre de méthode ou de données introuvable sur
Set rs = Me.Recordset.Clone
Avatar
Raymond [mvp]
Sur quelle version access es-tu ?
il n'y a pas besoin de référence spéciale pour ça.
tu as bien mis:
Dim rs As Object
Set rs = Me.Recordset.Clone
et tu es bien dans le formulaire ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"user" a écrit dans le message de news:

Erreur de compilation :
Membre de méthode ou de données introuvable sur
Set rs = Me.Recordset.Clone





Avatar
user
access 97
j'ai bien mis tous.


"Raymond [mvp]" a écrit dans le message de
news:
Sur quelle version access es-tu ?
il n'y a pas besoin de référence spéciale pour ça.
tu as bien mis:
Dim rs As Object
Set rs = Me.Recordset.Clone
et tu es bien dans le formulaire ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"user" a écrit dans le message de news:

Erreur de compilation :
Membre de méthode ou de données introuvable sur
Set rs = Me.Recordset.Clone









Avatar
Raymond [mvp]
en 97 c'était, si je me rappelle bien:
Set rs = Me.RecordsetClone
vérifie le reste aussi car 97 est loin, loin...
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"user" a écrit dans le message de news:

access 97
j'ai bien mis tous.



Avatar
user
C'est bon mais comment ça marche lorsque Num type numérique
RS.FindFirst "[Num] = '" & Nz(Me![num], "") & "'" ???

merci d'avance.


"Raymond [mvp]" a écrit dans le message de
news:%
en 97 c'était, si je me rappelle bien:
Set rs = Me.RecordsetClone
vérifie le reste aussi car 97 est loin, loin...
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"user" a écrit dans le message de news:

access 97
j'ai bien mis tous.







Avatar
Raymond [mvp]
il faut supprimer les ' et remplacer "" par 0.

RS.FindFirst "[Num] = " & Nz(Me![num], 0)

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"user" a écrit dans le message de news:
%
C'est bon mais comment ça marche lorsque Num type numérique
RS.FindFirst "[Num] = '" & Nz(Me![num], "") & "'" ???

merci d'avance.