récupération de date de formulaire

**Florentin** · 21/04/2008, 17h07

Bonjour, Voilà une fonction qui doit récupérer la date "ChoixDate" dans un formulaire ouvert, mais la fonction se plante arrivée à ce niveau.
Que faire? Si vous avez la solution alors j'attends votre contribution.

En fait selon la fonction ResHebdo, lorsque la fonction Remplirhebdo s'exécute, elle lit les données de la table hebdo ligne par ligne. Et si la date saisie dans le formulaire Choix_Date est comprise entre DATE_HEURE_DEBUT et DATE_HEURE_FIN, alors elle prend la valeur 1 sinon 0.
Pour la fonction Remplirhebdo, elle se plante à la troisième ligne.

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
Public Function ResHebdo(Js, Dsd, Dsf As Variant) As Variant
On Error Resume Next
Dim Rsem, Sx As Variant
 
Rsem = 0
strg = Js & "/" & mm & "/" & aa
Sx = CDate(strg)
DspN = Int(Dsp)
DsfN = Int(Dsf)
If (Sx >= DspN) And (Sx <= DsfN) Then Rsem = 1
 
ResHebdo = Rsem
 
End Function
 
Function Remplirhebdo(ChoixDate As Variant)
Dim ReqData As New Recordset, str As String
 
ChoixDate = [Formulaires]![Choix_Date]![Date1]
 
    str = " SELECT Hebdo.Numero_Tvx, Hebdo.Postes, Hebdo.NOM_EXPL, Hebdo.DATE_HEURE_DEBUT, Hebdo.DATE_HEURE_FIN, Hebdo.JLun, Hebdo.JMar, Hebdo.JMer, Hebdo.JJeu, Hebdo.JVen, Hebdo.JSam, Hebdo.JDim, FROM Hebdo"
 
    ReqData.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
    Js = ChoixDate
    Do Until ReqData.EOF
 
        ReqData!JLun = ResHebdo(Js, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
        ReqData!JMar = ResHebdo(Js + 1, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
        ReqData!JMer = ResHebdo(Js + 2, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
        ReqData!JJeu = ResHebdo(Js + 3, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
        ReqData!JVen = ResHebdo(Js + 4, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
        ReqData!JSam = ResHebdo(Js + 5, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
        ReqData!JDim = ResHebdo(Js + 6, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
 
        ReqData.MoveNext
        Beep
 
    Loop
 
End Function

**schwarzy2** · 21/04/2008, 17h21

stp ajoute les balises code: #
et peux-tu nous dire à quelle ligne ça plante?
tu as fait un debug avec F8?

**francishop** · 21/04/2008, 19h03

Bonjour,

La Faq ligne 2 :
http://access.developpez.com/faq/?pa...#AtteindreCtrl

Cordialement.

**schwarzy2** · 22/04/2008, 08h23

suivant le lien que t'as donné francishop, mettons que ton formulaire se nomme form_date, il te suffit de remplacer:

Code :

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

ChoixDate = [Formulaires]![Choix_Date]![Date1]

par

Code :

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

ChoixDate = Forms![form_date]![Choix_Date]

pour récupérer la valeur du champ ChoixDate

J'avoue ne pas comprendre ton Date1...

**Florentin** · 22/04/2008, 09h38

A la ligne 3, [Date1] représente la zone de texte où il faut saisir la date.

**schwarzy2** · 22/04/2008, 09h57

tu dois saisir

Code :

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

ChoixDate = Forms![form_date]![???]

en mettant à la place des ??? le nom du champ dans lequel tu renseignes ta date.

**Florentin** · 22/04/2008, 15h34

Merci pour la solution de récupération de la date dans le formulaire.
Mais un autre arrêt cette fois au niveau de l'argument SELECT. Voici le message: "Dans SELECT, un mot réservé ou un argument est absent ou mal orthographié ou la ponctuation est incorrecte".
Ainsi l'application s'arrête à la ligne 5 de la fonction "Remplirhebdo".

Encore de l'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
Public Function ResHebdo(Js, Dsd, Dsf As Variant) As Variant
On Error Resume Next
Dim Rsem, Sx As Variant
 
Rsem = 0
strg = Js & "/" & mm & "/" & aa
Sx = CDate(strg)
DspN = Int(Dsp)
DsfN = Int(Dsf)
If (Sx >= DspN) And (Sx <= DsfN) Then Rsem = 1
 
ResHebdo = Rsem
 
End Function
 
Function Remplirhebdo(ChoixDate As Variant)
Dim ReqData As New Recordset, str As String
 
ChoixDate = Forms![Choix_Date]![Date1]
 
    str = " SELECT Hebdo.Numero_Tvx, Hebdo.Postes, Hebdo.NOM_EXPL, Hebdo.DATE_HEURE_DEBUT, Hebdo.DATE_HEURE_FIN, Hebdo.JLun, Hebdo.JMar, Hebdo.JMer, Hebdo.JJeu, Hebdo.JVen, Hebdo.JSam, Hebdo.JDim, FROM Hebdo"
 
    ReqData.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
    Js = ChoixDate
    Do Until ReqData.EOF
 
        ReqData!JLun = ResHebdo(Js, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
        ReqData!JMar = ResHebdo(Js + 1, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
        ReqData!JMer = ResHebdo(Js + 2, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
        ReqData!JJeu = ResHebdo(Js + 3, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
        ReqData!JVen = ResHebdo(Js + 4, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
        ReqData!JSam = ResHebdo(Js + 5, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
        ReqData!JDim = ResHebdo(Js + 6, ReqData!DATE_HEURE_DEBUT, ReqData!DATE_HEURE_FIN)
 
        ReqData.MoveNext
        Beep
 
    Loop
 
End Function

**schwarzy2** · 23/04/2008, 08h16

dans ta requête SQL, tu as mis une virgule en trop:

Code :

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

Hebdo.JVen, Hebdo.JSam, Hebdo.JDim, FROM Hebdo

tu dois la supprimer!

**Florentin** · 23/04/2008, 09h54

Merci, la question a été résolue. Mais un autre problème se pose. Je vais d'abord chercher et le soumettre ensuite au forum. A bientôt.

récupération de date de formulaire

IHM

Discussions similaires

Partager

Partager