Discussion :

[morobaboumar]

Salut membres du forum !
Très heureux de vous retrouver. J'espère que tout le monde va bien.

Voici mon souci:
1°) - Habituellement, je crée une boîte de dialogue avec un formulaire dépendant d'une table.
Mais je remarque, lorsque cette boîte de dialogue est chargée, elle charge toutes les
informations contenues dans la table dont elle dépend. Ce qui parfois provoque chez moi le
mélange d'enregistrements par erreur de touche de claviers de mon ordinateur.



2°) - En effet, je souhaite avoir une idée de "Comment insérer les enregistrements dans une table
grâce à une boîte de dialogue indépendante ?" afin d’éviter des erreurs ou de mélange d'informations.

Cord'alement.

[Jeannot45]

Si j'ai bien compris, boite de dialogue = Formulaire de saisie.

Plusieurs pistes me viennent à l'esprit :
1. Modifier la propriété du formulaire Entrée de données sur Oui (Les données existantes ne seront pas affichées)
2. Utilisation d'un sous formulaire dans un formulaire principal.
En effet, d'après l'exemple, tu crées des devis. Cela suppose donc que tu as au moins trois tables. Une Table T_Clients, une table T_Devis et une table T_DetailsDevis.
Ainsi, en choisissant un client, tu pourras ainsi afficher tous les devis du client, puis après choix du Devis ou ajout d'un nouveau devis, tu pourras avoir le détail du devis correspondant.
Exemple ci-joint

[marot_r]

Bonjour.

Et tu peux aussi envisager l'option de présenter une liste de valeur et que l'utilisateur ouvre un formulaire de saisie qui ne présente que l'enregistrement qu'il a sélectionné dans la liste.

Ou alors utiliser un formulaire en double affichage : Un côté liste, un côté "Fiche individuelle".
Note que ce mode d'affichage entraine des contraintes sur ce que tu peux ou ne peux pas utiliser dans ton formulaire.

A+

[morobaboumar]

Si j'ai bien compris, boite de dialogue = Formulaire de saisie.

Plusieurs pistes me viennent à l'esprit :
1. Modifier la propriété du formulaire Entrée de données sur Oui (Les données existantes ne seront pas affichées)
2. Utilisation d'un sous formulaire dans un formulaire principal.
En effet, d'après l'exemple, tu crées des devis. Cela suppose donc que tu as au moins trois tables. Une Table T_Clients, une table T_Devis et une table T_DetailsDevis.
Ainsi, en choisissant un client, tu pourras ainsi afficher tous les devis du client, puis après choix du Devis ou ajout d'un nouveau devis, tu pourras avoir le détail du devis correspondant.
Exemple ci-joint

Bonsoir Jeannot45,
bonsoir marot_r,
bonsoir membres du forum !

Merci infiniment encore une fois de m'accorder votre attention !
Je vais essayer d'adapter mon application à l'exemple de Jeannot45 tout en suivant vos conseils.
Sans être prétentieux, je vous envoie une copie de mon application afin de recevoir vos critiques et suggestions.
Cordialement.

[morobaboumar]

Si j'ai bien compris, boite de dialogue = Formulaire de saisie.

Plusieurs pistes me viennent à l'esprit :
1. Modifier la propriété du formulaire Entrée de données sur Oui (Les données existantes ne seront pas affichées)
2. Utilisation d'un sous formulaire dans un formulaire principal.
En effet, d'après l'exemple, tu crées des devis. Cela suppose donc que tu as au moins trois tables. Une Table T_Clients, une table T_Devis et une table T_DetailsDevis.
Ainsi, en choisissant un client, tu pourras ainsi afficher tous les devis du client, puis après choix du Devis ou ajout d'un nouveau devis, tu pourras avoir le détail du devis correspondant.
Exemple ci-joint

Bonsoir membres du forum !
J'ai observé votre pièce jointe qui est vraiment très intéressante. Je vais essayer de l'adapter à ma base de données.
Entre temps, j'ai créé un formulaire indépendant (Boite de dialogue) qui fait ce que je recherche.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
Option Compare Database: Option Explicit
 
Private Sub cmdFermer_Click()
DoCmd.Close acForm, Me.Name
End Sub
 
Private Sub CmdFournisseur_OperateurParticulier_Click()
On Error GoTo AMARASANOGO
    Dim stDocName As String
    stDocName = "Tbl_OPERATEUR"
    DoCmd.OpenForm stDocName
  Exit Sub
AMARASANOGO:
    MsgBox Err.Description
 
End Sub
 
Private Sub CmdTravauxMatériaux_Click()
On Error Resume Next
If MsgBox("ATTENTION !!" & vbCrLf & "VOULEZ-VOUS AJOUTER UN NOUVEAU TYPE ?" & vbCrLf & " OUBIEN Y APPORTER UNE MODIFICATION ?", vbQuestion + vbOKCancel + vbDefaultButton2, "AJOUT OU MODIFICATION") = vbCancel Then Exit Sub
DoCmd.OpenForm "TYPE_TRAVAUX_et_MATERIAUX"
End Sub
 
Private Sub Form_Load()
DoCmd.MoveSize 2900, 500, 16000, 10000
End Sub
 
Private Sub cmdEnregistrer_Click()
 
    If ControleChampsVides = False Then     'Au moins 1 champs obligatoire est vide
        Exit Sub
    Else
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
'DoCmd.Close acForm, Me.Name
End If
 
    ' Quelques variables
    Dim rst As dao.Recordset
    Dim lngNum As Long
 
    ' Ouvrir la table en lecture/écriture
    Set rst = CurrentDb.OpenRecordset("TRAVAUX_et_MATERIAUX_Engages_Detail_Facture", dbOpenDynaset)
 
    ' Boucler sur le nombre d'attestations demandées
    ''For lngNum = 0 To Me.txtNombreEnregistrements - 1
        ' Créer un enregistrement dans la table
        rst.AddNew
 
        ' Alimenter les champs
        rst("TexteSous_Designation") = Me.TexteSous_Designation_Txt
        rst("NumAutoSCmdSousDesignation") = Me.NumAutoSCmdSousDesignation_Txt
        rst("NUM_AUTO_Det_Fact") = fNUM_AUTO_Det_Fact() 'Me.NUM_AUTO_Det_Fact_Txt + lngNum
        rst("Num_Trav_Mat_Facture") = Me.Num_Trav_Mat_Facture_Txt
        rst("Mle_Operat_DetFact") = Me.Mle_Operat_DetFact_Txt
        rst("Date_Facturation") = Me.Date_Facturation_Txt
        rst("TravauxMateriaux") = Me.TravauxMateriaux_Txt
        rst("Designation_Cmde") = Me.Designation_Cmde_Txt
        rst("Designation_Cmde") = Me.Designation_Cmde_Txt
        rst("Qte_Cde") = Me.Qte_Cde_Txt
        rst("PrixUnitaire_Fact") = Me.PrixUnitaire_Fact_Txt
        rst("Fournisseur_OperateurParticulier") = Me.Fournisseur_OperateurParticulier_Txt
        rst("StatutFacture") = Me.StatutFacture_Txt
        ' Valider
        rst.Update
    'Next
 
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
 
'Code de Raffraichissement
    Forms!OPERATEUR![TRAVAUX_et_MATERIAUX_Engages_SF]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF].Requery
 
DoCmd.Close acForm, Me.Name
 
End Sub
 
 
Function ControleChampsVides() As Boolean
On Error Resume Next
 
'Contrôle du champ NumAutoSCmdSousDesignation_Txt
If IsNull(Me.NumAutoSCmdSousDesignation_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le NumAutoSCmdSousDesignation_Txt n'est pas sélectionné.", vbExclamation + vbOKOnly, "Sélectionnez le NumAutoSCmdSousDesignation_Txt"
    Me.NumAutoSCmdSousDesignation_Txt.SetFocus
    'Me.NumAutoSCmdSousDesignation_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
 
'Contrôle du champ Num_Trav_Mat_Facture_Txt
If IsNull(Me.Num_Trav_Mat_Facture_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le Num_Trav_Mat_Facture_Txt n'est pas sélectionné.", vbExclamation + vbOKOnly, "Sélectionnez le Num_Trav_Mat_Facture_Txt"
    Me.Num_Trav_Mat_Facture_Txt.SetFocus
    'Me.Num_Trav_Mat_Facture_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
'Contrôle du champ Mle_Operat_DetFact_Txt
If IsNull(Me.Mle_Operat_DetFact_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le Mle_Operat_DetFact_Txt n'est pas sélectionné.", vbExclamation + vbOKOnly, "Sélectionnez le Mle_Operat_DetFact_Txt"
    Me.Mle_Operat_DetFact_Txt.SetFocus
    'Me.Mle_Operat_DetFact_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
'Contrôle du champ Date
If IsNull(Me.Date_Facturation_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "La Date n'est pas sélectionnée.", vbExclamation + vbOKOnly, "Sélectionnez la Date_Facturation_Txt"
    Me.Date_Facturation_Txt.SetFocus
    'Me.Date_Facturation_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
'Contrôle du champ TravauxMateriaux_Txt
If IsNull(Me.TravauxMateriaux_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Les TravauxMateriaux_Txt ne sont pas sélectionnés.", vbExclamation + vbOKOnly, "Sélectionnez les TravauxMateriaux_Txt"
    Me.TravauxMateriaux_Txt.SetFocus
    'Me.TravauxMateriaux_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
 
'Contrôle du champ Designation_Cmde_Txt
If IsNull(Me.Designation_Cmde_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "La Designation_Cmde n'est pas sélectionnée.", vbExclamation + vbOKOnly, "Sélectionnez la Designation_Cmde_Txt"
    Me.Designation_Cmde_Txt.SetFocus
    'Me.Designation_Cmde_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
'Contrôle du Prix Unitaire
If Me.PrixUnitaire_Fact_Txt <= 0 Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le PrixUnitaire_Fact_Txt doit être supérieur à 0.", vbExclamation + vbOKOnly, "Montant incorrect"
    Me.PrixUnitaire_Fact_Txt.SetFocus
Exit Function
End If
'Contrôle de la Quantité
If Me.Qte_Cde_Txt <= 0 Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "La Quantité doit être supérieure à 0.", vbExclamation + vbOKOnly, "Quantité incorrecte"
    Me.Qte_Cde_Txt.SetFocus
Exit Function
End If
 
'Contrôle du champ Fournisseur_OperateurParticulier
If IsNull(Me.Fournisseur_OperateurParticulier_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le Fournisseur_OperateurParticulier Facture n'est pas sélectionné.", vbExclamation + vbOKOnly, "Sélectionnez le Fournisseur_OperateurParticulier"
    Me.Fournisseur_OperateurParticulier_Txt.SetFocus
    'Me.Fournisseur_OperateurParticulier_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
'Contrôle du champ StatutFacture
If IsNull(Me.StatutFacture_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le Statut Facture n'est pas sélectionné.", vbExclamation + vbOKOnly, "Sélectionnez le Statut Facture"
    Me.StatutFacture_Txt.SetFocus
    'Me.StatutFacture_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
ControleChampsVides = True
End Function
 
Private Sub Form_Open(Cancel As Integer)
    Me.NomPrenomOPERATEUR_FINANCEMENT = UCase(NomPrenom_OPERATEUR(Me.Mle_Operat_DetFact_Txt))
 
End Sub
 
Private Sub Fournisseur_OperateurParticulier_Txt_LostFocus()
Me.Aperçu_Fournisseur_OperateurParticulier = RamenerOperateur(Me.Fournisseur_OperateurParticulier_Txt)
End Sub
 
Private Sub NumAutoSCmdSousDesignation_Txt_AfterUpdate()
Me.TexteSous_Designation_Txt = RamenerSous_Designation(Me.NumAutoSCmdSousDesignation_Txt)
End Sub
 
Private Sub NumAutoSCmdSousDesignation_Txt_LostFocus()
Me.TexteSous_Designation_Txt = RamenerSous_Designation(Me.NumAutoSCmdSousDesignation_Txt)
End Sub
 
Private Sub StatutFacture_Txt_LostFocus()
Me.ApercuStatutFacture = RamenerlibelleStatutFacture(Me.StatutFacture_Txt)
End Sub
 
Private Sub TravauxMateriaux_Txt_AfterUpdate()
Me.Aperçu_Libelle_TravauxMateriaux = RamenerlibelleDesTravauxMateriaux(Me.TravauxMateriaux_Txt)
End Sub
 
Private Sub TravauxMateriaux_Txt_LostFocus()
Me.Aperçu_Libelle_TravauxMateriaux = RamenerlibelleDesTravauxMateriaux(Me.TravauxMateriaux_Txt)
End Sub

- Pièce jointe copie BD.

[Jeannot45]

Pourquoi être passé par un formulaire indépendant ?

[morobaboumar]

Pourquoi être passé par un formulaire indépendant ?

Bonjour membres du forum !

Parce que habituellement, je crée une boîte de dialogue avec un formulaire dépendant d'une table.
Mais je remarque, lorsque cette boîte de dialogue est chargée, elle charge toutes les
informations contenues dans la table dont elle dépend. Ce qui parfois provoque chez moi le
mélange d'enregistrements par erreur de touche de claviers de mon ordinateur, etc.

Alors qu'avec le formulaire indépendant, au chargement, il est vide. Donc, une fois bien programmé,
il insère les données dans la table dont il est chargé de remplir.

Voila mon avis.
Cordialement.

[hyperion13]

Si c'est pour ajouter de nouveaux enregistrements alors autant utiliser

Code :

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

DoCmd.OpenForm "Nomduform", , , , acFormAdd

[morobaboumar]

Si c'est pour ajouter de nouveaux enregistrements alors autant utiliser

Code :

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

DoCmd.OpenForm "Nomduform", , , , acFormAdd

Bonsoir membres du forum !
Merci infiniment. Le code ci dessus marche.

Code :

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

DoCmd.OpenForm "TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF_Boite_SaisieIndep", , , , acFormAdd

Maintenant, je recherche la méthode dans le code qui pourrait me permettre de recharger l'enregistrement
sur laquelle le curseur est posé afin d'y apporter une correction ou une modification.

C'est à dire: après double-clique dans le champ bleu "NUM_AUTO_Det_Fact" du sous-formulaire
"Formulaires]![OPERATEUR]![TRAVAUX_et_MATERIAUX_Engages_SF]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF]![NUM_AUTO_Det_Fact]" de l'enregistrement sélectionne
pour y apporter une correction ou une modification.

Cordialement.

[Jeannot45]

Il faut faire un recordset sur l'enregistrement correspondant et affecter chaque valeur de champ du recordset au contrôle correspondant dans le formulaire .

[morobaboumar]

Il faut faire un recordset sur l'enregistrement correspondant et affecter chaque valeur de champ du recordset au contrôle correspondant dans le formulaire .

Bonjour membres du forum !

Voici le lien https://access.developpez.com/faq/?p...m#PosEnrSSForm qui indique différent code sur le Recordset

Aidez moi à y adopter mon code:

Code :

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

DoCmd.OpenForm "TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF_Boite_SaisieIndep", , , , acFormAdd

oubien

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
27
28
29
30
Sub Appel_TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF_Boite_SaisieIndep()
On Error Resume Next
Dim stDocName As String
Dim stLinkCriteria As String
Dim rep As Integer
 
stDocName = "TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF_Boite_SaisieIndep"
 
rep = MsgBox("QUE VOULEZ-VOUS FAIRE ?" & vbCrLf & "AJOUTER DES DONNEES ---> OUI" & _
vbCrLf & "" & vbCrLf & "MODIFIER LES NOUVELLES DONNEES EN COURS ---> NON" & vbCrLf & "" & vbCrLf & "QUITTER SANS RIEN FAIRE ---> ANNULER", _
vbYesNoCancel + vbQuestion, "Choisir un traitement")
Select Case rep
Case vbYes
    DoCmd.OpenForm stDocName, , , , , , Me.Mle_Operat_DetFact
    nEnreg = Me.Num_Trav_Mat_Facture
Case vbNo
    If Me.NewRecord = True Then
       If MsgBox("AUCUNE NOUVELLE DONNEE N'EST ACTIVE POUR CET OPERATEUR !!" & vbCrLf & "VOULEZ-VOUS AJOUTER DES DONNEES ?", vbYesNo + vbQuestion, "AJOUTER NOUVELLES DONNEES") = vbYes Then
           DoCmd.OpenForm stDocName, , , , , , Me.Mle_Operat_DetFact
       End If
    Else
        stLinkCriteria = "[NUM_AUTO_Det_Fact]=" & Me.NUM_AUTO_Det_Fact
        DoCmd.OpenForm stDocName, , , stLinkCriteria
        nEnreg = Me.Num_Trav_Mat_Facture
 
   End If
Case vbCancel
Case Else
End Select
End Sub

et le code du formulaire-Boite de dialogue "TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF_Boite_SaisieIndep"

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub cmdEnregistrer_Click()
 
    If ControleChampsVides = False Then     'Au moins 1 champs obligatoire est vide
        Exit Sub
    Else
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
'DoCmd.Close acForm, Me.Name
End If
 
    ' Quelques variables
    Dim rst As dao.Recordset
    Dim lngNum As Long
 
    ' Ouvrir la table en lecture/écriture
    Set rst = CurrentDb.OpenRecordset("TRAVAUX_et_MATERIAUX_Engages_Detail_Facture", dbOpenDynaset)
 
    ' Boucler sur le nombre d'attestations demandées
    ''For lngNum = 0 To Me.txtNombreEnregistrements - 1
        ' Créer un enregistrement dans la table
        rst.AddNew
 
        ' Alimenter les champs
        rst("TexteSous_Designation") = Me.TexteSous_Designation_Txt
        rst("NumAutoSCmdSousDesignation") = Me.NumAutoSCmdSousDesignation_Txt
        rst("NUM_AUTO_Det_Fact") = fNUM_AUTO_Det_Fact() 'Me.NUM_AUTO_Det_Fact_Txt + lngNum
        rst("Num_Trav_Mat_Facture") = Me.Num_Trav_Mat_Facture_Txt
        rst("Mle_Operat_DetFact") = Me.Mle_Operat_DetFact_Txt
        rst("Date_Facturation") = Me.Date_Facturation_Txt
        rst("TravauxMateriaux") = Me.TravauxMateriaux_Txt
        rst("Designation_Cmde") = Me.Designation_Cmde_Txt
        rst("Designation_Cmde") = Me.Designation_Cmde_Txt
        rst("Qte_Cde") = Me.Qte_Cde_Txt
        rst("PrixUnitaire_Fact") = Me.PrixUnitaire_Fact_Txt
        rst("Fournisseur_OperateurParticulier") = Me.Fournisseur_OperateurParticulier_Txt
        rst("StatutFacture") = Me.StatutFacture_Txt
        ' Valider
        rst.Update
    'Next
 
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
 
'Code de Raffraichissement
    Forms!OPERATEUR![TRAVAUX_et_MATERIAUX_Engages_SF]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF].Requery
 
DoCmd.Close acForm, Me.Name
 
End Sub

Code :

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

1
2
3
4
Private Sub Form_Open(Cancel As Integer)
Me.NomPrenomOPERATEUR_FINANCEMENT = UCase(NomPrenom_OPERATEUR(Me.Mle_Operat_DetFact_Txt))
Me.NUM_AUTO_Det_Fact_Txt = fNUM_AUTO_Det_Fact()
End Sub

J'ai modifié le formulaire "TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF_Boite_SaisieIndep" en y ajoutant un contrôle onglet "CtlTab1TRAVAUX_et_MATERIAUX_Engages_Detail_Facture" dont le deuxième onglet "MODIFICATION DE DONNEES" contient
une zone de liste "ListeTRAVAUX_et_MATERIAUX_Engages_Detail_Facture" prévu pour la modification ou suppression de données précédentes.




Nouvelle pièce jointe

Cordialement.

[morobaboumar]

Il faut faire un recordset sur l'enregistrement correspondant et affecter chaque valeur de champ du recordset au contrôle correspondant dans le formulaire .

Salut !

Pourriez vous me donner un exemple de la méthode que vous venez de me suggérée ?
Ain que je puisse l'adapter à mon cas.
Cordialement.

[hyperion13]

Lorsque j'ai proposé la méthode

Code :

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

DoCmd.OpenForm "TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF_Boite_SaisieIndep", , , , acFormAdd

cela impliquait que votre form "TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF_Boite_SaisieIndep" restait attaché à une source (tbl ou req). Donc il n'était plus indépendant.

Également, pour confirmer ou non le nouvel enregistrement voire des modifications dans votre form "TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF_Boite_SaisieIndep", il y a à mon avis plus simple

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If MsgBox("Des modifications ont été apportées dans votre form." _
        & vbCrLf & vbCrLf & "Voulez-vous enregistrer ces modification ?" _
        , vbYesNo, "Modifications effectuées ...") = vbYes Then
        DoCmd.Save
    Else
        DoCmd.RunCommand acCmdUndo
    End If
End Sub

Mais vous devez aimer écrire des lignes de code et encore des lignes de code.

[morobaboumar]

Bonjour hyperyon13 !

1°) Après plusieurs tests, je constate que votre code marche avec l'événement suivant:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Close()
If MsgBox("Des modifications ont été apportées dans votre form." _
        & vbCrLf & vbCrLf & "Voulez-vous enregistrer ces modification ?" _
        , vbYesNo, "Modifications effectuées ...") = vbYes Then
        DoCmd.Save
    Else
        DoCmd.RunCommand acCmdUndo
    End If
End Sub

mais avec un message d'erreur (voir capture d'écran):




2°) Comment recharger dans le form "TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF_Boite_SaisieIndep" grâce à du code les un enregistrement précédant afin d'y apporter des modifications ?

Cordialement.

[tee_grandbois]

bonjour,
hyperion13 te propose un code sur cet évènement:

Code :

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

Private Sub Form_BeforeUpdate(Cancel As Integer)

et tu le fais sur celui-ci:

Code :

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

Private Sub Form_Close()

normal que cela plante: sur fermeture d'un formulaire, il est trop tard pour exécuter un Undo

[morobaboumar]

Bonsoir Tee_grandbois, bonsoir hyperyon13 !

Avec l'événement avant mis à jour, il n y a pas de message de confirmation qui apparaît.
C'est pour ça que j'ai essayé le code avec l'événement à la fermeture du formulaire.
Je voudrais mieux connaître l'objet Undo.

2°) Comment pourrais-je recharger un enregistrement précédent dans le formulaire en question ?
Cordialement.

[tee_grandbois]

Si cela ne fonctionne pas dans l'évènement BeforeUpdate c'est que c'est sans doute un formulaire sans table associée avec des champs indépendants

[morobaboumar]

Si cela ne fonctionne pas dans l'évènement BeforeUpdate c'est que c'est sans doute un formulaire sans table associée avec des champs indépendants

Oui c'est un formulaire indépendant sans table associée.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
  Option Compare Database: Option Explicit
 
Private Sub cmdFermer_Click()
DoCmd.Close acForm, Me.Name
End Sub
 
Private Sub CmdFournisseur_OperateurParticulier_Click()
On Error GoTo AMARASANOGO
    Dim stDocName As String
    stDocName = "Tbl_OPERATEUR"
    DoCmd.OpenForm stDocName
  Exit Sub
AMARASANOGO:
    MsgBox Err.Description
 
End Sub
 
Private Sub CmdTravauxMatériaux_Click()
On Error Resume Next
If MsgBox("ATTENTION !!" & vbCrLf & "VOULEZ-VOUS AJOUTER UN NOUVEAU TYPE ?" & vbCrLf & " OUBIEN Y APPORTER UNE MODIFICATION ?", vbQuestion + vbOKCancel + vbDefaultButton2, "AJOUT OU MODIFICATION") = vbCancel Then Exit Sub
DoCmd.OpenForm "TYPE_TRAVAUX_et_MATERIAUX"
End Sub
 
Private Sub Form_Load()
DoCmd.MoveSize 2900, 500, 16000, 10000
End Sub
 
Private Sub cmdEnregistrer_Click()
 
    If ControleChampsVides = False Then     'Au moins 1 champs obligatoire est vide
        Exit Sub
    Else
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
'DoCmd.Close acForm, Me.Name
End If
 
    ' Quelques variables
    Dim rst As dao.Recordset
    Dim lngNum As Long
 
    ' Ouvrir la table en lecture/écriture
    Set rst = CurrentDb.OpenRecordset("TRAVAUX_et_MATERIAUX_Engages_Detail_Facture", dbOpenDynaset)
 
    ' Boucler sur le nombre d'attestations demandées
    ''For lngNum = 0 To Me.txtNombreEnregistrements - 1
        ' Créer un enregistrement dans la table
        rst.AddNew
 
        ' Alimenter les champs
        rst("TexteSous_Designation") = Me.TexteSous_Designation_Txt
        rst("NumAutoSCmdSousDesignation") = Me.NumAutoSCmdSousDesignation_Txt
        rst("NUM_AUTO_Det_Fact") = fNUM_AUTO_Det_Fact() 'Me.NUM_AUTO_Det_Fact_Txt + lngNum
        rst("Num_Trav_Mat_Facture") = Me.Num_Trav_Mat_Facture_Txt
        rst("Mle_Operat_DetFact") = Me.Mle_Operat_DetFact_Txt
        rst("Date_Facturation") = Me.Date_Facturation_Txt
        rst("TravauxMateriaux") = Me.TravauxMateriaux_Txt
        rst("Designation_Cmde") = Me.Designation_Cmde_Txt
        rst("Designation_Cmde") = Me.Designation_Cmde_Txt
        rst("Qte_Cde") = Me.Qte_Cde_Txt
        rst("PrixUnitaire_Fact") = Me.PrixUnitaire_Fact_Txt
        rst("Fournisseur_OperateurParticulier") = Me.Fournisseur_OperateurParticulier_Txt
        rst("StatutFacture") = Me.StatutFacture_Txt
        ' Valider
        rst.Update
    'Next
 
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
 
'Code de Raffraichissement
    Forms!OPERATEUR![TRAVAUX_et_MATERIAUX_Engages_SF]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_SF].Requery
 
DoCmd.Close acForm, Me.Name
 
End Sub
 
 
Function ControleChampsVides() As Boolean
On Error Resume Next
 
'Contrôle du champ NumAutoSCmdSousDesignation_Txt
If IsNull(Me.NumAutoSCmdSousDesignation_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le NumAutoSCmdSousDesignation_Txt n'est pas sélectionné.", vbExclamation + vbOKOnly, "Sélectionnez le NumAutoSCmdSousDesignation_Txt"
    Me.NumAutoSCmdSousDesignation_Txt.SetFocus
    'Me.NumAutoSCmdSousDesignation_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
 
'Contrôle du champ Num_Trav_Mat_Facture_Txt
If IsNull(Me.Num_Trav_Mat_Facture_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le Num_Trav_Mat_Facture_Txt n'est pas sélectionné.", vbExclamation + vbOKOnly, "Sélectionnez le Num_Trav_Mat_Facture_Txt"
    Me.Num_Trav_Mat_Facture_Txt.SetFocus
    'Me.Num_Trav_Mat_Facture_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
'Contrôle du champ Mle_Operat_DetFact_Txt
If IsNull(Me.Mle_Operat_DetFact_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le Mle_Operat_DetFact_Txt n'est pas sélectionné.", vbExclamation + vbOKOnly, "Sélectionnez le Mle_Operat_DetFact_Txt"
    Me.Mle_Operat_DetFact_Txt.SetFocus
    'Me.Mle_Operat_DetFact_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
'Contrôle du champ Date
If IsNull(Me.Date_Facturation_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "La Date n'est pas sélectionnée.", vbExclamation + vbOKOnly, "Sélectionnez la Date_Facturation_Txt"
    Me.Date_Facturation_Txt.SetFocus
    'Me.Date_Facturation_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
'Contrôle du champ TravauxMateriaux_Txt
If IsNull(Me.TravauxMateriaux_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Les TravauxMateriaux_Txt ne sont pas sélectionnés.", vbExclamation + vbOKOnly, "Sélectionnez les TravauxMateriaux_Txt"
    Me.TravauxMateriaux_Txt.SetFocus
    'Me.TravauxMateriaux_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
 
'Contrôle du champ Designation_Cmde_Txt
If IsNull(Me.Designation_Cmde_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "La Designation_Cmde n'est pas sélectionnée.", vbExclamation + vbOKOnly, "Sélectionnez la Designation_Cmde_Txt"
    Me.Designation_Cmde_Txt.SetFocus
    'Me.Designation_Cmde_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
'Contrôle du Prix Unitaire
If Me.PrixUnitaire_Fact_Txt <= 0 Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le PrixUnitaire_Fact_Txt doit être supérieur à 0.", vbExclamation + vbOKOnly, "Montant incorrect"
    Me.PrixUnitaire_Fact_Txt.SetFocus
Exit Function
End If
'Contrôle de la Quantité
If Me.Qte_Cde_Txt <= 0 Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "La Quantité doit être supérieure à 0.", vbExclamation + vbOKOnly, "Quantité incorrecte"
    Me.Qte_Cde_Txt.SetFocus
Exit Function
End If
 
'Contrôle du champ Fournisseur_OperateurParticulier
If IsNull(Me.Fournisseur_OperateurParticulier_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le Fournisseur_OperateurParticulier Facture n'est pas sélectionné.", vbExclamation + vbOKOnly, "Sélectionnez le Fournisseur_OperateurParticulier"
    Me.Fournisseur_OperateurParticulier_Txt.SetFocus
    'Me.Fournisseur_OperateurParticulier_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
'Contrôle du champ StatutFacture
If IsNull(Me.StatutFacture_Txt) Then
    ControleChampsVides = False
    MsgBox "ATTENTION !" & vbCrLf & "Le Statut Facture n'est pas sélectionné.", vbExclamation + vbOKOnly, "Sélectionnez le Statut Facture"
    Me.StatutFacture_Txt.SetFocus
    'Me.StatutFacture_Txt.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
   SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
Exit Function
End If
ControleChampsVides = True
End Function
 
Private Sub Form_Open(Cancel As Integer)
    Me.NomPrenomOPERATEUR_FINANCEMENT = UCase(NomPrenom_OPERATEUR(Me.Mle_Operat_DetFact_Txt))
 
End Sub
 
Private Sub Fournisseur_OperateurParticulier_Txt_LostFocus()
Me.Aperçu_Fournisseur_OperateurParticulier = RamenerOperateur(Me.Fournisseur_OperateurParticulier_Txt)
End Sub
 
Private Sub NumAutoSCmdSousDesignation_Txt_AfterUpdate()
Me.TexteSous_Designation_Txt = RamenerSous_Designation(Me.NumAutoSCmdSousDesignation_Txt)
End Sub
 
Private Sub NumAutoSCmdSousDesignation_Txt_LostFocus()
Me.TexteSous_Designation_Txt = RamenerSous_Designation(Me.NumAutoSCmdSousDesignation_Txt)
End Sub
 
Private Sub StatutFacture_Txt_LostFocus()
Me.ApercuStatutFacture = RamenerlibelleStatutFacture(Me.StatutFacture_Txt)
End Sub
 
Private Sub TravauxMateriaux_Txt_AfterUpdate()
Me.Aperçu_Libelle_TravauxMateriaux = RamenerlibelleDesTravauxMateriaux(Me.TravauxMateriaux_Txt)
End Sub
 
Private Sub TravauxMateriaux_Txt_LostFocus()
Me.Aperçu_Libelle_TravauxMateriaux = RamenerlibelleDesTravauxMateriaux(Me.TravauxMateriaux_Txt)
End Sub

Voir les codes au 1er post de la discussion.
Cordialement.

[tee_grandbois]

si c'est un formulaire indépendant (mais on t'a déjà fait la remarque que ce n'est pas la bonne méthode car on peut ouvrir en formulaire en mode "Entrée de données" pour éviter d'avoir tous les enregistrements de la table), il est inutile de mettre un Undo (l'annulation concerne la saisie dans la table, pas les contrôles du formulaire)

[morobaboumar]

Dois je revenir au formulaire dépendant ?