OVH Cloud OVH Cloud

Selectionner sur le champ d'une requête

4 réponses
Avatar
Luis
Bonjour,
Sur le bouton d'ouverture d'un formulaire, seuls les=20
fiches de travail concernant l'utilisateur concern=E9s=20
doivent-=EAtre ouvertes pour =E7a je lance un test sur clic du=20
bouton:
test =3D DLookup
("[COMMERCIAL]", "TEMPORAIRES1", "[COMMERCIAL]=3D'" &=20
Me.Utilisateur & "'")
If Not test =3D Me!Utilisateur Then
MsgBox "Il n'y a pas de temporaire inscrit pour vous=20
dans ce domaine d'activit=E9!!!"

Else
DoCmd.openform "TEMPORAIRES", acNormal, , "[COMMERCIAL]=3D
[FORMS]![Menu general].[Utilisateur]"

Exit Sub
End If

Probl=E8me s'il n'y a pas de temporaires pour cet=20
utilisateur, le formulaire TEMPORAIRES essai tout de m=EAme=20
de s'ouvrir avec le message d'erreur suivant:
'Impossible d'atteindre l'enregistrement sp=E9cifi=E9'
Comment faut-il modifier ma formule pour aller tester dans=20
une requ=EAte?
Explications:
Commercial =3D nom de l'utilisateur tel que nomm=E9 dans la=20
table=20
Utilisateur =3D nom de l'utilisateur tel que nomm=E9 dans le=20
Formulaire Menu General
TEMPORAIRES1 =3D Nom de la Requ=EAte du formulaire =E0 ouvrir
TEMPORAIRES =3D Nom du formulaire =E0 ouvrir
Menu General =3D Nom du formulaire sur lequel il y a le=20
bouton pour ouvrir le formulaire TEMPORAIRES.

Merci pour votre aide.
Luis

4 réponses

Avatar
Gilbert
Bonjoour,
Je pense que Dlookup ne te renvoie pas Vrai ou Faux, mais une valeur ou
Null.
Essaie avec
If not isnull(test) then
else
endif

--
Gilbert


"Luis" a écrit dans le message de
news: 1b5601c53e8c$2b6b6810$
Bonjour,
Sur le bouton d'ouverture d'un formulaire, seuls les
fiches de travail concernant l'utilisateur concernés
doivent-être ouvertes pour ça je lance un test sur clic du
bouton:
test = DLookup
("[COMMERCIAL]", "TEMPORAIRES1", "[COMMERCIAL]='" &
Me.Utilisateur & "'")
If Not test = Me!Utilisateur Then
MsgBox "Il n'y a pas de temporaire inscrit pour vous
dans ce domaine d'activité!!!"

Else
DoCmd.openform "TEMPORAIRES", acNormal, , "[COMMERCIAL] [FORMS]![Menu general].[Utilisateur]"

Exit Sub
End If

Problème s'il n'y a pas de temporaires pour cet
utilisateur, le formulaire TEMPORAIRES essai tout de même
de s'ouvrir avec le message d'erreur suivant:
'Impossible d'atteindre l'enregistrement spécifié'
Comment faut-il modifier ma formule pour aller tester dans
une requête?
Explications:
Commercial = nom de l'utilisateur tel que nommé dans la
table
Utilisateur = nom de l'utilisateur tel que nommé dans le
Formulaire Menu General
TEMPORAIRES1 = Nom de la Requête du formulaire à ouvrir
TEMPORAIRES = Nom du formulaire à ouvrir
Menu General = Nom du formulaire sur lequel il y a le
bouton pour ouvrir le formulaire TEMPORAIRES.

Merci pour votre aide.
Luis
Avatar
Luis
Bonjour Gilbert,
Si j'écris:
If Not IsNull("[COMMERCIAL]", "TEMPORAIRES1", "[COMMERCIAL]
='" & Me.Utilisateur & "'") Then
DoCmd.openform "TEMPORAIRES", acNormal, , "[COMMERCIAL]=
[FORMS]![Menu general].[Utilisateur]"

Else
MsgBox "Il n'y a pas de temporaire inscrit pour vous dans
ce domaine d'activité!!!"
End If
Exit Sub

J'ai une erreur de compilation:
'Nombre d'arguments incorrect....(erreur 450)'
Si je clique sur aide j'ai une page grise, je n'arrive pas
à voir le concernant.
Peux-tu me dire ou est l'erreur?
Luis
-----Message d'origine-----
Bonjoour,
Je pense que Dlookup ne te renvoie pas Vrai ou Faux, mais
une valeur ou

Null.
Essaie avec
If not isnull(test) then
else
endif

--
Gilbert


"Luis" a écrit dans
le message de

news: 1b5601c53e8c$2b6b6810$
Bonjour,
Sur le bouton d'ouverture d'un formulaire, seuls les
fiches de travail concernant l'utilisateur concernés
doivent-être ouvertes pour ça je lance un test sur clic du
bouton:
test = DLookup
("[COMMERCIAL]", "TEMPORAIRES1", "[COMMERCIAL]='" &
Me.Utilisateur & "'")
If Not test = Me!Utilisateur Then
MsgBox "Il n'y a pas de temporaire inscrit pour vous
dans ce domaine d'activité!!!"

Else
DoCmd.openform "TEMPORAIRES", acNormal, , "[COMMERCIAL]=
[FORMS]![Menu general].[Utilisateur]"

Exit Sub
End If

Problème s'il n'y a pas de temporaires pour cet
utilisateur, le formulaire TEMPORAIRES essai tout de même
de s'ouvrir avec le message d'erreur suivant:
'Impossible d'atteindre l'enregistrement spécifié'
Comment faut-il modifier ma formule pour aller tester dans
une requête?
Explications:
Commercial = nom de l'utilisateur tel que nommé dans la
table
Utilisateur = nom de l'utilisateur tel que nommé dans le
Formulaire Menu General
TEMPORAIRES1 = Nom de la Requête du formulaire à ouvrir
TEMPORAIRES = Nom du formulaire à ouvrir
Menu General = Nom du formulaire sur lequel il y a le
bouton pour ouvrir le formulaire TEMPORAIRES.

Merci pour votre aide.
Luis


.



Avatar
Eric
Bonjour Luis,

Tu as mangé la moitiè de la commande ;-))

If Not IsNull(DLookUp("[COMMERCIAL]", "TEMPORAIRES1", "[COMMERCIAL]
='" & Me.Utilisateur & "'")) Then ...

A+
Eric




Bonjour Gilbert,
Si j'écris:
If Not IsNull("[COMMERCIAL]", "TEMPORAIRES1", "[COMMERCIAL]
='" & Me.Utilisateur & "'") Then
DoCmd.openform "TEMPORAIRES", acNormal, , "[COMMERCIAL] > [FORMS]![Menu general].[Utilisateur]"

Else
MsgBox "Il n'y a pas de temporaire inscrit pour vous dans
ce domaine d'activité!!!"
End If
Exit Sub

J'ai une erreur de compilation:
'Nombre d'arguments incorrect....(erreur 450)'
Si je clique sur aide j'ai une page grise, je n'arrive pas
à voir le concernant.
Peux-tu me dire ou est l'erreur?
Luis

-----Message d'origine-----
Bonjoour,
Je pense que Dlookup ne te renvoie pas Vrai ou Faux, mais


une valeur ou

Null.
Essaie avec
If not isnull(test) then
else
endif

--
Gilbert


"Luis" a écrit dans


le message de

news: 1b5601c53e8c$2b6b6810$
Bonjour,
Sur le bouton d'ouverture d'un formulaire, seuls les
fiches de travail concernant l'utilisateur concernés
doivent-être ouvertes pour ça je lance un test sur clic du
bouton:
test = DLookup
("[COMMERCIAL]", "TEMPORAIRES1", "[COMMERCIAL]='" &
Me.Utilisateur & "'")
If Not test = Me!Utilisateur Then
MsgBox "Il n'y a pas de temporaire inscrit pour vous
dans ce domaine d'activité!!!"

Else
DoCmd.openform "TEMPORAIRES", acNormal, , "[COMMERCIAL] >>[FORMS]![Menu general].[Utilisateur]"

Exit Sub
End If

Problème s'il n'y a pas de temporaires pour cet
utilisateur, le formulaire TEMPORAIRES essai tout de même
de s'ouvrir avec le message d'erreur suivant:
'Impossible d'atteindre l'enregistrement spécifié'
Comment faut-il modifier ma formule pour aller tester dans
une requête?
Explications:
Commercial = nom de l'utilisateur tel que nommé dans la
table
Utilisateur = nom de l'utilisateur tel que nommé dans le
Formulaire Menu General
TEMPORAIRES1 = Nom de la Requête du formulaire à ouvrir
TEMPORAIRES = Nom du formulaire à ouvrir
Menu General = Nom du formulaire sur lequel il y a le
bouton pour ouvrir le formulaire TEMPORAIRES.

Merci pour votre aide.
Luis


.





Avatar
Luis
Bonjour Eric,
Décidemment il faudrait que je change de tête.
Merci d'avoir vu mon étourderie.
Luis
-----Message d'origine-----
Bonjour Luis,

Tu as mangé la moitiè de la commande ;-))

If Not IsNull(DLookUp
("[COMMERCIAL]", "TEMPORAIRES1", "[COMMERCIAL]

='" & Me.Utilisateur & "'")) Then ...

A+
Eric




Bonjour Gilbert,
Si j'écris:
If Not IsNull
("[COMMERCIAL]", "TEMPORAIRES1", "[COMMERCIAL]


='" & Me.Utilisateur & "'") Then
DoCmd.openform "TEMPORAIRES", acNormal, , "[COMMERCIAL]=
[FORMS]![Menu general].[Utilisateur]"

Else
MsgBox "Il n'y a pas de temporaire inscrit pour vous
dans


ce domaine d'activité!!!"
End If
Exit Sub

J'ai une erreur de compilation:
'Nombre d'arguments incorrect....(erreur 450)'
Si je clique sur aide j'ai une page grise, je n'arrive
pas


à voir le concernant.
Peux-tu me dire ou est l'erreur?
Luis

-----Message d'origine-----
Bonjoour,
Je pense que Dlookup ne te renvoie pas Vrai ou Faux,
mais




une valeur ou

Null.
Essaie avec
If not isnull(test) then
else
endif

--
Gilbert


"Luis" a écrit
dans




le message de

news: 1b5601c53e8c$2b6b6810$
Bonjour,
Sur le bouton d'ouverture d'un formulaire, seuls les
fiches de travail concernant l'utilisateur concernés
doivent-être ouvertes pour ça je lance un test sur clic
du



bouton:
test = DLookup
("[COMMERCIAL]", "TEMPORAIRES1", "[COMMERCIAL]='" &
Me.Utilisateur & "'")
If Not test = Me!Utilisateur Then
MsgBox "Il n'y a pas de temporaire inscrit pour vous
dans ce domaine d'activité!!!"

Else
DoCmd.openform "TEMPORAIRES", acNormal, , "[COMMERCIAL]=
[FORMS]![Menu general].[Utilisateur]"

Exit Sub
End If

Problème s'il n'y a pas de temporaires pour cet
utilisateur, le formulaire TEMPORAIRES essai tout de
même



de s'ouvrir avec le message d'erreur suivant:
'Impossible d'atteindre l'enregistrement spécifié'
Comment faut-il modifier ma formule pour aller tester
dans



une requête?
Explications:
Commercial = nom de l'utilisateur tel que nommé dans la
table
Utilisateur = nom de l'utilisateur tel que nommé dans le
Formulaire Menu General
TEMPORAIRES1 = Nom de la Requête du formulaire à ouvrir
TEMPORAIRES = Nom du formulaire à ouvrir
Menu General = Nom du formulaire sur lequel il y a le
bouton pour ouvrir le formulaire TEMPORAIRES.

Merci pour votre aide.
Luis


.

.