Discussion :

[cornet04]

bonjour

encore un problème de date (je suis vraiment pas doué ......
Je lance une requête (sql) qui via un recordset "r" doit ramener des dates dans un formulaire.
code ci dessous

si la première ligne en rouge fonctionne la seconde me donne le message d'erreur suivant
valeur non valide pour ce champ
erreur d’exécution 2113
sans doute un problème de format de date américaine ???
que faire ????

Code :

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

1
2
3
4
5
r.Source = sql
r.Open
Me!date_debut_session = #1/1/2015#
Me!date_fin_session = r.Fields("date_fin_session")
r.Close

[madefemere]

Bonjour,

Il s'agirait d'une incompatibilité entres les valeurs du recordset et du champ dans le formulaire effectivement.
1- Mettre un

Code :

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

Debug.print r.Fields("date_fin_session")

avant l'assignation de la valeur pour vérifier si tu as bien une valeur Date.
2- Vérifier les propriétés du champ date_fin_session dans le formulaire si c'est bien une date et correspond aux propriétés du champ du RecordSet. Si c'est un champ dépendant, vérifier le champ de la table correspondante.

Cordialement,

[cornet04]

bonjour,

merci pour l'aide mais ou dois je placer ce "debug" dans mon code ?
lorsque je traite mon recordset ou avant ??

Merci de ton retour

[madefemere]

Re-,
Avant la ligne 4.
Cordialement,

[cornet04]

malheureusement cela me donne un message d'erreur d'execution type 3021

EOF ou BOF est egal a true ou l'enregistrement actuel a été supprimé.
l'opération demandée necessite un enregistrement actuel.

pourtant j'ai bien un enregistrement issu de ma requete ???

merci pour ton aide

[madefemere]

Peux-tu poster la totalité de ton code stp.

Cordialement,

[cornet04]

Voici

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
Private Sub btn_afficher_date_Click()
 
Dim r As ADODB.Recordset 'r sera un objet de la classe des record set
Set r = New ADODB.Recordset 'creation d'un record set nouveau qui se nome r
Set r.ActiveConnection = CurrentProject.Connection 'connection courante
r.CursorType = adOpenDynamic 'type curseur
r.LockType = adLockOptimistic
 
Dim sql As String
 
'1.3) test annee
                If IsNull(Me!annee) Then
                MsgBox ("l'année ne peut etre vide pour afficher les différentes dates d'une session !!!!")
                GoTo fin
                Else
                End If
                    '1.3) test session
                    If IsNull(Me!liste_session) Then
                    MsgBox ("la session ne peut etre vide pour afficher les différentes dates d'une session !!!!")
                    GoTo fin
                    Else
                    End If
'mise a jour d'une liste sur le formulaire
Liste_heure_session.Requery
 
sql = " select * from T_publi_rc " _
& " where id_section = " & Me!num_section _
& " and annee = " & Me!annee _
& " and sess = " & Me!num_section
'récupération de deux valeurs a inserer dans deux champs independant du formulaire
r.Source = sql
r.Open
 
Me!date_debut_session = #1/1/2015#
Debug.Print r.Fields("date_fin_session")
Me!date_fin_session = r.Fields("date_fin_session")
 
r.Close
 
fin:
 
End Sub

[madefemere]

C'est normal que le filtre appliqué pour id_section et sess soient les mêmes valeurs ?

Code :

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

1
2
3
4
5
sql = " select * from T_publi_rc " _
& " where id_section = " & Me!num_section _
& " and annee = " & Me!annee _
& " and sess = " & Me!num_section

Cordialement,

[cornet04]

ce n'est pas du tout normal...............
j'ai même un peu honte de ne pas avoir vu cette grossiere erreur
Le copier / coller dans le code pour aller plus vite permet juste de faire ce genre d'erreurs

encore merci
cordialement