Bonjour,
En passant d'un formulaire =E0 un autre j'ai un message=20
Access =E0 l'ouverture du 2=E8me formulaire qui me dit qu'un=20
autre utilisateur =E0 modifi=E9....
avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajout=E9 en sortie:
If Me.Dirty Then
msgbox "Attention..."
End If
Or j'ai ce message sans avoir fait de modifications=20
simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent ouvertes.
Est-ce que vous pouvez m'aider?
Sur Activation j'ai =E7a:
Private Sub Form_Current()
=20
If Me.SelectTS =3D "1" Then
Me.Commande311.Visible =3D True
Me.Commande310.Visible =3D False
Else
If Me.SelectTS =3D "2" Then
Me.Commande311.Visible =3D False
Me.Commande310.Visible =3D True
Else
If Me.SelectTS =3D "3" Then
Me.Commande311.Visible =3D False
Me.Commande310.Visible =3D True
Else
If Me.SelectTS =3D "4" Then
Me.Commande311.Visible =3D True
Me.Commande310.Visible =3D False
End If
End If
End If
End If
=20
=20
If Me.DOMAINE =3D "2" Then
Me.Cadre216.Visible =3D False
Else
Me.Cadre216.Visible =3D True
=20
End If
=20
If IsNull(Me.PERMIS) Then
Me.Attention =3D ""
Exit Sub
End If
If (Me.PERMIS) =3D "Sans permis de travail" Then
Me.Attention =3D "!!!! Ce candidat n'a pas de Permis de=20
Travail !!!!"
Exit Sub
End If
If IsNull(Me.DATE_PERMISTRAVAIL) Then
Me.Attention =3D "!!!! Il manque la date d'=E9ch=E9ance du=20
permis de travail pour ce candidat !!!!"
Exit Sub
End If
If (DateDiff("d", Me.DATE_PERMISTRAVAIL, DATE) > 0) Then
Me.Attention =3D "!!!! @Le permis de travail de ce=20
candidat n'est plus valable depuis " & DateDiff("d",=20
Me.DATE_PERMISTRAVAIL, DATE) & " jours@ !!!!"
Else
Me.Attention =3D "!!!! @Le permis de travail de ce=20
candidat est encore valable pour " & DateDiff("d", DATE,=20
Me.DATE_PERMISTRAVAIL) & " jours@ !!!!"
End If
Exit Sub
End Sub
Sur Activ=E9:
Private Sub Form_Activate()
DoCmd.Maximize
End Sub
Je sais c'est long, mais comme =E7a vous avez tout.
Faut-il modifier quelque chose?
Je ne sais plus qoui faire, pour r=E9soudre ce probl=E8me.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut Luis,
"Luis" En passant d'un formulaire à un autre j'ai un message Access à l'ouverture du 2ème formulaire qui me dit qu'un autre utilisateur à modifié.... avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajouté en sortie:
If Me.Dirty Then msgbox "Attention..." End If
Or j'ai ce message sans avoir fait de modifications simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent ouvertes. Est-ce que vous pouvez m'aider?
Sur Activation j'ai ça: Private Sub Form_Current()
If Me.SelectTS = "1" Then Me.Commande311.Visible = True Me.Commande310.Visible = False Else If Me.SelectTS = "2" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "3" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "4" Then Me.Commande311.Visible = True Me.Commande310.Visible = False End If End If End If End If
Un "Select Case ... " serait avantageux...
Select Case Me.SelectTS Case "1" Me.Commande311.Visible = True Me.Commande310.Visible = False Case "2" ... Case "3" ... Case "4" ... Case Else ... End Select
If IsNull(Me.PERMIS) Then Me.Attention = "" Exit Sub End If <snip>
Me.Attention est un contrôle lié ?
Si oui, dans ce cas tu modifie la valeur : tu attribue ""
"Luis"
En passant d'un formulaire à un autre j'ai un message
Access à l'ouverture du 2ème formulaire qui me dit qu'un
autre utilisateur à modifié....
avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajouté en sortie:
If Me.Dirty Then
msgbox "Attention..."
End If
Or j'ai ce message sans avoir fait de modifications
simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent ouvertes.
Est-ce que vous pouvez m'aider?
Sur Activation j'ai ça:
Private Sub Form_Current()
If Me.SelectTS = "1" Then
Me.Commande311.Visible = True
Me.Commande310.Visible = False
Else
If Me.SelectTS = "2" Then
Me.Commande311.Visible = False
Me.Commande310.Visible = True
Else
If Me.SelectTS = "3" Then
Me.Commande311.Visible = False
Me.Commande310.Visible = True
Else
If Me.SelectTS = "4" Then
Me.Commande311.Visible = True
Me.Commande310.Visible = False
End If
End If
End If
End If
Un "Select Case ... " serait avantageux...
Select Case Me.SelectTS
Case "1"
Me.Commande311.Visible = True
Me.Commande310.Visible = False
Case "2"
...
Case "3"
...
Case "4"
...
Case Else
...
End Select
If IsNull(Me.PERMIS) Then
Me.Attention = ""
Exit Sub
End If
<snip>
Me.Attention est un contrôle lié ?
Si oui, dans ce cas tu modifie la valeur : tu attribue ""
"Luis" En passant d'un formulaire à un autre j'ai un message Access à l'ouverture du 2ème formulaire qui me dit qu'un autre utilisateur à modifié.... avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajouté en sortie:
If Me.Dirty Then msgbox "Attention..." End If
Or j'ai ce message sans avoir fait de modifications simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent ouvertes. Est-ce que vous pouvez m'aider?
Sur Activation j'ai ça: Private Sub Form_Current()
If Me.SelectTS = "1" Then Me.Commande311.Visible = True Me.Commande310.Visible = False Else If Me.SelectTS = "2" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "3" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "4" Then Me.Commande311.Visible = True Me.Commande310.Visible = False End If End If End If End If
Un "Select Case ... " serait avantageux...
Select Case Me.SelectTS Case "1" Me.Commande311.Visible = True Me.Commande310.Visible = False Case "2" ... Case "3" ... Case "4" ... Case Else ... End Select
If IsNull(Me.PERMIS) Then Me.Attention = "" Exit Sub End If <snip>
Me.Attention est un contrôle lié ?
Si oui, dans ce cas tu modifie la valeur : tu attribue ""
Me.Attention est un champ dans la table. J'ai changé sur ton conseil tous les if par Select Case, mais j'ai toujours La Msgbox "Attention...." qui vient à la fermeture du premier formulaire et à l'ouverture du deuxième formulaire (que j'ouvre depuis ce premier) le message d'erreur 'Conflit d'écritures'
J'ai oublié de préciser que le premier formulaire contient 2 sous-formulaires, est-ce que ça peut venir de là et quelle est la solution? Luis
-----Message d'origine----- Salut Luis,
"Luis" En passant d'un formulaire à un autre j'ai un message Access à l'ouverture du 2ème formulaire qui me dit qu'un autre utilisateur à modifié.... avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajouté en sortie:
If Me.Dirty Then msgbox "Attention..." End If
Or j'ai ce message sans avoir fait de modifications simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent ouvertes. Est-ce que vous pouvez m'aider?
Sur Activation j'ai ça: Private Sub Form_Current()
If Me.SelectTS = "1" Then Me.Commande311.Visible = True Me.Commande310.Visible = False Else If Me.SelectTS = "2" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "3" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "4" Then Me.Commande311.Visible = True Me.Commande310.Visible = False End If End If End If End If
Un "Select Case ... " serait avantageux...
Select Case Me.SelectTS Case "1" Me.Commande311.Visible = True Me.Commande310.Visible = False Case "2" ... Case "3" ... Case "4" ... Case Else ... End Select
If IsNull(Me.PERMIS) Then Me.Attention = "" Exit Sub End If <snip>
Me.Attention est un contrôle lié ?
Si oui, dans ce cas tu modifie la valeur : tu attribue ""
Me.Attention est un champ dans la table.
J'ai changé sur ton conseil tous les if par Select Case,
mais j'ai toujours
La Msgbox "Attention...." qui vient à la fermeture du
premier formulaire et à l'ouverture du deuxième formulaire
(que j'ouvre depuis ce premier) le message
d'erreur 'Conflit d'écritures'
J'ai oublié de préciser que le premier formulaire contient
2 sous-formulaires, est-ce que ça peut venir de là et
quelle est la solution?
Luis
-----Message d'origine-----
Salut Luis,
"Luis"
En passant d'un formulaire à un autre j'ai un message
Access à l'ouverture du 2ème formulaire qui me dit qu'un
autre utilisateur à modifié....
avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajouté en sortie:
If Me.Dirty Then
msgbox "Attention..."
End If
Or j'ai ce message sans avoir fait de modifications
simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent ouvertes.
Est-ce que vous pouvez m'aider?
Sur Activation j'ai ça:
Private Sub Form_Current()
If Me.SelectTS = "1" Then
Me.Commande311.Visible = True
Me.Commande310.Visible = False
Else
If Me.SelectTS = "2" Then
Me.Commande311.Visible = False
Me.Commande310.Visible = True
Else
If Me.SelectTS = "3" Then
Me.Commande311.Visible = False
Me.Commande310.Visible = True
Else
If Me.SelectTS = "4" Then
Me.Commande311.Visible = True
Me.Commande310.Visible = False
End If
End If
End If
End If
Un "Select Case ... " serait avantageux...
Select Case Me.SelectTS
Case "1"
Me.Commande311.Visible = True
Me.Commande310.Visible = False
Case "2"
...
Case "3"
...
Case "4"
...
Case Else
...
End Select
If IsNull(Me.PERMIS) Then
Me.Attention = ""
Exit Sub
End If
<snip>
Me.Attention est un contrôle lié ?
Si oui, dans ce cas tu modifie la valeur : tu
attribue ""
Me.Attention est un champ dans la table. J'ai changé sur ton conseil tous les if par Select Case, mais j'ai toujours La Msgbox "Attention...." qui vient à la fermeture du premier formulaire et à l'ouverture du deuxième formulaire (que j'ouvre depuis ce premier) le message d'erreur 'Conflit d'écritures'
J'ai oublié de préciser que le premier formulaire contient 2 sous-formulaires, est-ce que ça peut venir de là et quelle est la solution? Luis
-----Message d'origine----- Salut Luis,
"Luis" En passant d'un formulaire à un autre j'ai un message Access à l'ouverture du 2ème formulaire qui me dit qu'un autre utilisateur à modifié.... avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajouté en sortie:
If Me.Dirty Then msgbox "Attention..." End If
Or j'ai ce message sans avoir fait de modifications simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent ouvertes. Est-ce que vous pouvez m'aider?
Sur Activation j'ai ça: Private Sub Form_Current()
If Me.SelectTS = "1" Then Me.Commande311.Visible = True Me.Commande310.Visible = False Else If Me.SelectTS = "2" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "3" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "4" Then Me.Commande311.Visible = True Me.Commande310.Visible = False End If End If End If End If
Un "Select Case ... " serait avantageux...
Select Case Me.SelectTS Case "1" Me.Commande311.Visible = True Me.Commande310.Visible = False Case "2" ... Case "3" ... Case "4" ... Case Else ... End Select
If IsNull(Me.PERMIS) Then Me.Attention = "" Exit Sub End If <snip>
Me.Attention est un contrôle lié ?
Si oui, dans ce cas tu modifie la valeur : tu attribue ""
"Luis" a écrit dans le message de news: 16c901c4fa45$569fd7e0$ Bonjour,
Me.Attention est un champ dans la table. J'ai changé sur ton conseil tous les if par Select Case, mais j'ai toujours La Msgbox "Attention...." qui vient à la fermeture du premier formulaire et à l'ouverture du deuxième formulaire (que j'ouvre depuis ce premier) le message d'erreur 'Conflit d'écritures'
J'ai oublié de préciser que le premier formulaire contient 2 sous-formulaires, est-ce que ça peut venir de là et quelle est la solution? Luis
-----Message d'origine----- Salut Luis,
"Luis" En passant d'un formulaire à un autre j'ai un message Access à l'ouverture du 2ème formulaire qui me dit qu'un autre utilisateur à modifié.... avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajouté en sortie:
If Me.Dirty Then msgbox "Attention..." End If
Or j'ai ce message sans avoir fait de modifications simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent ouvertes. Est-ce que vous pouvez m'aider?
Sur Activation j'ai ça: Private Sub Form_Current()
If Me.SelectTS = "1" Then Me.Commande311.Visible = True Me.Commande310.Visible = False Else If Me.SelectTS = "2" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "3" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "4" Then Me.Commande311.Visible = True Me.Commande310.Visible = False End If End If End If End If
Un "Select Case ... " serait avantageux...
Select Case Me.SelectTS Case "1" Me.Commande311.Visible = True Me.Commande310.Visible = False Case "2" ... Case "3" ... Case "4" ... Case Else ... End Select
If IsNull(Me.PERMIS) Then Me.Attention = "" Exit Sub End If <snip>
Me.Attention est un contrôle lié ?
Si oui, dans ce cas tu modifie la valeur : tu attribue ""
"Luis" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 16c901c4fa45$569fd7e0$a601280a@phx.gbl...
Bonjour,
Me.Attention est un champ dans la table.
J'ai changé sur ton conseil tous les if par Select Case,
mais j'ai toujours
La Msgbox "Attention...." qui vient à la fermeture du
premier formulaire et à l'ouverture du deuxième formulaire
(que j'ouvre depuis ce premier) le message
d'erreur 'Conflit d'écritures'
J'ai oublié de préciser que le premier formulaire contient
2 sous-formulaires, est-ce que ça peut venir de là et
quelle est la solution?
Luis
-----Message d'origine-----
Salut Luis,
"Luis"
En passant d'un formulaire à un autre j'ai un message
Access à l'ouverture du 2ème formulaire qui me dit qu'un
autre utilisateur à modifié....
avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajouté en sortie:
If Me.Dirty Then
msgbox "Attention..."
End If
Or j'ai ce message sans avoir fait de modifications
simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent ouvertes.
Est-ce que vous pouvez m'aider?
Sur Activation j'ai ça:
Private Sub Form_Current()
If Me.SelectTS = "1" Then
Me.Commande311.Visible = True
Me.Commande310.Visible = False
Else
If Me.SelectTS = "2" Then
Me.Commande311.Visible = False
Me.Commande310.Visible = True
Else
If Me.SelectTS = "3" Then
Me.Commande311.Visible = False
Me.Commande310.Visible = True
Else
If Me.SelectTS = "4" Then
Me.Commande311.Visible = True
Me.Commande310.Visible = False
End If
End If
End If
End If
Un "Select Case ... " serait avantageux...
Select Case Me.SelectTS
Case "1"
Me.Commande311.Visible = True
Me.Commande310.Visible = False
Case "2"
...
Case "3"
...
Case "4"
...
Case Else
...
End Select
If IsNull(Me.PERMIS) Then
Me.Attention = ""
Exit Sub
End If
<snip>
Me.Attention est un contrôle lié ?
Si oui, dans ce cas tu modifie la valeur : tu
attribue ""
"Luis" a écrit dans le message de news: 16c901c4fa45$569fd7e0$ Bonjour,
Me.Attention est un champ dans la table. J'ai changé sur ton conseil tous les if par Select Case, mais j'ai toujours La Msgbox "Attention...." qui vient à la fermeture du premier formulaire et à l'ouverture du deuxième formulaire (que j'ouvre depuis ce premier) le message d'erreur 'Conflit d'écritures'
J'ai oublié de préciser que le premier formulaire contient 2 sous-formulaires, est-ce que ça peut venir de là et quelle est la solution? Luis
-----Message d'origine----- Salut Luis,
"Luis" En passant d'un formulaire à un autre j'ai un message Access à l'ouverture du 2ème formulaire qui me dit qu'un autre utilisateur à modifié.... avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajouté en sortie:
If Me.Dirty Then msgbox "Attention..." End If
Or j'ai ce message sans avoir fait de modifications simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent ouvertes. Est-ce que vous pouvez m'aider?
Sur Activation j'ai ça: Private Sub Form_Current()
If Me.SelectTS = "1" Then Me.Commande311.Visible = True Me.Commande310.Visible = False Else If Me.SelectTS = "2" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "3" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "4" Then Me.Commande311.Visible = True Me.Commande310.Visible = False End If End If End If End If
Un "Select Case ... " serait avantageux...
Select Case Me.SelectTS Case "1" Me.Commande311.Visible = True Me.Commande310.Visible = False Case "2" ... Case "3" ... Case "4" ... Case Else ... End Select
If IsNull(Me.PERMIS) Then Me.Attention = "" Exit Sub End If <snip>
Me.Attention est un contrôle lié ?
Si oui, dans ce cas tu modifie la valeur : tu attribue ""
-----Message d'origine----- salut sur le bouton de fermeture du premier form
me.refresh docmd.close
"Luis" a écrit dans le message de
news: 16c901c4fa45$569fd7e0$ Bonjour,
Me.Attention est un champ dans la table. J'ai changé sur ton conseil tous les if par Select Case, mais j'ai toujours La Msgbox "Attention...." qui vient à la fermeture du premier formulaire et à l'ouverture du deuxième formulaire (que j'ouvre depuis ce premier) le message d'erreur 'Conflit d'écritures'
J'ai oublié de préciser que le premier formulaire contient 2 sous-formulaires, est-ce que ça peut venir de là et quelle est la solution? Luis
-----Message d'origine----- Salut Luis,
"Luis" En passant d'un formulaire à un autre j'ai un message Access à l'ouverture du 2ème formulaire qui me dit qu'un autre utilisateur à modifié.... avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajouté en sortie:
If Me.Dirty Then msgbox "Attention..." End If
Or j'ai ce message sans avoir fait de modifications simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent ouvertes.
Est-ce que vous pouvez m'aider?
Sur Activation j'ai ça: Private Sub Form_Current()
If Me.SelectTS = "1" Then Me.Commande311.Visible = True Me.Commande310.Visible = False Else If Me.SelectTS = "2" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "3" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "4" Then Me.Commande311.Visible = True Me.Commande310.Visible = False End If End If End If End If
Un "Select Case ... " serait avantageux...
Select Case Me.SelectTS Case "1" Me.Commande311.Visible = True Me.Commande310.Visible = False Case "2" ... Case "3" ... Case "4" ... Case Else ... End Select
If IsNull(Me.PERMIS) Then Me.Attention = "" Exit Sub End If <snip>
Me.Attention est un contrôle lié ?
Si oui, dans ce cas tu modifie la valeur : tu attribue ""
Me.Attention est un champ dans la table.
J'ai changé sur ton conseil tous les if par Select Case,
mais j'ai toujours
La Msgbox "Attention...." qui vient à la fermeture du
premier formulaire et à l'ouverture du deuxième formulaire
(que j'ouvre depuis ce premier) le message
d'erreur 'Conflit d'écritures'
J'ai oublié de préciser que le premier formulaire contient
2 sous-formulaires, est-ce que ça peut venir de là et
quelle est la solution?
Luis
-----Message d'origine-----
Salut Luis,
"Luis"
En passant d'un formulaire à un autre j'ai un message
Access à l'ouverture du 2ème formulaire qui me dit qu'un
autre utilisateur à modifié....
avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajouté en sortie:
If Me.Dirty Then
msgbox "Attention..."
End If
Or j'ai ce message sans avoir fait de modifications
simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent
ouvertes.
Est-ce que vous pouvez m'aider?
Sur Activation j'ai ça:
Private Sub Form_Current()
If Me.SelectTS = "1" Then
Me.Commande311.Visible = True
Me.Commande310.Visible = False
Else
If Me.SelectTS = "2" Then
Me.Commande311.Visible = False
Me.Commande310.Visible = True
Else
If Me.SelectTS = "3" Then
Me.Commande311.Visible = False
Me.Commande310.Visible = True
Else
If Me.SelectTS = "4" Then
Me.Commande311.Visible = True
Me.Commande310.Visible = False
End If
End If
End If
End If
Un "Select Case ... " serait avantageux...
Select Case Me.SelectTS
Case "1"
Me.Commande311.Visible = True
Me.Commande310.Visible = False
Case "2"
...
Case "3"
...
Case "4"
...
Case Else
...
End Select
If IsNull(Me.PERMIS) Then
Me.Attention = ""
Exit Sub
End If
<snip>
Me.Attention est un contrôle lié ?
Si oui, dans ce cas tu modifie la valeur : tu
attribue ""
-----Message d'origine----- salut sur le bouton de fermeture du premier form
me.refresh docmd.close
"Luis" a écrit dans le message de
news: 16c901c4fa45$569fd7e0$ Bonjour,
Me.Attention est un champ dans la table. J'ai changé sur ton conseil tous les if par Select Case, mais j'ai toujours La Msgbox "Attention...." qui vient à la fermeture du premier formulaire et à l'ouverture du deuxième formulaire (que j'ouvre depuis ce premier) le message d'erreur 'Conflit d'écritures'
J'ai oublié de préciser que le premier formulaire contient 2 sous-formulaires, est-ce que ça peut venir de là et quelle est la solution? Luis
-----Message d'origine----- Salut Luis,
"Luis" En passant d'un formulaire à un autre j'ai un message Access à l'ouverture du 2ème formulaire qui me dit qu'un autre utilisateur à modifié.... avec Annuler, copier, copier dans le presse papier.
Dans le premier formulaire j'ai ajouté en sortie:
If Me.Dirty Then msgbox "Attention..." End If
Or j'ai ce message sans avoir fait de modifications simplement en l'ouvrant et en le fermant.
Je n'arrive pas a voir quelles fonctions restent ouvertes.
Est-ce que vous pouvez m'aider?
Sur Activation j'ai ça: Private Sub Form_Current()
If Me.SelectTS = "1" Then Me.Commande311.Visible = True Me.Commande310.Visible = False Else If Me.SelectTS = "2" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "3" Then Me.Commande311.Visible = False Me.Commande310.Visible = True Else If Me.SelectTS = "4" Then Me.Commande311.Visible = True Me.Commande310.Visible = False End If End If End If End If
Un "Select Case ... " serait avantageux...
Select Case Me.SelectTS Case "1" Me.Commande311.Visible = True Me.Commande310.Visible = False Case "2" ... Case "3" ... Case "4" ... Case Else ... End Select
If IsNull(Me.PERMIS) Then Me.Attention = "" Exit Sub End If <snip>
Me.Attention est un contrôle lié ?
Si oui, dans ce cas tu modifie la valeur : tu attribue ""
