OVH Cloud OVH Cloud

Ouverture de formulaire avec restreinte

2 réponses
Avatar
Luis
Bonjour,
Dans le MENU GENERAL d'une base de donn=E9es j'ai voulu=20
limiter le nombre de fiches visibles =E0 l'ouverture d'un=20
formulaire comme ceci:

DoCmd.openform "INCRITS", acNormal, , "[UTILISATEUR]=3D
[FORMS]![Menu general].[TEXTE127]"
If IsNull(Forms.INCRITS.IDINCRITS) Then
msgbox "Vous n'avez pas d' inscrit dans ce domaine"
DoCmd.Close acForm, " INCRITS "
Exit Sub
End If

Tant que l'utilisateur a des inscrits sous son nom pas de=20
probl=E8mes.

Mais si jamais l'utilisateur n'a pas d'inscrit, le=20
formulaire commence =E0 s'ouvrir et bogue.
Comment r=E9soudre ce probl=E8me.
Merci =E0 tous.
Luis

2 réponses

Avatar
Yann
Salut Luis,
C'est normal (enfin je pense) car lorsque tu fais ton If
IsNull(Forms.INCRITS.IDINCRITS) Then, il n'y a rien dans
Forms.INCRITS.IDINCRITS, essai plutôt
Forms.INCRITS.IDINCRITS Is Nothing

Bye
Yann

-----Message d'origine-----
Bonjour,
Dans le MENU GENERAL d'une base de données j'ai voulu
limiter le nombre de fiches visibles à l'ouverture d'un
formulaire comme ceci:

DoCmd.openform "INCRITS", acNormal, , "[UTILISATEUR]=
[FORMS]![Menu general].[TEXTE127]"
If IsNull(Forms.INCRITS.IDINCRITS) Then
msgbox "Vous n'avez pas d' inscrit dans ce domaine"
DoCmd.Close acForm, " INCRITS "
Exit Sub
End If

Tant que l'utilisateur a des inscrits sous son nom pas
de

problèmes.

Mais si jamais l'utilisateur n'a pas d'inscrit, le
formulaire commence à s'ouvrir et bogue.
Comment résoudre ce problème.
Merci à tous.
Luis
.



Avatar
Luis
Bonjour,
Non ce ci ne résoud pas le problème.
Je pense que ça vient parce que j'ai

Private Sub Form_Load()
Champ145.SetFocus
End Sub

Mais je suis obligé de garder le focus sur ce champ.
Merci.
Il y a une autre solution?
Luis
-----Message d'origine-----
Salut Luis,
C'est normal (enfin je pense) car lorsque tu fais ton If
IsNull(Forms.INCRITS.IDINCRITS) Then, il n'y a rien dans
Forms.INCRITS.IDINCRITS, essai plutôt
Forms.INCRITS.IDINCRITS Is Nothing

Bye
Yann

-----Message d'origine-----
Bonjour,
Dans le MENU GENERAL d'une base de données j'ai voulu
limiter le nombre de fiches visibles à l'ouverture d'un
formulaire comme ceci:

DoCmd.openform "INCRITS", acNormal, , "[UTILISATEUR]=
[FORMS]![Menu general].[TEXTE127]"
If IsNull(Forms.INCRITS.IDINCRITS) Then
msgbox "Vous n'avez pas d' inscrit dans ce domaine"
DoCmd.Close acForm, " INCRITS "
Exit Sub
End If

Tant que l'utilisateur a des inscrits sous son nom pas
de

problèmes.

Mais si jamais l'utilisateur n'a pas d'inscrit, le
formulaire commence à s'ouvrir et bogue.
Comment résoudre ce problème.
Merci à tous.
Luis
.

.