Discussion :

[Rickhq]

Bonjour,

Compte tenu ma carence en VBA, J'ai de la difficulté à obtenir ce qu'il me faut dans mon formulaire. Je m'explique:

J'ai besoin d'inclure la donnée dans mon formulaire1 à l'aide du bouton "Ajouter au panier" et ensuite passer automatiquement à une nouvelle ligne de mon sous form pour une autre saisie. Je veux aussi pouvoir retirer au besoin une ligne à l'aide de l'autre bouton Retirer du panier. J'ai inclus un démo car par évident à expliquer.

Merci à l'avance.

[Robert1957]

Bonjour Rickhq,

Voici un code qui ferait ce que tu veux:

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
22
23
24
25
26
Private Sub Commande13_Click()
On Error GoTo Err_Commande13_Click
 
    Dim ctlPrevious As Control
    Dim strSQL As String, strWhere As String
    Set ctlPrevious = Screen.PreviousControl
    If ctlPrevious.Name = "SFRequête1" Then 'Vérification si on était dans le sous-formulaire
        strWhere = ctlPrevious.Form.ActiveControl 'Récupère le numéro t1
        strSQL = "DELETE Table1.*, Table1.t1 FROM Table1 WHERE (((Table1.t1)=" & Chr(34) & strWhere & Chr(34) & "));" 'Construit la requête
        DoCmd.SetWarnings False
        DoCmd.RunSQL strSQL 'Exécute la requête
        DoCmd.SetWarnings True
        Me.SFRequête1.Requery
    Else
        MsgBox "Vous devez sélectionner une ligne dans le panier!" 'Message si on était pas à la bonne place
        Me.SFRequête1.SetFocus 'On renvoie dans le sous-formulaire
    End If
    Set ctlPrevious = Nothing
 
Exit_Commande13_Click:
    Exit Sub
 
Err_Commande13_Click:
    MsgBox Err.Description
    Resume Exit_Commande13_Click
End Sub

Cependant c'est bon pour ton formulaire parce que celui-ci a un seul champ, donc que tu te positionnes dans le champ ou sur la ligne ne fait pas de différence. Si le formulaire avait plus d'un champ et que tu ne te positionne pas dans le champ t1 ce code ne fonctionnerait pas. La raison de cela est qu'avec ce code tu vas récupérer le numéro qui était la ligne active de ton sous-formulaire avant de cliquer sur supprimer.

Bonne journée

[Rickhq]

Merci pour le retour Robert1957,


Parfait pour le bouton "Commande13", c'est ce que je voulais. Cependant Le bouton "Commande2" qui sert à enregistrer la donnée, devrait faire changer de ligne automatiquement pour permettre une saisie additionnelle...

Désolé si je n'ai pas été clair.

[Robert1957]

Bonjour,

Ce code fera ce que tu veux mais ne vérifie pas s'il y a déjà une inscription qui correspond donc on peut inscrire 2 fois la même chose.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande2_Click()
 
    Dim strSQL As String
    strSQL = "INSERT INTO Table1(t1) VALUES (" & Me.Texte0 & ");"
    DoCmd.SetWarnings False
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
    Me.SFRequête1.Requery
 
End Sub

Bonne journée

[Rickhq]

Dans le millle!!!

Merci infiniment pour votre aide!

Au plaisir!