Discussion :

[stsym]

Bonjour,

Sur le site j'ai trouvé un code qui permet d'identifier d'après une table la durée d'une panne.
A priori elle correspond à mon besoin.

Je souhaite à partir d'un bouton éxecuter la fonction ci dessous

Public Function fctPannePrécédente(dtDatePanne As Date, intTypePanne As Integer) As Variant

Cette dernière est placée dans un module indépendant.

J'ai affecté au bouton du formulaire une pocédure évenementielle.


Private Sub Commande1_Click()
call fctPannePrécédente(dtDatePanne As Date, intTypePanne As Integer)
End Sub


Mais j'ai un message d'erreur concernant une mauvaise synthaxe.

J'ai regardé sur le forum mais je n'ai pas trouvé de solution.
D'avance merci pour votre aide.
Cordialement

StSym

[madefemere]

Bonjour,

Vous êtes en train de confondre la déclaration (définition) d'une fonction et la façon de l'appeler

Ceci :

Code :

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

 Public Function   fctPannePrécédente(dtDatePanne As Date, intTypePanne As Integer) As Variant

est la déclaration de la la fonction.
C'est la fonction fctPannePrécédente qui utilise 2 arguments : dtDatePanne et intTypePanne

Quand vous l'appelez, il faut mettre des valeurs (que vous récupérez normalement à partir de votre formulaire ou code) à la place de dtDatePanne et intTypePanne.
Ce qui donnerait :

Code :

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

 call fctPannePrécédente(Valdate,ValTypedelaPanne)

Cordialement,

[stsym]

Bonjour Madefemere

Merci pour cette réponse rapide et explicite donnée à un novice du VBA.
J'ai testé mais cela ne fonctionne pas car je pense ne pas avoir donné assez d'éléments à ma question.
Je joins le code trouvé et qui correspond à ma demande.

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
Public Function fctPannePrécédente(dtDatePanne As Date, intTypePanne As Integer) As Variant
'on ouvre le recordset
Dim rs As DAO.Recordset
'on sélectionne tous les enregistrements ayant une date antérieure et le même type de panne
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Pannes WHERE DatePanne < #" & dtDatePanne & "# AND TypePanne = " & intTypePanne & " ORDER BY DatePanne DESC", dbOpenDynaset)
 
If rs.EOF = True Then 'pas de panne précédente
fctPannePrécédente = Null
Exit Function 'on quitte
End If
 
fctPannePrécédente = rs!DatePanne 'date de la panne précédente
 
'on ferme le recordset
rs.Close
Set rs = Nothing
End Function

Je n'ai pas compris si "Valdate" et "ValTypedelaPanne" devaient être créés dans la table à analyser.

Ma table "Pannes" à cette configuration.



Merci pour votre aide apportée.
Cordialement.
StSym

[madefemere]

Bonjour,

Qu'est-ce que vous voulez faire?

La fonction va retourner une valeur selon une date et type de panne que vous allez donner (ce sont les arguments de la fonction).
Pour utiliser la fonction, vous devez donc être à un endroit d'Access (formulaire d'après ce que vous dites dans votre premier message) où vous allez récupérer ces valeurs et les injecter dans votre fonction pour avoir un résultat.
Soit, dans votre formulaire, vous avez 3 zones de texte :

- ValDate (Date à partir de laquelle l'analyse va être faite)
- TypePanne (le type de panne à partir duquel l'analyse sera faite)
- DateResult (qui va accueillir le résultat de la fonction) où en source, vous mettrez : = fctPannePrécédente(ValDate,TypePanne)

J'ai pas bien compris la nécessité d'utiliser un bouton de commande pour cela??
Déjà expliquez mieux (hors termes techniques d'Access) le but de votre manipulation.

Bonne continuation

[stsym]

Bonjour Madefemere,

Bon je vais essayer de mettre tout cela en application et espérer arriver au résultat souhaité.

Je vais identifier cette discussion comme résolue car Si j'ai besoin d'aide je reviendrai sur le site mais:

1 > En postant ma demande sur un "sous forum" spécifique ( et non pas tous)
2 > En Expliquant mieux le but de mon objectif.

Encore merci pour votre aide et vos explications détaillées.
Cordialement
Stsym