Recherche sur champ date

**wajdisoft** · 01/08/2009, 14h35

salut a tous quant j'effectue une recherche avec reference date de naissance toujour mon programme affiche le msg d'eerreur

Vérifier la date de naissance ...

pour temp la date existe deja dans la base

et voila le code source

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
 
 
 
 If Option7.Value = True Then
    Set rech = bs.OpenRecordset("select * from wajdi where jour=" & DTPicker2.Value & "")
        If rech.EOF Then
        MsgBox "Vérifier la date de naissance ...", vbCritical + vbOKOnly, "Date de naissance nom valider"
        Else
            rech.MoveFirst
                While rech.EOF = False
                MSFlexGrid1.AddItem "" & t
                MSFlexGrid1.TextMatrix(t, 1) = rech![Nom]
                MSFlexGrid1.TextMatrix(t, 2) = rech![prenom]
                MSFlexGrid1.TextMatrix(t, 3) = rech![cin]
                MSFlexGrid1.TextMatrix(t, 4) = rech![proffession]
                MSFlexGrid1.TextMatrix(t, 5) = rech![jour]
                MSFlexGrid1.TextMatrix(t, 6) = rech![codepuk]
                MSFlexGrid1.TextMatrix(t, 7) = rech![ code]
                MSFlexGrid1.TextMatrix(t, 8) = rech![adresse]
                t = t + 1
                rech.MoveNext
                Wend
        End If
    End If

---------

merci pour vous aide d'avance

**ThierryAIM** · 01/08/2009, 14h53

sous Access, les dates doivent être encadrées par #

Code :

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

Set rech = bs.OpenRecordset("select * from wajdi where jour=#" & DTPicker2.Value & "#")

**wajdisoft** · 01/08/2009, 17h26

Envoyé par ThierryAIM

sous Access, les dates doivent être encadrées par #

Code :

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

Set rech = bs.OpenRecordset("select * from wajdi where jour=#" & DTPicker2.Value & "#")

-------

il m'afiche un msg d'erreur

run-time error '424'
object required

**SfJ5Rpw8** · 01/08/2009, 18h06

Pour mieux cerner ton problème prends l'habitude de séparer la création de ta requête SQL de son utilisation :

Code :

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

1
2
3
4
5
6
 
(...)
Dim stSQL as string
(...)
stSQL = "select * from wajdi where jour=#" & DTPicker2.Value & "#"
Set rech = bs.OpenRecordset(stSQL)

**wajdisoft** · 01/08/2009, 23h54

Envoyé par bbil

Pour mieux cerner ton problème prends l'habitude de séparer la création de ta requête SQL de son utilisation :

Code :

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

1
2
3
4
5
6
 
(...)
Dim stSQL as string
(...)
stSQL = "select * from wajdi where jour=#" & DTPicker2.Value & "#"
Set rech = bs.OpenRecordset(stSQL)

----------
meme msg d'erreur

et il se point sur
stSQL = "select * from wajdi where jour=#" & DTPicker2.Value & "#"

**SfJ5Rpw8** · 02/08/2009, 00h11

et donc ?

tu vois biens que l'objet en question doit être ton DtPicker2 ..!

la tu vérifié ?

**wajdisoft** · 02/08/2009, 01h00

Envoyé par bbil

et donc ?

tu vois biens que l'objet en question doit être ton DtPicker2 ..!

la tu vérifié ?

---------

t'a raison j le chonge en dtpicker1

mais il me dit date de naissance n'existe pas pour temp elle existe dans la base

**Delbeke** · 02/08/2009, 04h25

Envoyé par wajdisoft

---------

t'a raison j le chonge en dtpicker1

mais il me dit date de naissance n'existe pas pour temp elle existe dans la base

Tu es sûr du message ? Parce que nulle part, dans l'extrait de code que tu as fourni, n' est mentionné ni "date de naisance" ni "temp"

**wajdisoft** · 02/08/2009, 12h14

Envoyé par Delbeke

Tu es sûr du message ? Parce que nulle part, dans l'extrait de code que tu as fourni, n' est mentionné ni "date de naisance" ni "temp"

-----------

oui je suis sur frère

il affiche vérifier la date de naissance comme erreur

Code :

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

MsgBox "Vérifier la date de naissance ...", vbCritical + vbOKOnly, "Date de naissance nom valider"

et j'ai vérifier dans la base le date et il existe

**SfJ5Rpw8** · 02/08/2009, 12h41

Envoyé par wajdisoft

...
et j'ai vérifier dans la base le date et il existe

Comment la tu vérifié ?

**wajdisoft** · 02/08/2009, 12h59

Envoyé par bbil

Comment la tu vérifié ?

----
j'ouvre le fichier access

en suivant ces etapes

Add_in > Visual Data manager ... > File > open database > microsoft acess

et je selection mon base puis j click droit sur la table wajdi et je choisit open

et je cherche la date et j le trouve