Discussion :

[johnburton54]

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

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

[973thom]

si tu te débrouille un peu en vba tu pourrais t'inspirer de ceci

[johnburton54]

merci du conseil mais sa refuse de fonctionner

[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 ?

[jokenjo]

merci du conseil mais sa refuse de fonctionner

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

Merci

[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

[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

[johnburton54]

merci

[johnburton54]

Code :

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

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

[johnburton54]

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 :

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
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

[nunurs83]

En mode debug regardes si ton recorset est bien rempli

[johnburton54]

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