Créer mon premier module VBA

Version imprimable

11/07/2010, 12h50
Nounours1

Créer mon premier module VBA

Bonjour,

J'ai recherché dans les tutos, pour créer un module avec une fonction personnalisée mais je n'ai pas trouvé, je voudrai en effet créer une fonction qui mettrait automatiquement une lettre dans un champ d'une requête ou d'un formulaire de saisie au fur et à mesure des saisies.

Je m'explique:

pour une gestion de mouvement d'animaux j'ai déjà un module qui me calcule l'âge à partir de la date de naissance, donc si l'âge obtenu est compris entre 0 et X et que le sexe de l'animal est = M avec pour destination "reproducteur"
Access doit écrire Mâle reproducteur de 1 an.

âge calculé par Access 090914 soit 9 ans 9 mois 14 jours
Sexe F
Destination : "engraissement"
Access doit retourner Femelle de réforme de + de 36 mois par exemple.

J'ai dans ma table catégorie 39 catégories différentes mâles et femelles.

C'est possible ? si oui comment puis-je démarrer ?

Merci d'avance. :zoubi:

J'ai écrit ce code sur l'événement après mise à jour du champ "FILIERE"
mais je pense que l'on faire plus simple.

Pourriez-vous me donner une solution ?

Merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub FILIERE_AfterUpdate()
If âge > 0 And 300 Then
Me.CATEGORIE = "C"
If âge > 300 And 600 Then
Me.CATEGORIE = "D"
If âge > 600 And 10000 Then
Me.CATEGORIE = "E"
If âge > 10000 And 10600 Then
Me.CATEGORIE = "F"
If âge > 10600 And 20000 Then
Me.CATEGORIE = "G"
If âge > 20000 Then
Me.CATEGORIE = "H"
 
End If
End If
End If
End If
End If
End If
 
End Sub

En gros pour mon code ci-dessus je voudrai le transformer dans un module pour qu'il soit utilisable dans plusieurs requêtes et états.

c'est possible ?

Rappel du code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub FILIERE_AfterUpdate()
If âge > 0 And 300 Then
Me.CATEGORIE = "C"
If âge > 300 And 600 Then
Me.CATEGORIE = "D"
If âge > 600 And 10000 Then
Me.CATEGORIE = "E"
If âge > 10000 And 10600 Then
Me.CATEGORIE = "F"
If âge > 10600 And 20000 Then
Me.CATEGORIE = "G"
If âge > 20000 Then
Me.CATEGORIE = "H"
 
End If
End If
End If
End If
End If
End If
 
End Sub

merci d'avance

11/07/2010, 21h58
Psychopathe

Quel intérêt de vouloir faire un module, surtout après ce que tu as déjà fait Nounours?
11/07/2010, 22h02
Nounours1

Merci

Oui mais lorsque je modifie ma date dans mon formulaire principal le champ catégorie ne se met pas à jour.

sauf si je clique sur chaque ligne.
11/07/2010, 22h09
Nounours1

dans ma requête j'ai fais ceci :

dans un champ calculé :

Code:

a: VraiFaux([âgechiffre] Entre 0 Et 300;"C";VraiFaux([âgechiffre] Entre 300 Et 600;"D";VraiFaux([âgechiffre] Entre 600 Et 10000;"E";VraiFaux([âgechiffre] Entre 10000 Et 10600;"F";VraiFaux([âgechiffre] Entre 10600 Et 20000;"G";VraiFaux([âgechiffre]>20000;"H";""))))))

Puis ensuite sur l'événement de l'entré du formulaire j'ai écrit:

Me.CATEGORIE = Me.a
Me.CATEGORIE.REQUERY

End sub

si je clique sur chaque ligne mon champ categorie se met à jour alors que je voudrai qu'il s'y mettre tout seul.

Encore merci.
11/07/2010, 22h13
Psychopathe

Faudrait voir à quoi ressemble ton formulaire. Mais il faut à mon avis creuser sur la voie de l'évènement des contrôles.
11/07/2010, 22h17
Nounours1

C'est un formulaire principal avec un champ date indépendant, en dessous le sous formulaire en question sans liaison père fils, lorsque je change la date le calcul change seul sauf que le champ categorie ne change pas.

Merci.
11/07/2010, 22h26
Psychopathe

Mouais difficile de bien comprendre avec cette description... Tu utilise un module pour le calcul de l'age? Pourrait-on voir le code?

Code issue de ce forum

Code:

1
2
3
4
5
6
7
8
9
10
Function Minus(a As Variant, B As Variant, C As Variant)
    Dim tampon As Variant
    If (a < 0) Then
        tampon = B
        C = C - 1
    Else
        tampon = a
    End If
    Minus = tampon
End Function

Code:

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
Function Anciennete(REF, DNA As Variant)
    Dim acand As Variant        'Année de la date dont on calcule l'âge
    Dim mcand As Variant        'Mois de la date dont on calcule l'âge
    Dim jcand As Variant        'Jour de la date dont on calcule l'âge
    Dim aage As Variant         'Nombre d'années de l'âge calculé
    Dim mage As Variant         'Nombre de mois de l'âge calculé
    Dim jage As Variant         'Nombre de jours de l'âge calculé
    acand = Year(DNA)
    mcand = Month(DNA)
    jcand = Day(DNA)
    'Si le jour de référence >= jour de la date dont on calcule l'âge
    'et si le mois de référence >= mois de la date dont on calcule l'âge
    If ((Day(REF) >= jcand) And (Month(REF) >= mcand)) Then
        'Cas le plus simple on fait la différence
        jage = Day(REF) - jcand
        mage = Month(REF) - mcand
        aage = Year(REF) - acand
    Else
        'Sinon le nombre de jours de l'âge calculé est
        jage = Minus(Day(REF) - jcand, Day(REF) - jcand + 30, mage)
        If ((Month(REF) = mcand) And (Day(REF) < jcand)) Then
            mage = 11
            aage = aage - 1
        Else
            mage = mage + Minus(Month(REF) - mcand, Month(REF) - mcand + 12, aage)
        End If
        aage = aage + Year(REF) - acand
    End If
    If (mage < 10) Then
        mage = "0" & mage
    End If
    If (jage < 10) Then
        jage = "0" & jage
    End If
    Anciennete = aage & mage & jage
End Function
 
'Utilisation
'Age    : Anciennete(Date();[dthNaissance])
'format : @@"a "@@"m "@@\jBon courage

11/07/2010, 22h44
Psychopathe

C'était plutôt quand Anciennete est utilisé qui m'intéresse. Tu dis que le calcul fonctionne. Mais pas la catégorie. Hors le catégorie dépend du calcul de l'age. Peut-être qu'il faut suivre la même logique que pour le calcul de l'age, c'est à dire faire un module qui te sort directement la catégorie en fonction de la date entrée et non avec l'age. Cela peut faire doublon dans l'écriture du code, mais c'est une voie à explorer, vu les éléments en jeu.
11/07/2010, 22h47
Nounours1

Merci pour ta réponse, comment tu vois cela ?

Code:

Anciennete(Date();[dthNaissance])

Sur mon appli je l'ai remplacé par

Code:

Anciennete(Forms![inventaire]![MaDate];[dthNaissance])
11/07/2010, 22h54
Nounours1

Si le calcul doit se faire sur l'âge car celui-ci évolue dans le temps, donc si je veux réaliser une simulation dans le futur la categorie va changer par l'âge.

Bonne nuit à demain.

Je vais justement faire un vêlage apparement trés difficile , bonjour la nuit ! :cry:

@+
12/07/2010, 16h19
Nounours1

Bonjour,

J'ai simplifié le problème par une requête mise à jour qui actualise le champ catégorie à chaque fois que je change la date du champ "date" du formulaire principal.

Mais bon j'aurais quand même bien voulu mettre mon code dans un module pour qu'il soit à porté de main.

Je fais également des essais pour modifier ce code avec select case et case pour éviter les répétitions de "if" "then" etc.

Je veux toujours bien un petit coup de main sur cette dernière, je "résolu" mais j'espère que j'aurais une nouvelle réponse.

Encore merci. :?
12/07/2010, 16h51
Psychopathe

Pour les Select case, c'est une bonne idée afin de rendre le code plus lisible.
Sinon c'est résolu, mais je n'ai pas pu comprendre... C'est bien dommage.
12/07/2010, 19h37
Nounours1

Qu'est-ce que tu n'as pas compris ?
12/07/2010, 19h39
Nounours1

Tu aurais un exemple sous la main pour mon code avec select case ?

Merci.

Ben j'ai pas vraiment compris ce que tu voulais faire, mais l'important c'est que ça marche. Sinon pour le Select case:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub FILIERE_AfterUpdate()
 
Select Case âge
    Case Is < 300
        Me.CATEGORIE = "C"
    Case Is < 600
        Me.CATEGORIE = "D"
    Case Is < 10000
        Me.CATEGORIE = "E"
    Case Is < 10600
        Me.CATEGORIE = "F"
    Case Is < 20000
        Me.CATEGORIE = "G"
    Case Else
        Me.CATEGORIE = "H"
End Select

12/07/2010, 21h28
Nounours1

Merci beaucoup pour le code, c'est bien que je voulais.

@+