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
Eric
Bonjour
Sur l'évènement click d'un bouton de commande :
Dim strReponse As String, strPrompt As String strPrompt = "ES pour Espagnol" & vbCrLf strPrompt = strPrompt & "FR pour France" & vbCrLf strPrompt = strPrompt & "EN pour Anglais" & vbCrLf ' ... strPrompt = strPrompt & "IT pour Italien" strReponse = InputBox(strPrompt, "Choix de la langue")
' autre possibilité 'Reponse = InputBox("Langue de l'état (ES pour Espagnol, FR pour France ...", "Choix de la langue") ' If Len(strReponse) < 2 Then MsgBox "Annulation", vbExclamation: Exit Sub Select Case UCase(Left(strReponse, 2)) Case "ES" 'si impression directe, enlever ,acViewPreview dans la commande DoCmd.OpenReport "NomEtatEspagnol", acViewPreview 'si aperçu Case "FR" DoCmd.OpenReport "NomEtatFrançais", acViewPreview Case "EN" DoCmd.OpenReport "NomEtatAnglais", acViewPreview ' Autre cas à développer Case Else MsgBox "Langue inexistante", vbInformation End Select
Maintenant, il est possible de faire un formulaire avec une zone de liste modifiable ou une zone de liste contenant les langues, si le nombre est important, et après mise à jour de cette zone de liste, lancer l'état ce qui évite d'avoir un message très long dans l'Inputbox.
Autre possibilité proposée par W. Stucky et à adapter à ton besoin: http://mypage.bluewin.ch/w.stucki/Etats.htm#ImpressionBatch
Bonjour à tous
Voila j'ai plusieurs états qui sont en langues différentes Je voudrais créer un bouton avec une inputbox qui me demande qu'elle état ouvrir.
Par exemple ES (corresspond à l'etat espagnol) FR, EN...je voudrais dans mon inputbox écrire ES et l'état correspondant est affiché
Comment réalisé cela en VB
Merci de votre aide
A+
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour
Sur l'évènement click d'un bouton de commande :
Dim strReponse As String, strPrompt As String
strPrompt = "ES pour Espagnol" & vbCrLf
strPrompt = strPrompt & "FR pour France" & vbCrLf
strPrompt = strPrompt & "EN pour Anglais" & vbCrLf
' ...
strPrompt = strPrompt & "IT pour Italien"
strReponse = InputBox(strPrompt, "Choix de la langue")
' autre possibilité
'Reponse = InputBox("Langue de l'état (ES pour Espagnol, FR pour France
...", "Choix de la langue")
'
If Len(strReponse) < 2 Then MsgBox "Annulation", vbExclamation: Exit Sub
Select Case UCase(Left(strReponse, 2))
Case "ES"
'si impression directe, enlever ,acViewPreview dans la commande
DoCmd.OpenReport "NomEtatEspagnol", acViewPreview 'si aperçu
Case "FR"
DoCmd.OpenReport "NomEtatFrançais", acViewPreview
Case "EN"
DoCmd.OpenReport "NomEtatAnglais", acViewPreview
' Autre cas à développer
Case Else
MsgBox "Langue inexistante", vbInformation
End Select
Maintenant, il est possible de faire un formulaire avec une zone de
liste modifiable ou une zone de liste contenant les langues, si le
nombre est important, et après mise à jour de cette zone de liste,
lancer l'état ce qui évite d'avoir un message très long dans l'Inputbox.
Autre possibilité proposée par W. Stucky et à adapter à ton besoin:
http://mypage.bluewin.ch/w.stucki/Etats.htm#ImpressionBatch
Bonjour à tous
Voila j'ai plusieurs états qui sont en langues différentes
Je voudrais créer un bouton avec une inputbox qui me demande qu'elle
état ouvrir.
Par exemple ES (corresspond à l'etat espagnol) FR, EN...je voudrais
dans mon inputbox écrire ES et l'état correspondant est affiché
Comment réalisé cela en VB
Merci de votre aide
A+
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Dim strReponse As String, strPrompt As String strPrompt = "ES pour Espagnol" & vbCrLf strPrompt = strPrompt & "FR pour France" & vbCrLf strPrompt = strPrompt & "EN pour Anglais" & vbCrLf ' ... strPrompt = strPrompt & "IT pour Italien" strReponse = InputBox(strPrompt, "Choix de la langue")
' autre possibilité 'Reponse = InputBox("Langue de l'état (ES pour Espagnol, FR pour France ...", "Choix de la langue") ' If Len(strReponse) < 2 Then MsgBox "Annulation", vbExclamation: Exit Sub Select Case UCase(Left(strReponse, 2)) Case "ES" 'si impression directe, enlever ,acViewPreview dans la commande DoCmd.OpenReport "NomEtatEspagnol", acViewPreview 'si aperçu Case "FR" DoCmd.OpenReport "NomEtatFrançais", acViewPreview Case "EN" DoCmd.OpenReport "NomEtatAnglais", acViewPreview ' Autre cas à développer Case Else MsgBox "Langue inexistante", vbInformation End Select
Maintenant, il est possible de faire un formulaire avec une zone de liste modifiable ou une zone de liste contenant les langues, si le nombre est important, et après mise à jour de cette zone de liste, lancer l'état ce qui évite d'avoir un message très long dans l'Inputbox.
Autre possibilité proposée par W. Stucky et à adapter à ton besoin: http://mypage.bluewin.ch/w.stucki/Etats.htm#ImpressionBatch
Bonjour à tous
Voila j'ai plusieurs états qui sont en langues différentes Je voudrais créer un bouton avec une inputbox qui me demande qu'elle état ouvrir.
Par exemple ES (corresspond à l'etat espagnol) FR, EN...je voudrais dans mon inputbox écrire ES et l'état correspondant est affiché
Comment réalisé cela en VB
Merci de votre aide
A+
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
lolo_bob2
Merci beaucoup
je vais tester cette méthode et je viens vous redire si cela fonctionne
A+
Merci beaucoup
je vais tester cette méthode et je viens vous redire si cela
fonctionne
