Discussion :

[vavavoum74]

Bonjour,

j'ai fait une fonction, qui donne comme résultat le type de semaine en fonction d'une date:
elle est située dans un module standard:

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
Public Function TypeSemaineDate(dt As Date) As String
 
Dim j As Long
Dim dt1 As Date
Dim db As DAO.Database
Dim rsPTS As DAO.Recordset
 
Set db = CurrentDb
Set rsPTS = db.OpenRecordset("select * from T_ParamTypeSemaine INNER JOIN T_MagasinCourant ON T_ParamTypeSemaine.Magasin=[T_MagasinCourant].[Magasin] ;")
 
dt1 = dt - Weekday(dt, vbMonday) + 1
j = NumSemaine(dt1)
TypeSemaineDate = rsPTS.Fields("Semaine" & j)
 
 
End Function

Je souhaite faire afficher le résultat dans un sous formulaire SF_PlanningSemaine dans une case appelée TypeSemaine.

Code :

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

Me.TypeSemaine = TypeSemaineDate(Forms!F_PlanningSemaine.DateD)

Ce sous formulaire est contenu dans le formulaire F_PlanningSemaine

J'obtiens à l'execution:

Si je clique sur "Fin", mon formulaire et son sous formulaires s'affichent bien, et dans la case TypeSemaine j'ai bien la valeur escomptée qui s'affiche..

Je suppose que le souci vient du fait que lors du chargement du sous formulaire la valeur DateD n'est pas encore chargée, mais je ne vois pas comment résoudre ceci.

Merci d'avance pour votre interet

[tee_grandbois]

bonjour,
ce genre d'erreur ce résout avec Nz():

Code :

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

Me.TypeSemaine = TypeSemaineDate(Nz(Forms!F_PlanningSemaine.DateD,""))

si le champ est numérique :

Code :

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

Me.TypeSemaine = TypeSemaineDate(Nz(Forms!F_PlanningSemaine.DateD,0))

[vavavoum74]

Merci pour ton interet.

Un truc que je ne pige pas:
le résultat de ma fonction est qualifié comme étant string.
et c'est l'ecriture que tu indiques comme étant pour un champ numerique qui fonctionne... cela ne me semble pas logique.

est ce lié au fait que "Me.TypeSemaine" n'est pas défini?
ou un truc bizarre comme il y en a dans access?

en tout état de cause je met résolu

[tee_grandbois]

bonjour,
je n'avais pas vu que le type de Dated était Date sinon j'aurai mis uniquement la seconde solution: par défaut dans VBA, la valeur nulle n'est pas accordée aux types Texte, Numérique et Date, seul le Variant l'accepte.

[vavavoum74]

Merci pour cette précision.