Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access complément d'info pour rajouter dans une fonction

complément d'info pour rajouter dans une fonction

1 réponse
Avatar
URIANE
Bonjour,
J'ai une consultation ou modif de table avec protection, je souhaite donc
ouvrir mes deux tables citées ci-dessous mais en affichage mosaique vertical
comment puis-je l'indiquer ?
Merci
Function notation()
Dim stDocName As String
Dim response As String
Do Until response = "toto" Or response = "stop"
response = InputBox("Veuillez entrer le mot de passe de sécurité pour
continuer ou stop pour arrêter")
If response = "toto" Then
'DoCmd.OpenForm "Switchboard"
DoCmd.OpenTable "notation_entete_abc"
DoCmd.OpenTable "notation_abc_corps"
'DoCmd.Close acForm, "PasswordForm"
If response = "stop" Then
' Application.Quit acQuitSaveNone
End If
End If
Loop
End Function
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Raymond [mvp]
Bonjour.

tu peux faire ceci par exemple:
Dim stDocName As String
Dim response As String
Do Until response = "toto" Or response = "stop"
response = InputBox("Veuillez entrer le mot de passe de sécurité pour
continuer ou stop pour arrêter")
Loop
If response = "toto" Then
DoCmd.OpenForm "Switchboard"
DoCmd.OpenTable "notation_entete_abc"
DoCmd.OpenTable "notation_abc_corps"
DoCmd.Close acForm, "PasswordForm"
DoCmd.RunCommand acCmdWindowCascade
ElseIf response = "stop" Then
MsgBox "Vous avez saisi Stop"
'Application.Quit acQuitSaveNone
End If

Ne pas oublier qu'il existe un bouton Annuler qui peut très bien remplacer
la valeur stop. Annuler retourne "" dans response.
ceci ne fonctionne pas sur la version 2007 si l'option "documents à onglets"
a été cochée dans les options access.
--
@+
Raymond Access MVP http://OfficeSystemAccess.seneque.net/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/

Partagez vos créations réalisées sous Office 2007 et gagnez peut-être 5000€
!
http://www.comscamp.com/Tracker/Redirect.ashx?linkid"7641a0-797c-44d5-8774-d820448dbe90


"URIANE" a écrit dans le message de news:
ObnVRes%
| Bonjour,
| J'ai une consultation ou modif de table avec protection, je souhaite donc
| ouvrir mes deux tables citées ci-dessous mais en affichage mosaique
vertical
| comment puis-je l'indiquer ?
| Merci
| Function notation()
| Dim stDocName As String
| Dim response As String
| Do Until response = "toto" Or response = "stop"
| response = InputBox("Veuillez entrer le mot de passe de sécurité pour
| continuer ou stop pour arrêter")
| If response = "toto" Then
| 'DoCmd.OpenForm "Switchboard"
| DoCmd.OpenTable "notation_entete_abc"
| DoCmd.OpenTable "notation_abc_corps"
| 'DoCmd.Close acForm, "PasswordForm"
| If response = "stop" Then
| ' Application.Quit acQuitSaveNone
| End If
| End If
| Loop
| End Function
|
|