Discussion :

[pecunia]

Lors de la mise à jour d'un enregistremnet d'une base de données, le gestionnaire d'erreurs teste les doublons (code ci-joint) : Comment pointer sur l'enregistrement doublon ?

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
 
Sub Enregistremnet
    On Error GoTo Erreur_Doublon
    DataEnvironment1.rsTcat.Update
    On Error GoTo 0                
    Exit Sub
 
Erreur_Doublon:
    msg = "Cette monnaie est déjà enregistrée : Voulez-vous ajouter un exemplaire à l'enregistrement existant ?"
    R = MsgBox(msg, vbYesNo)
    If R = vbYes Then
        MsgBox "Mise à jour de l'enregistrement existant"     
        ' Rechercher et pointer l'enregistrement existant
 
 
        ' Mettre à jour l'enregistrement existant trouvé : un emplaire en plus
        DataEnvironment1.rsTcat.fields("Quantité").value = DataEnvironment1.rsTcat.fields("Quantité").value + 1          
        Resume Next
    Else
        ' Rectifier l'enregistrement en cours pour qu'il ne soit plus doublon
        msg = "Veuillez modifier un des dix champs obligatoires"
        MsgBox msg, , "Traitement des doublons"
        Exit Sub
    End If
End Sub

[Xo]

Ca m'étonnerait que tu puisses le faire directement en récupérant l'erreur sur un Update de ton RecordSet, je pense qu'il te faut gérer le code de la lecture desdits doublons afin de les identifier précisement ... Maintenant, je ne me sers pas de cette méthode, à voir si d'autres avis me contredisent

[jacma]

Bonsoir
Essayes le code si-après. J'ai utilisé le recordset sous jacent d'un dataenvironment, mais c'est un recordset comme un autre...

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
Private Sub btnAjout_Click()
 
  On Error GoTo GestErreur
 
  Dim strValEnCours As String
  DataEnvironment2.rsCommand2.AddNew
 
Exit Sub
GestErreur:
  If Err.Number = -2147467259 Then  'valeur de l'erreur retournée pour un doublon
    strValEnCours = Text1  'valeur du doublon tel que saisie dans la textbox
    DataEnvironment2.rsCommand2.CancelUpdate
    DataEnvironment2.rsCommand2.MoveFirst
    DataEnvironment2.rsCommand2.Find "ID_Representant = '" & strValEnCours & "'"
    Resume Next
  End If
exit sub
End Sub

Ainsi, l'enregistrement en cours est celui dont tu as saisi la valeur dans strValeur en cours..., donc l'original.