Discussion :

[Siramane]

Bonjour tout le monde,

j'ai un petit souci. Sur l'image ci-dessus, lorsque l'utilisateur rentre par exemple "01" pour le "code taux", une nouvelle ligne apparaît et il peut entrer de l'information, ainsi de suite.

Moi je ne veux pas qu'il rentre deux fois le même "code taux". Je veux créer un message d'erreur du genre :

Code :

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

1
2
3
If Me.cbocodetxsub.ItemData(0) = "01" And Me.cbocodetxsub.ItemData(1) = "01" Then
      MsgBox "Une seule occurence par code de taux peut être déclaré. Aucun double n'est permis ici.", vbOKOnly, "Message d'erreur!"
End If

le nom de la zone de liste déroulante est "cbocodetxsub".
Mais je ne sais pas c'est quoi le code pour aller chercher la prochaine valeur que l'utilisateur va rentrer.
J'espère que j'ai bien expliquer.






Merci pour votre aide.

[argyronet]

Bonjour,

Plusieurs solutions...
La plus simple est d'indexer sans doublons le champ de la table fondé sur cette liste et de gérer de façon optimiste l'erreur 3022 via Form_error().

Argy

[Siramane]

Merci Argy pour votre solution. Est-ce que vous pouvez me pister sur une solution de code!?

Merci !

[argyronet]

Bien vous pouvez vous inspirer (ou recopier) une procédure dans le genre :

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
 
 
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const ERR_DOUBLON                                      As Long = 3022
 
    Select Case DataErr
        Case ERR_DOUBLON
            strErrMessage "Vous ne pouvez pas choisir deux fois la même valeur dans deux enregistrements distincts !"
            'Case ...
            'Case ...
        Case Else
            strErrMessage = "L'erreur '" & DataErr & "' est survenue durant la saisie :" & vbCrLf & AccessError(DataErr)
    End Select
    MsgBox strErrMessage, vbExclamation, "Erreur de saisie"
    Me.ActiveControl.Undo
    Response = acDataErrContinue
End Sub

A vous de définir les constantes idoines en plus et d'adapter les Case.
Les plus usitées sont 2213, 3058, 2279 et 2237.

Argy