Problème de code vba ligne if surligné en jaune

**Piccou** · 04/08/2009, 11h44

Bonjour,
je veux créer un code pour contrôler une date saisie dans un formulaire (formulaire créer à partir d'une table appeler DATE SCTC, donc le champ date de cette table en est la source de contrôle de la zone de texte du formulaire )
Et je veux qu'avec mon code (saisie dans la propriété de ma zone de texte en mettant une procédure évenementiel dans "sur entré") il vérifie dans une table "date ctc" si cette date n'éxiste pas déjà. Alors j'ai fait ça

Code :

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

1
2
3
4
5
Private Sub Date_Enter()
If [Date] Eqv [Date ctc]![Date] Then
msgbox "Date éxistante dans la base de donnée"
End If
End Sub

le [date] juste après if est mon champ du formulaire.
Quand je dis que ça ne marche pas, cela veut dire que lorsque j’ai finis de saisir mon code que je quitte les propriétés et que je quitte le mode création pour afficher le formulaire mon code ne marche pas et je dois ouvrir une fenêtre de débogage, la ma ligne de if à then et surligner en jaune
Du bonheur du bonheur du bonheur…

Invité · 04/08/2009, 12h06

Bonjour

On ne donne pas à un nom de champ le nom Date qui est une fonction.

Philippe

**Piccou** · 04/08/2009, 12h08

Il faudrait que je change mon nom de champ?
Par ailleur j'ai instauré un valide si pour assurer que la date saisie est bien une fin de mois, je peu compilier les deux dans un code,

**Piccou** · 04/08/2009, 12h13

je viens d'essayer en remplacant Date par Datectc, et ça ne change pas au moment d'afficher le formulaire il me met :
"impossible d'ouvrir le champ "l" auxquelle il est fait référence dans votre expression.
ça veut dire quoi quand access surligne en jaune une ligne de mon code ?

**Tyria** · 04/08/2009, 13h20

Quand Access surligne une ligne en jaune, c'est qu'elle pose problème.

Dans la condition de ton if, le [Date ctc]![Date] correspond à la valeur de la date dans ta table si j'ai bien compris ?
Si c'est le cas, c'est ça qui pose problème.

Quand le code plante et quel est le message d'erreur qui est sur la fenêtre qui s'ouvre ?

Et dernier point, prends l'habitude de mettre des parenthèses dans pour tes condition. Il est beaucoup de plus simple de lire :

Code :

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

1
2
3
4
5
If (condition) Then
 
    Expression
 
End If

Que :

Code :

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

1
2
3
If condition then
Expression
End If

C'est les petits trucs qui font qu'il est moins pénible de reprendre le code de quelqu'un.

**Piccou** · 04/08/2009, 14h06

Alors j’ai essayé un autre système que voici :

Code :

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

1
2
3
Private Sub Date_Enter()
Rechdom([Datectc], "date ct") = (Forms![Date]![Datectc]) = Null
End Sub

Qui ne marches pas non plus j’ai le droit à
« l’expression sur entrée entrée, comme paramètre de la propriété type événement est à l’origine d’une erreur , Sub ou Function non définis. »

lorsque j’utilise un code du type :

Code :

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

1
2
3
4
5
Private Sub Date_Enter()
If [Date] Eqv [Date ctc]![Date] Then
msgbox "Date éxistante dans la base de donnée"
End If
End Sub

J’ai un message visual basic qui me dis, « impossible de trouver le champ ‘l’ auquel il est fait référence dans votre expression. »
Ensuite je clic sur débogage et dans ma ligne surligné :

Code :

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

If [Date] Eqv [Date ctc]![Date] Then

Si je mets ma souris sur le premier [Date] j’ai une étiquette qui apparaît à ce moment en mettant [Date]=Null, est ce une suggestion ?

**Tyria** · 04/08/2009, 14h20

[Date ctc]![Date]

C'est bien le champs Date de ta table Date ctc ? Si c'est le cas, je pense que ton problème vient de là.

En effet, je ne crois pas qu'il soit possible de lire une table à l'arrache comme ça.

Il faut que tu ouvres ta table. Personnellement, je ferais ça avec un petit recordset et rouler jeunesse.

**Piccou** · 04/08/2009, 14h24

oui c'est ça c'est mon champ datectc de ma table date ctc

par ailleur je remarque un message d'erreur de temps en temps mais je ne saurai pas dire pourquoi il s'ouvre:

message: identificateur attendus

De plus j'ai essayé avec ce code

Code :

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

1
2
3
4
5
Private Sub Date_Enter()
If (Formulaires![Date]![datectc] Like [date ctc]![datectc]) Then
msgbox "la date saisie existe déjà dans la base de donnée"
End If
End Sub

Et la j'ai un message du genre: "objet recquis"

**Tyria** · 04/08/2009, 14h41

Et avec :

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
Private Sub Date_Enter()
 
Dim rst As Recordset
 
Set rst = CurrentDb.OpenRecordset("Select * from [Date ctc]", open_db_snapshot)
 
rst.MoveFirst
 
Do Until (rst.EOF)
 
If (Formulaires![Date]![datectc] =rst![datectc]) Then
msgbox "la date saisie existe déjà dans la base de donnée"
End If
 
rst.Movenext
 
Loop
 
rst.Close
 
End Sub

Ca devrait déjà aller mieux.

**Piccou** · 04/08/2009, 15h11

Code :

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

Set rst = CurrentDb.OpenRecordset("Select * from [Date ctc]", open_db_snapshot)

Non non il n'aime pas ce code, cette fois ci j'ai le droit à argument non valide

**Tyria** · 04/08/2009, 15h37

Code :

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

Set rst = CurrentDb.OpenRecordset("Select * from Datectc", open_db_snapshot)

Voilà qui devrait être mieux. Si il te sort encore une fois argument invalide, je pense que c'est parce que le nom de la table est inexacte. Il faut écrire son nom exacte et vu que tu l'as écrit de plusieurs manières possibles dans tes messages...

Courage !^^ Tu y es presque.

**Piccou** · 04/08/2009, 15h42

je vais essayer ça en tout cas je te remercie déjà pour ton aide depuis ce matin c'est beaucoup vus que je ne connais pas du tout le vba j'ai juste un bouquin sous les yeux et c'est pas facile
heuresement qu'il y a des forums comme ça

**Piccou** · 04/08/2009, 16h09

non rien à faire même avec le bon nom de table ça ne marche pas:

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
Private Sub Date_Enter()
 
Dim rst As Recordset
 
Set rst = CurrentDb.OpenRecordset("Select * from Date ctc", open_db_table)
 
rst.MoveFirst
 
Do Until (rst.EOF)
 
If (Formulaires![Date]![Datectc] = rst![Datectc]) Then
msgbox "la date saisie existe déjà dans la base de donnée"
End If
 
rst.MoveNext
 
Loop
 
rst.Close
 
End Sub

J'ai ce bout surligné en jaune toujours :

Code :

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

Set rst = CurrentDb.OpenRecordset("Select * from Date ctc", open_db_table)

l'objectif de base était de faire vérifié si la date que l'utilisateur tape dans cette zone de texte n'existe pas mais la je sais plus quoi faire. A cuaque fois que j'utilise un code il y a tout le temps une erreur

**Domi2** · 04/08/2009, 16h12

Bonjour,

Code :

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

Set rst = CurrentDb.OpenRecordset("Select * from Date ctc", dbOpenTable)

au lieu de

Code :

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

Set rst = CurrentDb.OpenRecordset("Select * from Date ctc", open_db_table)

donne quoi ?

Domi2

**Piccou** · 04/08/2009, 16h26

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
Option Compare Database
Private Sub Date_Enter()
Dim bd As Database
Dim rst As Recordset
 
 Set bd = CurrentDb
 Set rst = CurrentDb.OpenRecordset("Select * from Date ctc", dbOpenTable)
 
rst.MoveFirst
 
Do Until (rst.EOF)
 
If (Formulaires![Date]![Datectc] = rst![Datectc]) Then
msgbox "la date saisie existe déjà dans la base de donnée"
End If
 
rst.MoveNext
 
Loop
 
rst.Close
 
End Sub

donne :

"le moteur de base de données microsoft jet n'a pa pu trouver l'objet 'Select from*Date ctc'. Assurez vous que l'objet existe et que vous avez correctement saisi son nom et son chemin d'accès "
Problème le nom de la table est bon

De plus lorsque je positionne ma souris sur rst une étiquette apparait avec rst=nothing

**Domi2** · 04/08/2009, 17h16

Re,

Désolé, j'ai copier/coller la mauvaise ligne.

Code :

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

Set rst = CurrentDb.OpenRecordset("Date ctc", dbOpenTable)

Et pour éviter tout problème, déclare implicitement la bibliothèque utilisée

Code :

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

1
2
Dim bd As DAO.Database
Dim rst As DAO.Recordset

Domi2

**Piccou** · 04/08/2009, 17h26

Merci je vais essayer

Je me demandais aussi si j'étais dans le bonne évènement puisque mon code doit vérifier la date une fois que la personne la tapé dans le formulaire
mois j'ai cliqué sur propriété en mode création et j'ai rentré mon code sur enter
peut être qu'il faut le mettre sur sortis ou modification ou je sais pas

puisque mon code maintenant donne :

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
Option Compare Database
Private Sub Date_Enter()
 
Dim bd As DAO.Database
Dim rst As DAO.Recordset
 
 Set bd = CurrentDb
 Set rst = CurrentDb.OpenRecordset("Date ctc", dbOpenTable)
 
rst.MoveFirst
 
Do Until (rst.EOF)
 
If (Formulaires![Date]![Datectc] = rst![Datectc]) Then
msgbox "la date saisie existe déjà dans la base de donnée"
End If
 
rst.MoveNext
 
Loop
 
rst.Close
 
End Sub

Et comme nouveau message d'erreur j'ai "aucun enregistrement". En effet j'en suis à l'élaboration de ma base il n'y a pas de données dedan

**Domi2** · 04/08/2009, 20h23

Bonsoir,

En utilisant cette méthode, tu risques encore d'avoir d'autres problèmes. Exemple, si tu modifies un autre champ dans ton formulaire, tu vas trouver un doublon, bien évidemment.

Déjà, pour éviter toute confusion, renomme ton champ sur le formulaire différement, par exemple strDatectc

Exemple de code avec le clône du recordset, à placer dans l'événement Avant MAJ du formulaire :

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
'Teste la présence d'enregistrement
Me.RecordsetClone.MoveLast
 
If Me.RecordsetClone.RecordCount > 0 Then
 
    'Teste la présence d'un éventuel doublon s'il s'agit d'un nouvel enregistrement ou en cas de modification du champ strDatectc 
    If Not Me.NewRecord And Me.strDatectcm.Value = Me.strDatectc.OldValue Then Exit Sub
 
    With Me.RecordsetClone
 
        .rst.FindFirst "Datectc = #" & Format(Me.strDatectc.Value, "mm\/dd\/yyyy") & "#"
 
        If Not .NoMatch Then
 
            'Message d 'erreur
            MsgBox "la date saisie existe déjà dans la base de donnée"                    
 
            Me.strDatectc.SetFocus
 
            Cancel = True
 
            Exit Sub
 
        End If
 
    End With
 
End If

Domi2

**Piccou** · 04/08/2009, 21h30

je te remercie domi, je vais essayer demain au boulot parce que chez moi c'est macintosh donc access... je ne l'ai pas

Donc merci à vous deux déjà pour le temps passé sur mon problème et je vais essayer de mettre ton code domi demain

bonne soirée !!!

ça fait du bien d'être aidé quand on galère.

ps: sur ton poste domi tu peux m'expliquer à ce que c'est le "me" c'est une fonction? parce que je pense que si je comprend pas le raisonnement de ton code je vais peut être avoir des difficulté à le mettre en place, je ne sais pas ce que t'en pense? De plus tu parles de quelle méthode au tout début de ton post?