Discussion :

[GD67]

Bonjour à tous,

Je suis tout nouveau dans ce forum et également débutant dans l'utilisation de VBA pour gérer une base access (2000).

Je pense être Ok dans l'utilisation d'acces en mode "standard" mais je cherche à améliorer mon appli avec VBA.

Je souhaiterai avoir un exemple de gestion d'un formulaire qui met à jour une ou plusieur tables et pour lequel on utilise VBA pour réaliser la mise à jour de ces tables à partir du formulaire.

(Ex: champ1 différent de null, champ2 ne doit pas déjà exister dans la table, et champ3 différent de null et champ4 doit être cohérent avec ChamP2)
et gestion message d'erreur

Merci pour d'avance votre aide précieuse

[Demco]

Tout d'abord, bonjour et bienvenue.

Pour tester si un champ est nul intéresse toi à la fonction IsNull().
Pour le reste, renseigne toi sur les RecordSet (FAQ), ça te permet d'aller chercher dans une table des données pour ensuite pourquoi pas, les afficher dans ton formulaire.
Cherche également dans la FAQ comment exécuter des requêtes SQL depuis VBA (pour les requêtes de mise à jour ou d'insertion celà te servira.)
Le DLookUp() pourra également éventuellement te servir pour vérifier si tes données existent déjà dans une table ou non.

En suite eh bien ... en cherchant dans le forum et la FAQ sur les différents points que je t'ai donné je pense tu trouveras les informations adéquates.

En espérant t'aider.

[zoom61]

Salut,

Tu peux essayer ce code là :

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
Private Sub OK_Click()
On Error GoTo OK_Err
    If (Eval("[Forms]![F1]![Champ] Is Null")) Then
        MsgBox "Le test est mauvais"
        Champ.SetFocus
        GoTo OK_Exit
    End If
 
OK_Exit:
    Exit Sub
 
OK_Err:
    MsgBox Error$
    Resume OK_Exit
End Sub

[cafeine]

Salut,

Tu peux essayer ce code là :

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
Private Sub OK_Click()
On Error GoTo OK_Err
    If (Eval("[Forms]![F1]![Champ] Is Null")) Then
        MsgBox "Le test est mauvais"
        Champ.SetFocus
        GoTo OK_Exit
    End If
 
OK_Exit:
    Exit Sub
 
OK_Err:
    MsgBox Error$
    Resume OK_Exit
End Sub

Je comprends bien ton code, mais je comprends moins ton recours à Eval() ?

[zoom61]

Salut,

Dans mon cas, si je ne mettais pas Eval, mon code ne fonctionnait pas !
Mais je suis incapable de te dire pourquoi !

[cafeine]

Eval() est tout sauf une fonction "propre", elle n'existe d'ailleurs pas en VB (.net j'en sais rien).

Tu peux utiliser IsNull() ou encore tester la longueur de la chaîne avec Len()

[zoom61]

Je ne savais pas, je vais essayer de m'en souvenir "Cafeine". Merci. @+.

[GD67]

Merci à tous pour votre aide,

J'ai donc utiliser ISNULL() et le premier test sur F_NumTgag se passe Ok

Par contre:

le test du 2ème champ n'est pas OK
le test de doublon ne fonctionne pas non plus

Merci d'avance pour votre aide

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub BtnSauver_Click()
On Error GoTo Err_BtnSauver_Click
 
    Dim VnumTag As String
    F_NumTag.SetFocus
    VnumTag = F_NumTag.text
 
  ' Tests sur Le numéro du Tag
        If IsNull(F_NumTag) Then
           MsgBox " Le n° de Tag doit être renseigné", vbOKOnly + vbExclamation, "Avertissement"
           Exit Sub
        End If
        If NumtagExiste(VnumTag) = True Then
           MsgBox "Le n° de Tag existe déjà", vbOKOnly + vbExclamation, "Avertissement"
           Exit Sub
        End If
 
   ' Tests sur La Datenr
        If (IsNull(F_Datenr)) Then
            MsgBox "La date doit être renseignée", vbOKOnly + vbExclamation, "Avertissement"
            F_Datenr.SetFocus
            Exit Sub
        End If
 
Exit_BtnSauver_Click:
    Exit Sub
 
 
Err_BtnSauver_Click:
    MsgBox Err.Description
    Resume Exit_BtnSauver_Click
 
End Sub
 
Private Function NumtagExiste(VnumTag As String) As Boolean
On Error GoTo fin
    Dim res As Boolean
    Dim rst As Recordset
 
    Set rst = CurrentDb.OpenRecordset("select * from Tagregister where Numtag='" & VnumTag)
 
    If rst.EOF = True Then
        res = False
    Else
        res = True
    End If
    NumtagExiste = res
    Exit Function
fin:

merci d'utiliser les balises code obligatoires | cafeine

[cafeine]

tente

Code :

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

If Len(F_Datenr) = 0 Then

[GD67]

Merci à tous, je progresse à grands pas grâce à votre aide précieuse
(Les balises code ont réglé le pb merci Cafeine)

A-t-on le droit de déclarer une fonction dans le code associé à un formulaire access?

Ici je n'ai pas d'erreur signalé mais la fonction
NumTagExiste ne fait rien:


Private Sub BtnSauver_Click()
On Error GoTo Err_BtnSauver_Click

Dim VnumTag As String
F_NumTag.SetFocus
VnumTag = F_NumTag.text

' Tests sur Le numéro du Tag
If IsNull(([Forms]![FrmTagregister]![F_NumTag])) Then
MsgBox " Le n° de Tag doit être renseigné", vbOKOnly + vbExclamation, "Avertissement"
F_NumTag.SetFocus
Exit Sub
End If
If NumtagExiste(VnumTag) = True Then
MsgBox "Le n° de Tag existe déjà", vbOKOnly + vbExclamation, "Avertissement"
Exit Sub
End If

' Tests sur La DateEnr
If (IsNull([Forms]![FrmTagregister]![F_DateEnreg])) Then
MsgBox "La date doit être renseignée", vbOKOnly + vbExclamation, "Avertissement"
F_DateEnreg.SetFocus
Exit Sub
End If

Exit_BtnSauver_Click:
Exit Sub

Err_BtnSauver_Click:
MsgBox Err.Description
Resume Exit_BtnSauver_Click

End Sub

Private Function NumtagExiste(VnumTag As String) As Boolean
On Error GoTo fin
Dim res As Boolean
Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("select * from Tagregister where Numtag='" & VnumTag)
If rst.EOF = True Then
res = False
Else
res = True
End If
NumtagExiste = res
Exit Function
fin:
NumtagExiste = False
End Function

[cafeine]

Merci d'éditer ton précédent message et de mettre les balises code.