OVH Cloud OVH Cloud

Vba ou fonction domaine ?

3 réponses
Avatar
Kiki
Salut
Pb sous access 2003, je me triture les méninges, comme tous les copains !!
Dans un formulaire j'ai plusieurs champs
JOURSPECIAL qui contient une liste de valeurs
HTA (numérique) qui contient une heure d'arrivée
HTD (numérique)qui contient une heure de départ
je crée un champ HreJs
Lorsque je rentre des chiffres sur HTA et sur HTD, et que j'ai affiché une
de mes valeurs dans JourSpécial, je voudrais que sur l'évènement sorti, il
calcule les heures réalisées (htd -hta) dans le champs HreJs et si la liste
déroulante de JOurSpécial n'a pas été activée, que je n'ai donc pas mis de
données, il faut qu'il affiche 0.
J'essaie avec la fonction SomDom sur une macro, mais je dois pas mettre la
bonne syntaxe, je n'y arrive pas.
J'ai essayé en visual basic, il me dit que j'emploie mal la fonction IsNull
. Il m'énerve !!!! Voila ce que je lui raconte. Je débute en vba, de
l'indulgence...

Private Sub JourSpécial_AfterUpdate()
Dim J As String
Dim D As Double
Dim F As Double
Dim HS As Double
D = HTA
F = HTD
J = JourSpécial
If Not IsNull(JourSpécial) Then
HS = F - D
Else
HS = 0
HS = HreJS

End If

End Sub
Alors avez vous une solution pour mes petites neurones, en vba ou sur
somdom, je prends tout !!!
MErci
Bybye

3 réponses

Avatar
Raymond [mvp]
Bonjour.

pour le isnull, tout dépend où est déclarée la variable JourSpécial et son
type , dans une sub ou dans les déclaratives générales ? la portée est
différente selon l'endroit de déclaration.
quant à la procédure pour additionner tes heures je ne comprends pas très
bien ton raisonnement.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Kiki" a écrit dans le message de news:
423e184d$0$25014$
Salut
Pb sous access 2003, je me triture les méninges, comme tous les copains !!
Dans un formulaire j'ai plusieurs champs
JOURSPECIAL qui contient une liste de valeurs
HTA (numérique) qui contient une heure d'arrivée
HTD (numérique)qui contient une heure de départ
je crée un champ HreJs
Lorsque je rentre des chiffres sur HTA et sur HTD, et que j'ai affiché une
de mes valeurs dans JourSpécial, je voudrais que sur l'évènement sorti, il
calcule les heures réalisées (htd -hta) dans le champs HreJs et si la
liste
déroulante de JOurSpécial n'a pas été activée, que je n'ai donc pas mis de
données, il faut qu'il affiche 0.
J'essaie avec la fonction SomDom sur une macro, mais je dois pas mettre la
bonne syntaxe, je n'y arrive pas.
J'ai essayé en visual basic, il me dit que j'emploie mal la fonction
IsNull
. Il m'énerve !!!! Voila ce que je lui raconte. Je débute en vba, de
l'indulgence...

Private Sub JourSpécial_AfterUpdate()
Dim J As String
Dim D As Double
Dim F As Double
Dim HS As Double
D = HTA
F = HTD
J = JourSpécial
If Not IsNull(JourSpécial) Then
HS = F - D
Else
HS = 0
HS = HreJS

End If

End Sub
Alors avez vous une solution pour mes petites neurones, en vba ou sur
somdom, je prends tout !!!
MErci
Bybye




Avatar
Kiki
Salut raymond
le champ jour spécial est de type texte avec des valeurs. et j'ai essayé
par un module privé.
Moi aussi j'ai du mal à comprendre mon raisonnement +:)
je rentre systématiquement des heures en numérique dans le champs hta et htd
mais je ne mets pas systématiquement une valeur dans le champs jour spécial
quand j'affiche une valeur dans jour spécial, je voudrais qu'il réalise
htd-hta dans un autre champ que j'ai appelé HresJs

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

pour le isnull, tout dépend où est déclarée la variable JourSpécial et son
type , dans une sub ou dans les déclaratives générales ? la portée est
différente selon l'endroit de déclaration.
quant à la procédure pour additionner tes heures je ne comprends pas très
bien ton raisonnement.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Kiki" a écrit dans le message de news:
423e184d$0$25014$
Salut
Pb sous access 2003, je me triture les méninges, comme tous les copains
!!


Dans un formulaire j'ai plusieurs champs
JOURSPECIAL qui contient une liste de valeurs
HTA (numérique) qui contient une heure d'arrivée
HTD (numérique)qui contient une heure de départ
je crée un champ HreJs
Lorsque je rentre des chiffres sur HTA et sur HTD, et que j'ai affiché
une


de mes valeurs dans JourSpécial, je voudrais que sur l'évènement sorti,
il


calcule les heures réalisées (htd -hta) dans le champs HreJs et si la
liste
déroulante de JOurSpécial n'a pas été activée, que je n'ai donc pas mis
de


données, il faut qu'il affiche 0.
J'essaie avec la fonction SomDom sur une macro, mais je dois pas mettre
la


bonne syntaxe, je n'y arrive pas.
J'ai essayé en visual basic, il me dit que j'emploie mal la fonction
IsNull
. Il m'énerve !!!! Voila ce que je lui raconte. Je débute en vba, de
l'indulgence...

Private Sub JourSpécial_AfterUpdate()
Dim J As String
Dim D As Double
Dim F As Double
Dim HS As Double
D = HTA
F = HTD
J = JourSpécial
If Not IsNull(JourSpécial) Then
HS = F - D
Else
HS = 0
HS = HreJS

End If

End Sub
Alors avez vous une solution pour mes petites neurones, en vba ou sur
somdom, je prends tout !!!
MErci
Bybye








Avatar
Raymond [mvp]
ce n'est pas facile pour te répondre car comme par exemple:
HTA et HTD sont déclarées comment ? comment entres-tu les heures HH:nn:ss ou
en numérique décimal ?

pour le
de mes valeurs dans JourSpécial, je voudrais que sur l'évènement sorti,
il calcule les heures réalisées (htd -hta) dans le champs HreJs


tu places ton calcul dans l'évènement afterupdate du contrôle JourSpécial.

etc........
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Kiki" a écrit dans le message de news:
423eaa66$0$25033$
Salut raymond
le champ jour spécial est de type texte avec des valeurs. et j'ai essayé
par un module privé.
Moi aussi j'ai du mal à comprendre mon raisonnement +:)
je rentre systématiquement des heures en numérique dans le champs hta et
htd
mais je ne mets pas systématiquement une valeur dans le champs jour
spécial
quand j'affiche une valeur dans jour spécial, je voudrais qu'il réalise
htd-hta dans un autre champ que j'ai appelé HresJs

"Raymond [mvp]" a écrit dans le message
de
news:
Bonjour.

pour le isnull, tout dépend où est déclarée la variable JourSpécial et
son
type , dans une sub ou dans les déclaratives générales ? la portée est
différente selon l'endroit de déclaration.
quant à la procédure pour additionner tes heures je ne comprends pas très
bien ton raisonnement.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Kiki" a écrit dans le message de news:
423e184d$0$25014$
Salut
Pb sous access 2003, je me triture les méninges, comme tous les copains
!!


Dans un formulaire j'ai plusieurs champs
JOURSPECIAL qui contient une liste de valeurs
HTA (numérique) qui contient une heure d'arrivée
HTD (numérique)qui contient une heure de départ
je crée un champ HreJs
Lorsque je rentre des chiffres sur HTA et sur HTD, et que j'ai affiché
une


de mes valeurs dans JourSpécial, je voudrais que sur l'évènement sorti,
il


calcule les heures réalisées (htd -hta) dans le champs HreJs et si la
liste
déroulante de JOurSpécial n'a pas été activée, que je n'ai donc pas mis
de


données, il faut qu'il affiche 0.
J'essaie avec la fonction SomDom sur une macro, mais je dois pas mettre
la


bonne syntaxe, je n'y arrive pas.
J'ai essayé en visual basic, il me dit que j'emploie mal la fonction
IsNull
. Il m'énerve !!!! Voila ce que je lui raconte. Je débute en vba, de
l'indulgence...

Private Sub JourSpécial_AfterUpdate()
Dim J As String
Dim D As Double
Dim F As Double
Dim HS As Double
D = HTA
F = HTD
J = JourSpécial
If Not IsNull(JourSpécial) Then
HS = F - D
Else
HS = 0
HS = HreJS

End If

End Sub
Alors avez vous une solution pour mes petites neurones, en vba ou sur
somdom, je prends tout !!!
MErci
Bybye