problème simple avec des "if"

Version imprimable

06/06/2007, 09h23
johnburton54

problème simple avec des "if"

--------------------------------------------------------------------------------

Je dois faire une condition avec if
j'ai une table qui contien un identifiant salarié et un fonctionnalité R comme responsable et O comme opérateur

Un employé tape son identifiant et si il est R il a droit a un formulaire
si il est O il a droit a un autre form.

merci d'avance
06/06/2007, 10h02
973thom

si tu te débrouille un peu en vba tu pourrais t'inspirer de ceci
06/06/2007, 11h22
johnburton54

merci du conseil mais sa refuse de fonctionner
06/06/2007, 11h26
pascalouh

Qu'est ce qui ne fonctionne pas ?

Tu as déjà un code qui récupère les infos sur la personne dans la base lorsqu'il saisit son identifiant ?
06/06/2007, 11h29
jokenjo

Citation:

Envoyé par johnburton54

merci du conseil mais sa refuse de fonctionner

BOnjour
Pourriez vous donner plus d´information (l´erreur, avec morceau dwe code)

Merci
06/06/2007, 11h46
johnburton54

je n'ai aucune erreurs

seulement je ne sais pas comment récuperer les données d'une table

dsl mais je ne sais pas quoi mettre d'autre comme renseignement

Pour ce sui est du code, je n'en ai pas
06/06/2007, 11h49
Invité

Bonjour

Pour récupérer des données dans une table tu as plusieurs maniéres
1 - Les fonctions de domaine : DLookup, etc..
2 - Et le DAO, que je te conseille sur ce tuto.

Starec
06/06/2007, 13h29
johnburton54

merci

Code:

1
2
3
4
5
6
7
8
9
10
11
Set identification = CodeDb.OpenRecordset("Identifiant salarié")
 
If (identification("N°_de_Salarié")) And (identification("Fonctionnalité") = 'R') Then
 
    Application.Echo False
    DoCmd.Minimize
    DoCmd.OpenForm "Paramètres pour Presse"
    DoCmd.Maximize
    DoCmd.GoToRecord , , acNewRec
    Application.Echo True
End If

voila j'ai essayer de faire au plus simple mais sa ne marche pas

voila j'ai fais mes lignes de codes mais le problème est que je n'ai pas d'erreurs et pourtant sa ne fonctionne pas.
Si quelqu'un sais pourquoi ...

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
Set identification = CodeDb.OpenRecordset("Identifiant salarié")
 
If (identification("N° de Salarié")) And (identification("Fonctionnalité") = R) Then
 
    Application.Echo False
    DoCmd.Minimize
    DoCmd.OpenForm "Paramètres pour Presse"
    DoCmd.Maximize
    DoCmd.GoToRecord , , acNewRec
    Application.Echo True
 
Else
 
    If (identification("N° de Salarié")) And (identification("Fonctionnalité") = O) Then
 
        Application.Echo False
        DoCmd.Minimize
        DoCmd.OpenForm "Choix dune presse"
        DoCmd.Maximize
        DoCmd.GoToRecord , , acNewRec
        Application.Echo True
 
    End If
End If

07/06/2007, 09h53
nunurs83

En mode debug regardes si ton recorset est bien rempli
07/06/2007, 10h24
johnburton54

problème
en mode debug :
- RecordSource : Identifiant Salarié
- RecordSetType : /* Je ne vois pas ce que sa veut dire