Discussion :

[arnold95]

Bonjour

Je souhaiterais débuter sur VBA Access (Access 2000) – Je connais VBA Excel mais je pense qu’il y a de grandes différences entre les deux.
Pour une question de données je vais réaliser des tests via VBA Access. J’ai commencé a regardé un peu sur le net des cours d’initiation mais en général ils ne sont pas très clair, je pense que le mieux, c’est l’apprentissage par l’exemple.

 Je souhaiterais créer dans la table « produit » une colonne qui s’appelle « Test » - Cette colonne peut prendre deux valeurs : ‘Test 1’ ou ‘Test 2’.

Le test est le suivant :

 Si dans la colonne « product » la valeur est ‘S’
Si dans la colonne code la valeur est égale à ‘EJ’
Si dans la colonne calendrier la valeur est calendrier ‘Journalier’
Alors dans la colonne Test mettre ‘Test 1’

 Si dans la colonne « product » la valeur est ‘D’
Si dans la colonne code la valeur est égale à ‘ET’
Si dans la colonne calendrier la valeur est calendrier ‘Journalier’
Alors dans la colonne Test mettre ‘Test 2’

Merci.

[marot_r]

Généralement on ne stocke pas le résultat d'un calcul dans une table, on utilise une requête qui fait le calcul au moment où on en a besoin.

De plus il se peut que tu n'est pas à utiliser de test du tout mais une jointure ou une relation entre tes tables.

À quoi va te servir cette colonne Test ?

Quel est le but général de ton application ?

Note : Attention une base de données relationnelle ne se conçoit pas du tout comme une feuille Excel.

A+

[RootsInternationnal]

HEllo^

Tu fais un bouton,
sur l'evenement clic tu met le code
qui va chercher les info de ta table pour les mettre dans un recordset.
Puis qui test chaque valeur.

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
    Set Db = CurrentDb
        Set rs = Db.OpenRecordset("produit", dbOpenDynaset)   'Lancement de la requete
            If Not rs.EOF Then
                   if rs![product]="s" and rs![valeur]="EJ"  then
                       rs.edit
                       rs![test] = "test1"
                       rs.Update
                   else
                       if rs![product]="D" and rs![valeur]="ET"  then
                            rs.edit
                             rs![test] = "test2"
                             rs.Update
                       end if 
                   end if
              end if
        rs.Close
Set Db = Nothing

C'est du VBA 97^