Discussion :

[alassanediakite]

Salut à toutes et à tous
J'ai mis une contrainte check dans une de mes tables (un élève ne peut être dans plus d'une classe pour une année donnée). Mais voila quand je tente de faite un INSERT à partir de VBA je reçois un message "ACCESS n'a pas ajouter 1 enregistrement à cause d'une contrainte...."; que clic sur OUI ou NON pas de problème (ni les données ni mon programme frontal). Mais pour la même session si je tente une deuxième fois ACCESS plante et tente de réparer mon programme frontal.
Existe-t-il une possibilité d'intercepter l'erreur liée à la violation d'intégrité.
Ce tuto nous dit comment le faire avec un formulaire lié mais pas avec un INSERT dans VBA.
Pour ce qui est du contrôle du style dcount ou recordcount de DAO, poser une contrainte ne serait plus de la peine .
Merci d'avance.

[f-leb]

Salut alassanediakite,

j'ai moi-même expérimenté ces contraintes de table CHECK.

Je ne sais pas si ton problème est du même genre que le mien mais il semblerait que selon la complexité de la requête, spécialement si elle fait appel à une sous-requête sur la même table, des problèmes de stabilité peuvent apparaître sur des Insert/Delete.

Tu peux constater le problème dans la discussion ici.

[Tofalu]

tu peux montrer ton code VBA ?

[alassanediakite]

Salut
Voici l'évènement du bouton.

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
26
27
Private Sub valider_orientation_Click()
On Error GoTo Err_valider_orientation_Click
Dim requeteajout As String
 
 
If IsNull(Me.annee) Or IsNull(Me.classe) Then
MsgBox "Saisissez toutes les information!", vbExclamation
Exit Sub
End If
 
requeteajout = "INSERT INTO TBligneclasse_lncls ( idcls, idelv ) SELECT " & Me.classe & " AS cls, " & Me.eleve & " AS elv;"
 
DoCmd.RunSQL requeteajout
    'ferme le formulaire
    DoCmd.Close
 
Exit_valider_orientation_Click:
  Exit Sub
 
Err_valider_orientation_Click:
On Error GoTo erinconnu
 
    MsgBox Err.Number & " " & Err.description
    Resume Exit_valider_orientation_Click
erinconnu:
MsgBox "erreur inconnue"
End Sub

Comme je l'ai dis le code ne pose pas de problème si la contrainte n'est pas violée ou si elle l'est mais pour une première fois.
Merci d'avance.

[Tofalu]

Et en remplaçant le docmd.runsql par un Currentdb.Execute ?

[alassanediakite]

Salut
Cela marche bien. Voici le code

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
26
27
28
On Error GoTo Err_valider_orientation_Click
Dim requeteajout As String
If IsNull(Me.annee) Or IsNull(Me.classe) Then
MsgBox "Saisissez toutes les information!", vbExclamation
Exit Sub
End If
requeteajout = "INSERT INTO TBligneclasse_lncls ( idcls, idelv ) SELECT " & Me.classe & " AS cls, " & Me.eleve & " AS elv;"
'Demarre la transaction
On Error GoTo transERROR
DBEngine.Workspaces(0).BeginTrans
CurrentDb.execute requeteajout, dbConsistent + dbFailOnError 
DBEngine.Workspaces(0).CommitTrans
 
DoCmd.Close
GoTo fintrans
transERROR:
DBEngine.Workspaces(0).Rollback
    If Err.Number = 3317 Then
    MsgBox "Cet élève est déjà dans une classe pour l'année choisie!", vbInformation, "Erreur d'orientation"
    Else
    MsgBox Err.Number & " " & Err.description
    End If
fintrans:
Exit Sub
 
Err_valider_orientation_Click:
    MsgBox Err.Number & " " & Err.description
End Sub

Merci à tous.