Discussion :

[edonis]

Bonjour à tous,
Problème : j'ai champ numérique indexé sans doublon et Nul interdit
1. Suite à la mise à jour de celui-ci, je veux vérifier le sans doublon et afficher un message d'erreur pouvant permettre de sortir de mon formulaire.
2. je veux pouvoir sortir de mon formulaire alors que mon champ nul et sans enregister.

J'espère avoir été clair si quelqu'un peu me donner un coup de main vous seriez hyper sympa.
Je fais des bases Access depuis 4 ans mais étant autodidacte et n'ayant que trés peu de connaissance en VBA je suis toujours à la recherche d'une bonne âme voulant partager son savoir.
En revanche je peux aider les débutants sur Access tant que ça reste du développement par le logiciel.

Merci d'avance

Erick

[thb74]

Au lieu de saisir directement dans ton formulaire les champs (provenance table ou requete) tu peux les saisir dans des champs independants et a l aide d une requete sur un sous formulaire verifier l existence ou pas de tes données et par l'intermediaire d un bouton de commande annuler ta saisie (si existe) ou tranferer tes champs independants dans la table par l intermediaire d une requete ajout

Thierry

[marot_r]

Bonjour à tous,
Problème : j'ai champ numérique indexé sans doublon et Nul interdit
1. Suite à la mise à jour de celui-ci, je veux vérifier le sans doublon et afficher un message d'erreur pouvant permettre de sortir de mon formulaire.
2. je veux pouvoir sortir de mon formulaire alors que mon champ nul et sans enregister.

Si tu as mis les protections que tu dis, Access fait cela pour toi sans une seule ligne de prog ... avec un message assez laid. Une fois le message confirmer, il suffit de faire Escape et Access revient à la valeur d'origine et te permet de sortir en appuyant sur Esc.

Si tu veux faire cela de façon plus civilisée, il faut mettre du code dans l'événement Sur Erreur (On Error) du formulaire.

Ex de code faisant cela pour les doublons.

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
 
Public Sub AfficherMessErrStandardForm(prmDataErr As Integer, prmResponse As Integer, Optional prmMessErr As String = "")
    Dim Mess As String
    If prmMessErr <> "" Then
        Mess = prmMessErr
    End If
 
    Select Case prmDataErr
        Case ERR_DOUBLON
            If prmMessErr <> "" Then
                    Mess = prmMessErr
                Else
                    Mess = "Vous avez essayer d'entrer deux fois le même élément et le programme ne vous y autorise pas."
                    Mess = Mess & vbNewLine & vbNewLine & "Merci de corriger."
            End If
            Call MsgBox(Mess, vbInformation, "Erreur")
 
        Case Else
            Mess = "L'erreur " & prmDataErr & ", " & AccessError(prmDataErr) & " s'est produite."
            Mess = Mess & vbNewLine & vbNewLine & "Merci de faire une copie d'écran et de prévenir le support technique."
            Call MsgBox(Mess, vbExclamation, "Erreur")
 
    End Select
 
    prmResponse = acDataErrContinue
 
End Sub

[edonis]

Bien super ton code fonction de manière plus civilisé(j'aime bien le terme) mais car il y a en mais :
1. Il m'informe bien de l'anomalie mais ne reste pas sur le champ à modifier.
2. Il détecte cette anomalie sur les entrées (bonne ou mauvaise)


Si tu peux poffiner tu serais hyper top.
Merci d'avance

[marot_r]

1. Il m'informe bien de l'anomalie mais ne reste pas sur le champ à modifier.

Hum, Access ne détecte les doublons que quand il va enregistrer les données donc il n'y a probablement plus de controle actif et même si il y en avait un ce serait le dernier.

Par contre toi tu dois savoir quel champs provoque l'erreur tu pourrais surement rajouter un me.monChampIndexe.setFocus.

2. Il détecte cette anomalie sur les entrées (bonne ou mauvaise)

Je ne comprends pas ce que tu entends par les entrées bonnes ou mauvaises.

A+

[edonis]

Bonjour,
Donc je vais être plus précis(désolé)
Si j'entre une donnée qui est un doublon = Ok le message fonctionne.
Si j'entre nouvelle donnée qui n'est pas un doublon = Le message fonction aussi ?????

Ai-je été plus clair ?

Merci je test ce que tu m'as donné et je tiens au courant.

Encore merci pour ton aide.

@+

[DMboup]

Avec un test sur After Update de ton champ tu peut gérer le contrôle

Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub LeChamp_AfterUpdate()
Dim mbd As Database, DRech As Recordset
 
Set mbd = CurrentDb()
Set DRechDecharge = mbd.OpenRecordset("Select LeChamp From TaTable Where (LeChamp= " & Me.LeChamp & ")")
 
    If Not DRech.EOF Then         
        MsgBox "Valeur déjà présente. Saisie annulée."
        Me.LeChamp = 0
        Me.LeChamp.SetFocus
    End If
End Sub