Discussion :

[falco-]

Bonjour,

j'ai un menu déroulant qui permet de choisir un individu et de se positionner dessus. Mais quand l'individu n'existe pas il se positionne sur une fiche quelconque. Comment faire lorsque l'individu n'existe pas, mettre alors la fiche à "blanc" ?

Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Modifiable12_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[INDIVIDU_ID] = " & str(Me![Modifiable12])
    Me.Bookmark = rs.Bookmark

[loufab]

Bonjour,

Après un Findfirst il faut mettre un NoMatch pour voir si la recherche à aboutie et sinon faire un déplacement avec un movelast ou autre.

Cordialement,

Tu trouveras d'autres info dans le tuto DAO.

[falco-]

Bonjour,
Merci mais :

j'ai essayé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Modifiable12_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[INDIVIDU_ID] = " & str(Me![Modifiable12])
    'Me.Bookmark = rs.Bookmark
    If rs.NoMatch Then
            'MsgBox "Enregistrement non trouvé"
            Me.Form
 
        Else
            Me.Bookmark = rs.Bookmark
        End If
    rs.Close
End Sub

mais je ne sais pas quoi mettre pour dans le cas ou l'enregistrement n'est pas trouvé (me.form.????) : je voudrais effacer le formulaire ou le mettre en mode insertion de données !
Merci.

[loufab]

un Docmd.gotorecord acnewrec pour te positionner sur l'enregistrement Nouveau. Pour passer en mode Ajout seul regarde les propriétés Allow...

Cordialement,

[falco-]

Bonjour,
merci beaucoup
c'est ok avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.GoToRecord acDataForm, "Individu_form", acNewRec