Discussion :

[Sami Xite]

Re-Bonjour ( c'est mon second du jour )

J'ai une liste déroulante qui permet d'afficher la commande voulue après mise à jour :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Modifiable10_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[commande] = '" & Me![Modifiable10] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Comment puis je faire pour que si la commande spécifiée n'existe pas mon formulaire s'ouvre sur un nouvel enregistrement ?
J'ai pensé à mettre dans si absent de la liste :

Code :

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

1
2
3
Private Sub Modifiable10_NotInList(NewData As String, Response As Integer)
DoCmd.GoToRecord , , acNewRec
End Sub

Mais y'a pas bon

Merci

[Heureux-oli]

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
17
18
19
20
21
Private Sub RéfClient_NotInList(NewData As String, Response As Integer)
Dim entDemande As Integer
Dim bds As Database, rst As Recordset
 
entDemande = MsgBox("Ajouter un nouveau client ?", vbQuestion + vbYesNo)
 
If entDemande = vbYes Then
 
    Set bds = CurrentDb
    Set rst = bds.OpenRecordset("tblClients")
    rst.AddNew
    rst!Nom = NewData
    rst.Update
    Response = acDataErrAdded
    MsgBox ("Il faut mettre les données à jour!!!")
Else
    'Response = acDataErrDisplay
    Exit Sub
End If
rst.Close
End Sub

Voilà un code que j'utilise et qui fonctionne.

[Sami Xite]

Intéressant ! Je teste et je reviens vers toi

Gracias

[Sami Xite]

Bonjour,

Après adaptation à ma base ça ne marche pas
N'y a t'il rien à faire dans cette partie :

Code :

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

1
2
3
4
Private Sub Modifiable10_AfterUpdate()  
' Rechercher l'enregistrement correspondant au contrôle.  
Dim rs As Object   
Set rs = Me.Recordset.Clone  rs.FindFirst "[commande] = '" & Me![Modifiable10] & "'"  If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub

Pour rappel il s'agit d'un combo de sélection et non de mise à jour
Comment faire pour que si je tape un élément qui n'appartient pas à la liste mon formulaire se mette automatiquement sur un nouvel enregistrement ?

Encore merci

[Heureux-oli]

Je viens seulement de me rendre compte que c'était un combo de sélection;

Il faut tester si le recordset est vide ou pas et avec une condition, aller vers un nouvel enregistrement.

Regarde ICI § 5.6.18

[Sami Xite]

Je viens seulement de me rendre compte que c'était un combo de sélection;

Il faut tester si le recordset est vide ou pas et avec une condition, aller vers un nouvel enregistrement.

Regarde ICI § 5.6.18

Salut,

J'ai encore du mal sur les recordset, j'ai testé :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Modifiable10_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[commande] = '" & Me![Modifiable10] & "'"
    If rs.NoMatch = True Then DoCmd.GoToRecord , , acNewRec
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Mais ça n'est pas encore ça et je n'arrive pas à déterminer ce qui ne va pas

Merci