Bonjour,
petit souci sur un bouton Valider d'un formulaire. Le dernier champ du formulaire remplit (et ou est encore le curseur) ne s'enregistre pas dans la base. J'ai fais plusieurs essais, c'est le même probleme peu importe quel est le controle rempli en dernier. D'ou cela peut-il venir?
Voici mon code sur ce bouton:
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
'BT_VALID___________________________________________________________________________________
'********
    Private Sub Bt_Valid_Click()
        Dim oRst As DAO.Recordset 'Déclaration
        Dim entreprise
            Me.Bt_Valid.SpecialEffect = 2
            Set oRst = CurrentDb.OpenRecordset("RECLASSEMENT")
                With oRst
                    .AddNew
                    .Fields("ER_Siret") = Me.Tx_Siret
                    .Fields("ER_RaisonSoc") = Me.Tx_Raison
                    .Fields("ER_Adresse") = Me.Tx_Adresse
                    .Fields("ER_CP") = Me.Tx_CP
                    .Fields("ER_Ville") = Me.Tx_Ville
                    .Fields("ER_Tel") = Me.Tx_Tel
                    .Fields("ER_Fax") = Me.Tx_Fax
                    .Fields("ER_Mail") = Me.Tx_Mail
                    .Fields("ER_Site") = Me.Tx_Site
                    .Fields("ER_TitreC") = Me.Lm_TitreC
                    .Fields("ER_NomC") = Me.Tx_NomC
                    .Fields("ER_PrenomC") = Me.Tx_PrenomC
                    .Fields("ER_TelC1") = Me.Tx_TelC1
                    .Fields("ER_TelC2") = Me.Tx_TelC2
                    .Fields("ER_MailC") = Me.Tx_MailC
                    .Fields("ER_Commentaires") = Me.Tx_Commentaires
                    .Fields("ER_CommentairesC") = Me.Tx_CommentairesC
                    .Fields("ER_EffectifLicencie") = Me.Tx_Effectif
                    .Fields("ER_DateLicenciement") = Me.Tx_Date
                    .Update
                    entreprise = Tx_Raison
                    If MsgBox("Voulez- vous saisir la liste des licenciés de l'entreprise " & entreprise & " maintenant?", vbYesNo) = vbNo Then
                      DoCmd.Close
                      Else
                        DoCmd.OpenForm "SaisieLicenciés", acNormal, , , , , "Ouvre le formulaire Licenciés"
                    End If
                End With
                Me.Bt_Valid.SpecialEffect = 1
    End Sub
Merci d'avance