Prevenir l'ajout de donnees deja existant dans une table
Bonjour,
Apres des heures passées sur Google et des dizaines de tests je n'arrive toujours pas à trouver la formule magique pour éviter l'ajout de données déjà existant sur un tableau.
La situation est la suivant :
J'ai le tableau "tblSikness" qui a pour rôle de répertorier les absences certifiées des employés :
-Employe
-Start_Date
-End_date
-Days (nombre de jour)
La question est la suivant:
J'ai créé un formulaire à partir de ce tableau. Je voudrais que, lorsque le chef de département clique sur le bouton "ajouter", le formulaire cherche sur le tableau "tblSickness" si on a déjà ajoute une absence pour le même employé avec la même date.
Exemple :
Nom "Start Date" "End Date"
Employe1 01/04/2016 02/04/2016
Employe1 01/04/2016 02/04/2016
Ma DB m'a pris des dizaines d'heures pour que ça puisse être fiable et utilisable par le département RH, seulement j'ai encore ce petit problème.
Quelqu'un pourrait m'aider SVP?
Merci D'avance
Verifier l'existance de deux champs dans la meme ligne
Bonjour,
Merci pour vos réponses, en fait un employé sera déclaré absent plusieurs fois dans l’année, ce qui veut dire que son nom va apparaitre sur plusieurs lignes.
Ce que je voudrais éviter c'est un chef de département oublie le fait qu'il a déjà déclaré l'absence de son subordonne et qu'il le fasse une 2eme fois. Chose qui va impacter l'assiduité de l'employé.
J'ai essayé le code suivant mais ça ne fonctionne pas, ça donne une erreur au niveau de Start_Date:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Private Function IsDuplicateRecord() As Boolean
On Error Resume Next
Dim RecordID As Long
IsDuplicateRecord = False
RecordID = 0
RecordID = DLookup("[EmpName]", "tblSickness", "[EmpName]" & Me.EmpName & _
" AND [Strat_date]=" & Me.Start_Date & " AND [End_Date]=" & Me.End_Date)
If RecordID <> 0 Then
MsgBox "Records has already been set"
IsDuplicateRecord = True
End If
End Function
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsDuplicateRecord Then Cancel = 1
End Sub |
Je suis vraiment novice en Access 2010. Quelqu'un pourrait me dire pourquoi cela ne fonctionne pas?
Merci d'avance
