Merci pour vos reponses...
C vrai, et comme j'ai dit avant, VB a son propre message d'erreur et par defaut il est impossible de doubler l'enregistrement d'une Clé primaire... mais juste après le message de VB ===> l'application est fermée ! et c ce que je vx eviter en lançant un message d'erreur personnalisé...
J'ai essayé d'exploiter le code de recherche (qui fonctionne bien déja) et l'integrer dans "Ajouter_Click" mais ça marche pas :
1 2 3 4 5 6 7 8 9 10 11 12 13
| Dim Donne, Valeur, Rang As String
NumEnreg = DataEnvironment1.rsETCV.AbsolutePosition
Rang = acte_num_sc ' le nom du rang qui contien la clé primaire
Donne = acte_num_sc.Text 'zone ou je tapte la clé pour effectuer un
enregistrement
DataEnvironment1.rsETCV.Filter = Rang & "='" & Donne & "'"
If acte_num_sc = "" Then
DataEnvironment1.rsETCV.Filter = adFilterNone
DataEnvironment1.rsETCV.MoveFirst
DataEnvironment1.rsETCV.Move NumEnreg - 1
'--------"Aucun enregistrement trouvé" Effectuer l'enregistrement
End If
'--------"Nombre d'enregistrements trouvés" Message d'erreur |
Quand je lance ce code j'ai une erreur "risque de doublons" au niveau de :
DataEnvironment1.rsETCV.Filter = Rang & "='" & Donne & "'"
Quoi faire... ? Et merci d'avance !
Partager