[AC-2003] Recherche d'un enregistrement dans un formulaire [Résolu]

[FHDLB]

Bonjour à tous,

Je cherche à améliorer la recherche d’un enregistrement dans un formulaire.
J’ai créé à l’aide de l’assistant une liste basée sur la table associée au formulaire, puis, j’ai rattaché cette liste à la table de tous les contrats, si bien que lorsque le programme trouve une correspondance, l’enregistrement s’affiche bien dans le formulaire, mais lorsqu’il n’en trouve pas, le programme affiche le premier enregistrement de la table

J’aimerais que lorsqu’on ne trouve pas de correspondance, le programme affiche un nouvel enregistrement en attente de saisie avec le n° du contrat sélectionné dans la liste en valeur par défaut pour cet enregistrement

Ci-dessous le code qui a été généré

Code :

1
2
3
4
5
6
7
8
9
Private Sub lstContrat_Click()
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
 
    rs.FindFirst "[NumContrat] = " & Str(Nz(Me![lstContrat], 0))
 
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Je n’arrive pas à trouver comment faire pour tester s’il y a une correspondance ou non

Merci pour votre aide


François

[fbtsra]

Bonjour,

Voici une possibilité :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim rs As Object
 
Set rs = Me.Recordset.Clone
 
rs.MoveLast
rs.MoveFirst
 
rs.FindFirst "[NumContrat] = " & Str(Nz(Me![lstContrat], 0))
 
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
Else
DoCmd.GoToRecord , , acNewRec
Me.[NumContrat].SetFocus
End If

Bcdt

PS : pensez à ajouter les balises de code, sinon la sanction ne tardera pas !

[FHDLB]

Bonjour

Merci pour votre réponse.
je viens de faire l'essai, mais le programme indique un message d'erreur

erreur d'execution 2499
Impossible d'utiliser l'action AtteindreEnregistrement ou la méthode GotoRecord en mode creation

J'ai essayé en passant par le biais du code du bouton d'ajout d'enregistrement, mais l'erreur est la même.
pourtant le bonton fonctionne correctement

je n'arrive pas à comprendre ce qui cloche

Merci pour votre aide

François

[FHDLB]

Bonjour

je ne comprend pas pourquoi, mais aujourd'hui, celà fonctionne correctement

encore Merci votre aide

François