Discussion :

[puppusse79]

Bonjour,
J'utilise un code similaire sur un autre formulaire qui fonctionne tout à fait:

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
'Bouton Valider du premier onglet "Etat Civil"
  '¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
  Private Sub Ctl1Bt_Valid_Click()
    'Déclaration des recordsets
      Dim oRstLic As DAO.Recordset
 
      'Enregistrement des modifications dans la table licenciés
        Set oRstLic = CurrentDb.OpenRecordset("LICENCIES")
 
          If oRstLic.Fields("Li_NumAuto") = Me.Ctl1Tx_NumAuto Then
            With oRstLic
              .Edit
              .Fields("Li_Nom") = Me.Ctl1Tx_Nom
              .Fields("Li_Prenom") = Me.Ctl1Tx_Prenom
              ...
              .Update
              MsgBox "La mise à jour de la personne a bien été effectué!"
            End With
            Else
              MsgBox "erreur"
          End If

Cependant, sur le formulaire qui pose problème, à l'éxécution il m'affiche toujours le message "erreur", donc on dirait qu'il ne parvient pas à faire la comparaison:Li_NumAuto et Ctl1Tx_NumAuto.
Qu'en pensez-vous?

[loufab]

Bonjour,

"Erreur" tout seul c'est un peu vague !

Merci d'être moins précise ou plus floue dans tes indications.
La ligne qui plante, le numéro d'erreur et sa description.
Le debogage est souvent nécessaire... que contiennent les variables, les controles, les contenus Fields...

Cordialement,

[puppusse79]

Non, je n'ai pas de message d'erreur, juste mon messbox "erreur" ce qui prouve que le résultat de mon IF est négatif.....

[Faw]

Salut,
essaye en te positionnant sur le recordset

Code :

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

oRstLic.movefirst

Vu ton code, si le premier enregistrement rencontré est celui recherché c'est ok
sinon, tu aura le msgbox "erreur" qui va s'exécuter. Logique tout ça mais pas
cohérent, à moin que ta table LICINCIES ne comporte qu'un enregistrement à la fois...

[Mahefasoa]

Bonjour,
Je veux apporter quelques précisions: si LICENCIES est une table et contient plus d'un enregistrements, alors il est presque impossible que tu "tombes" directement sur l'enregistrement à modifier. Il faut, pour cela, que tu fasses un parcour ou une recherche de l'enregistrement adéquat afin que le CURSOR se positionne sur l'enregistrement à modifier.
Donc je modifierai ton code de la manière suivante:

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
'Bouton Valider du premier onglet "Etat Civil"
  '¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
  Private Sub Ctl1Bt_Valid_Click()
    'Déclaration des recordsets
      Dim oRstLic As DAO.Recordset
 
      'Enregistrement des modifications dans la table licenciés
        Set oRstLic = CurrentDb.OpenRecordset("LICENCIES", dbOpenDynaset)
        With oRstLic
          .FindFirst "[Li_NumAuto] = " & Me.Ctl1Tx_NumAuto
          If .NoMatch = False Then
              .Edit
              .Fields("Li_Nom") = Me.Ctl1Tx_Nom
              .Fields("Li_Prenom") = Me.Ctl1Tx_Prenom
              ...
              .Update
              MsgBox "La mise à jour de la personne a bien été effectué!"
          Else
              MsgBox "erreur"
          End If

Par ailleurs, il est judicieux de vérifier si l'objet Recordset contient au moin un enregistrement. Donc le code se transforme en:

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
'Bouton Valider du premier onglet "Etat Civil"
  '¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
  Private Sub Ctl1Bt_Valid_Click()
    'Déclaration des recordsets
      Dim oRstLic As DAO.Recordset
 
      'Enregistrement des modifications dans la table licenciés
        Set oRstLic = CurrentDb.OpenRecordset("LICENCIES", dbOpenDynaset)
        With oRstLic
          If .RecordCount <> 0 Then
            .FindFirst "[Li_NumAuto] = " & Me.Ctl1Tx_NumAuto
            If .NoMatch = False Then
                .Edit
                .Fields("Li_Nom") = Me.Ctl1Tx_Nom
                .Fields("Li_Prenom") = Me.Ctl1Tx_Prenom
                ...
                .Update
                MsgBox "La mise à jour de la personne a bien été effectué!"
            Else
                MsgBox "erreur"
            End If
          End If

Une autre astuce est d'utiliser une requête Action (Mise à jour) dans le style

Code SQL :

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

1
2
 
UPDATE LICENCIES SET Li_Nom = Forms![NomForm]![Ctl1Tx_Nom, Li_Prenom = Forms![NomForm]![Ctl1Tx_Prenom] WHERE Li_NumAuto = Forms![nomForm]![Ctl1Tx_NumAuto];

Bon courage et @+

[puppusse79]

Oui c'est clair, je vais essayé avec une boucle, par contre, maintenant, je comprends pas pourquoi ca marche sur mon autre formulaire alors que la table contient plusieurs enregistrements aussi!!!

[puppusse79]

Merci mahefasoa, j'essaie de suite et je vous tiens au courant.

[puppusse79]

Apres plusieurs essais, j'ai enfin trouvé la solution. En fait, je liais uniquement les champs pour lequels il pouvait y avoir un enregistrement fait précedemment sur un autre formulaire. J'ai donc modifié ceci, et maintenant ça marche!!! Merci bcp