Discussion :

[marjo20]

j'ai crée un formulaire contenant un certains nombre de controles.
Parmis ces controles il y a un champ texte NUM à renseigner
je veux executer un petit programme qui verifie si la valeur du contenu du controle NUM existe dans une table appelée T_ass (champ NUM)
si la valeur NUM existe déjà dans la table je veux afficher un message d'erreur sinon j'ajoute la valeur du controle NUM dans une table nommée intégration.
Comment faire ?

Merci

[argyronet]

Bonjour,

Il serait intéressant de savoir quand est-ce que tu veux effectuer cette vérification. Si c'est au moment où tu fermes le fomulaire ou bien au moment où tu bascules sur un autre enregistrement.

Sur le champ lui même, tu exécutes une procédure de vérification sur l'événement BeforeUpdate() soit par exemple:

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
Private Function NumExiste(ByVal Num As Long) As Boolean
Dim RS As Recordset
 
  On Error GoTo Err_Num
  Set RS = CurrentDb.OpenRecordset("SELECT Num FROm T_ass WHERE Num =" & Num, 2)
  With RS
    .OpenRecordset
      If .RecordCount > 0 Then
        NumExiste = True
      End If
    .Close
  End With
Sortie_Num:
  Set RS = Nothing
  Exit Function
Err_Num:
  NumExiste = False
  Resume Sortie_Num
End Function
 
Private Sub Num_BeforeUpdate(Cancel As Integer)
  If NumExiste(Num) Then
    MsgBox "La valeur NUM " & Trim(str(Num)) & " existe déjà dans la table !", 48, "Contrôle"
    Cancel = True
  End If
End Sub

A toi...

Argy

[Papy Turbo]

Salut, marjo20

Si tu as un message d'erreur et que tu veux empêcher la saisie d'une valeur existant déjà dans l'autre table, il faut que tu places tes appels dans l'évènement Control_BeforeUpdate() (ou 'Control' est le nom de contrôle du champ texte NUM) : en mettant Cancel = True, tu empêcheras la saisie.

En gros, quèque chose comme :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Controle_BeforeUpdate(Cancel As Integer)
    If DLookup([NomChamp], "NomTable", "[NomChamp] = '" & Controle & "'") = Controle Then
        MsgBox "On l'a déjà", vbCritical, NomApplication
        Cancel = true 'on bloque la saisie
    Else
        AjouteValeur(Controle) 'routine qui ajoute un nouvel enregistrement
    EndIf
End Sub

Le temps de poster ça, je vois qu'on se croise avec Argyronet. Salut, Argy.
2 remarques :
- tu as un .OpenRecordset (le second) inutile (ça crée un clone que tu n'utilises pas !)
- je préfèrerais un test sur .EOF ? (And .BOF ?) plutôt que sur .RecordCount, qui est moins fiable (faut avoir fait un .moveLast pour être sûr ; c'est vrai, je chipote un peu, mais c'est une meilleure habitude à prendre )

Sinon,
- je pense qu'en l'occurence, une fonction de domaine sera plus simple et + efficace, mais le résultat est le même
- d'accord sur le code de l'évènement...

[argyronet]

Bonjour Papy,

OK, je suggérerai du .EOF la prochaine fois.
Perso, j'ai abandonné les fonction de domaine (que je suggère quand la personne ne manip pas très bien DAO).

A+

Argy

[Papy Turbo]

Perso, j'ai abandonné les fonction de domaine (que je suggère quand la personne ne manip pas très bien DAO).

Moi aussi, dans les requêtes ou dans une boucle. Bref, elles ne sont pas super efficaces, mais je les garde dans les cas comme ici :
- on a juste besoin d'une seule valeur,
- y a pas plus simple.

A ciao, bonsoir.

[marjo20]

Merci pour vos réponses. Je vais essayer de les appliquer