Discussion :

[TiavinaFriche]

Bonjour,

J'ai ce code qui me permettrait de contrôle après mise à jour que la combinaison ID_CRI + LIB_CRI + INSTANCE n'existe pas mais je ne sais pas pourquoi mon code ne fonctionne pas.


Pouvez-vous m'aider svp ?

Merci !

Code :

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

1
2
3
4
5
6
7
8
Private Sub ID_CRI_BeforeUpdate(Cancel As Integer)
If IsNull(Me.LIB_CRI And Me.INSTANCE) Then Exit Sub
If DCount("*", "Tab_CRI_", "ID_CRI = """ & Me.ID_CRI & """ And LIB_CRI = """ & Me.LIB_CRI & """") <> 0 Then
If DCount("*", "Tab_CRI_", "ID_CRI = """ & Me.ID_CRI & """ And INSTANCE = """ & Me.INSTANCE & """") <> 0 Then
  MsgBox "Cet ajout ferait doublon !", vbCritical
  Cancel = True
End If
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub LIB_CRI_BeforeUpdate(Cancel As Integer)
If IsNull(Me.ID_CRI And Me.INSTANCE) Then Exit Sub
If DCount("*", "Tab_CRI_", "ID_CRI = """ & Me.ID_CRI & """ and LIB_CRI = """ & Me.LIB_CRI & """") <> 0 Then
If DCount("*", "Tab_CRI_", "ID_CRI = """ & Me.ID_CRI & """ And INSTANCE = """ & Me.INSTANCE & """") <> 0 Then
  MsgBox "Cet ajout ferait doublon !", vbCritical
  Cancel = True
 
End If
End Sub

Code :

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

1
2
3
4
5
6
7
8
Private Sub INSTANCE_BeforeUpdate(Cancel As Integer)
If IsNull(Me.ID_CRI And Me.LIB_CRI) Then Exit Sub
If DCount("*", "Tab_CRI_", "ID_CRI = """ & Me.ID_CRI & """ and LIB_CRI = """ & Me.LIB_CRI & """") <> 0 Then
If DCount("*", "Tab_CRI_", "ID_CRI = """ & Me.ID_CRI & """ And INSTANCE = """ & Me.INSTANCE & """") <> 0 Then
  MsgBox "Cet ajout ferait doublon !", vbCritical
  Cancel = True
End If
End Sub

[madefemere]

Bonjour,

Qu'est-ce qui ne marche pas ?
Si j'ai bien compris, le test de doublon devrait se faire sur les 3 champs or dans ton code, tu testes par 2 champs.
Il faut créer la même fonction ou procédure de test et l'appeler sur les évènements avant mis à jour des 3 champs.
un code du genre :

Code :

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

If DCount("*", "Tab_CRI_", "ID_CRI = """ & Me.ID_CRI & """ and LIB_CRI = """ & Me.LIB_CRI & """ And INSTANCE = """ & Me.INSTANCE & """") <> 0 Then

Cordialement.

[hyperion13]

Salut
Le plus logique serait d'appliquer un Form_BeforeUpdate() selon ceci.
Mais que représente ID_CRI ? Une clé primaire ou une clé étrangère ?