OVH Cloud OVH Cloud

Operation sur formulaire

2 réponses
Avatar
Jer
Voila, je dispose de formulaires souvrant soit dans un=20
mode Consultation "lecture seule" (merci 3Stone pour les=20
renseignements d'hier, =E7a devrait marcher) et d'un mode=20
Mise =E0 jour. En fait, dans le mode Mise =E0 jour, les=20
utilisateurs doivent s'identifier pour pouvoir mettre =E0=20
jour les diff=E9rentes donn=E9es (selon les autoristaions=20
affect=E9es =E0 chaque utilisateur).
J'ai pu m'apercevoir par contre que quand je suis en mode=20
Consultation j'ai un message d'erreur qui apparait:=20
Utilisation incorecte de Null.
Est ce que je dois param=E9trer ma varible d'identification=20
des utilisateurs de fa=E7on =E0 dire : si pas d'utilisateur=20
renseign=E9 alors affiche toutes les donn=E9es. Dans le cas=20
=E9ch=E9ant, quel valeur faut-il affecter car Null ou Empty ne=20
marche pas.

Voila =E0 quoi ressemble le code :

Dim utilisateur As String
utilisateur =3D Form_F_ID.Modifiable18.Value

Select Case utilisateur

Case Is =3D ""

If Form_F_Commune.Commande5.Visible =3D True Then
Form_F_Commune.Commande11.Visible =3D True
Form_F_Commune.Commande_Envt.Visible =3D True
Form_F_Commune.Commande46.Visible =3D True
Form_F_Commune.Commande39.Visible =3D True
End If

End Select


Merci par avnvance
Jer, vraiment d=E9butant

2 réponses

Avatar
phil
Dans le débugage, l'erreur est-elle à la ligne :
utilisateur = Form_F_ID.Modifiable18.Value

si c'est le case, c'est que la valeur de cette liste
modifiable est Null, et on ne peut pas affecter la valeur
Nullà une variable. Il faudra déjà tester la liste
modifiable :
If IsNull(Form_F_ID.Modifiable18.Value) Then
utilisateur=""
Else
utilisateur = Form_F_ID.Modifiable18.Value
End If

ca devrait fonctionner


-----Message d'origine-----
Voila, je dispose de formulaires souvrant soit dans un
mode Consultation "lecture seule" (merci 3Stone pour les
renseignements d'hier, ça devrait marcher) et d'un mode
Mise à jour. En fait, dans le mode Mise à jour, les
utilisateurs doivent s'identifier pour pouvoir mettre à
jour les différentes données (selon les autoristaions
affectées à chaque utilisateur).
J'ai pu m'apercevoir par contre que quand je suis en mode
Consultation j'ai un message d'erreur qui apparait:
Utilisation incorecte de Null.
Est ce que je dois paramétrer ma varible d'identification
des utilisateurs de façon à dire : si pas d'utilisateur
renseigné alors affiche toutes les données. Dans le cas
échéant, quel valeur faut-il affecter car Null ou Empty
ne

marche pas.

Voila à quoi ressemble le code :

Dim utilisateur As String
utilisateur = Form_F_ID.Modifiable18.Value

Select Case utilisateur

Case Is = ""

If Form_F_Commune.Commande5.Visible = True Then
Form_F_Commune.Commande11.Visible = True
Form_F_Commune.Commande_Envt.Visible = True
Form_F_Commune.Commande46.Visible = True
Form_F_Commune.Commande39.Visible = True
End If

End Select


Merci par avnvance
Jer, vraiment débutant
.



Avatar
michel
Bonjour
Le probleme vient de ta déclaration de variable As string. Seule les
variable de type variant peuvent recevoir une valeur Null
Tu peux modifier ta ligne en utilisant la fonction nz
utilisateur = nz(Form_F_ID.Modifiable18.Value,"")
ceci convertira le null en chaine vide
HTH
Michel
"Jer" a écrit dans le message de news:
085701c3d5c2$dba87d50$
Voila, je dispose de formulaires souvrant soit dans un
mode Consultation "lecture seule" (merci 3Stone pour les
renseignements d'hier, ça devrait marcher) et d'un mode
Mise à jour. En fait, dans le mode Mise à jour, les
utilisateurs doivent s'identifier pour pouvoir mettre à
jour les différentes données (selon les autoristaions
affectées à chaque utilisateur).
J'ai pu m'apercevoir par contre que quand je suis en mode
Consultation j'ai un message d'erreur qui apparait:
Utilisation incorecte de Null.
Est ce que je dois paramétrer ma varible d'identification
des utilisateurs de façon à dire : si pas d'utilisateur
renseigné alors affiche toutes les données. Dans le cas
échéant, quel valeur faut-il affecter car Null ou Empty ne
marche pas.

Voila à quoi ressemble le code :

Dim utilisateur As String
utilisateur = Form_F_ID.Modifiable18.Value

Select Case utilisateur

Case Is = ""

If Form_F_Commune.Commande5.Visible = True Then
Form_F_Commune.Commande11.Visible = True
Form_F_Commune.Commande_Envt.Visible = True
Form_F_Commune.Commande46.Visible = True
Form_F_Commune.Commande39.Visible = True
End If

End Select


Merci par avnvance
Jer, vraiment débutant