[AC-2007] Ouvrir formulaire sur absence sur liste

[ronin.01]

bonsoir,

J'ai un formulaire avec une liste déroulante qui fait appel aux noms des clients à partir de la table T_clients. il y a un code sur absence sur liste permettant de rajouter un nouveau client dans la table T_clients.

Je voudrais après avoir ajouter le nouveau client dans la table, que soit ouvert automatiquement le formulaire F_Clients permettant de saisir l'ensemble de la fiche client. Comment faut il l'écrire dans la procédure ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub NC_NotInList(NewData As String, Response As Integer)
' Si le client n'est pas dans la liste alors proposer de l'ajouter dans la liste.
 
  If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des clients ?", _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO T_clients ( Nom ) SELECT """ & NewData & """;"
        DoCmd.SetWarnings True
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        NC.Undo
    End If
 
End Sub

Merci par avance pour vos réponses
Cordialement
Ronin

[User]

Salut Stéphane,

Essaie ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub NC_NotInList(NewData As String, Response As Integer)
' Si le client n'est pas dans la liste alors proposer de l'ajouter dans la liste.
 
  If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des clients ?", _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO T_clients ( Nom ) SELECT """ & NewData & """;"
        DoCmd.SetWarnings True
        Response = acDataErrAdded
 
        DoCmd.OpenForm "F_Clients", , , "[Nom]='" & NewData & "'"
 
    Else
        Response = acDataErrContinue
        NC.Undo
    End If
 
End Sub

A+

[ronin.01]

bonjour,

Merci je vais tester tout de suite.

Bonne journée