Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Problème avec SELECT CASE

Problème avec SELECT CASE

3 réponses
Avatar
agobol
Bonjour,
J'ai écrit un code sur VBA avec SELECT CASE, mais il ne marche pas. C'est pour une base de donnees d'une entreprise de tourisme qui possede des prix d'hotels en dollars et la device locale, et beneficie de deux types de reduction pour les prix d'hotels: par pourcentage et par "prix fixe"...Quelqu-un pourrait m'aider? Merci.

Private Sub PRIX_DOLLARS_GotFocus()
Dim TauxDeChange As Long
TauxDeChange = 7
Select Case [TYPE_REDUCTION] & [DEVICE]

Case "1"
[TYPE_REDUCTION] = "Pourcentage" And [DEVICE] = "Dollars"
[PRIX?DOLLARS] = [PRECIO_RACK] * (1 - [PORCENTAGE])

Case "2"
[TYPE_REDUCTION] = "Prix Fixe" And [DEVICE] = "Dollars"
[PRIX_DOLLARS] = [PRIX_NET]

Case "3"
[TYPE_REDUCTION] = "Pourcentage" And [DEVICE] = "Locale"
[PRECIO_DOLARES] = [PRECIO_RACK] * (1 - [PORCENTAGE]) / TauxDeChange

Case "4"
[TYPE_REDUCTION] = "Prix Fixe" And [DEVICE] = "Locale"

[PRIX_DOLLARS] = [PRIX_NET] / TauxDeChange

End Select

End Sub
Signaler un problème avec ce contenu

3 réponses

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
Michel__D
Bonjour,

Le 25/06/2013 16:37, agobol a écrit :
Bonjour,
J'ai écrit un code sur VBA avec SELECT CASE, mais il ne marche pas. C'est pour
une base de donnees d'une entreprise de tourisme qui possede des prix d'hotels
en dollars et la device locale, et beneficie de deux types de reduction pour les
prix d'hotels: par pourcentage et par "prix fixe"...Quelqu-un pourrait m'aider?
Merci.

Private Sub PRIX_DOLLARS_GotFocus()
Dim TauxDeChange As Long
TauxDeChange = 7
Select Case [TYPE_REDUCTION] & [DEVICE]

Case "1"
[TYPE_REDUCTION] = "Pourcentage" And [DEVICE] = "Dollars"
[PRIX?DOLLARS] = [PRECIO_RACK] * (1 - [PORCENTAGE])

Case "2"
[TYPE_REDUCTION] = "Prix Fixe" And [DEVICE] = "Dollars"
[PRIX_DOLLARS] = [PRIX_NET]

Case "3"
[TYPE_REDUCTION] = "Pourcentage" And [DEVICE] = "Locale"
[PRECIO_DOLARES] = [PRECIO_RACK] * (1 - [PORCENTAGE]) / TauxDeChange

Case "4"
[TYPE_REDUCTION] = "Prix Fixe" And [DEVICE] = "Locale"

[PRIX_DOLLARS] = [PRIX_NET] / TauxDeChange

End Select

End Sub




A vérifier.

Private Sub PRIX_DOLLARS_GotFocus()
Dim TauxDeChange As Long
TauxDeChange = 7
Select Case [TYPE_REDUCTION] & [DEVICE]

Case "PourcentageDollars"
[PRIX_DOLLARS] = [PRECIO_RACK] * (1 - [PORCENTAGE])
Case "Prix FixeDollars"
[PRIX_DOLLARS] = [PRIX_NET]
Case "PourcentageLocale"
[PRECIO_DOLARES] = [PRECIO_RACK] * (1 - [PORCENTAGE]) / TauxDeChange
Case "Prix FixeLocale"
[PRIX_DOLLARS] = [PRIX_NET] / TauxDeChange
End Select

End Sub
Avatar
Gloops
agobol a écrit, le 25/06/2013 16:37 :
Bonjour,
J'ai écrit un code sur VBA avec SELECT CASE, mais il ne marche pas. C'est pour
une base de donnees d'une entreprise de tourisme qui possede des prix d 'hotels
en dollars et la device locale, et beneficie de deux types de reduction pour les
prix d'hotels: par pourcentage et par "prix fixe"...Quelqu-un pourrait m'aider?
Merci.

Private Sub PRIX_DOLLARS_GotFocus()
Dim TauxDeChange As Long
TauxDeChange = 7
Select Case [TYPE_REDUCTION] & [DEVICE]

Case "1"
[TYPE_REDUCTION] = "Pourcentage" And [DEVICE] = "Dollars"
[PRIX?DOLLARS] = [PRECIO_RACK] * (1 - [PORCENTAGE])

Case "2"
[TYPE_REDUCTION] = "Prix Fixe" And [DEVICE] = "Dollars"
[PRIX_DOLLARS] = [PRIX_NET]

Case "3"
[TYPE_REDUCTION] = "Pourcentage" And [DEVICE] = "Locale"
[PRECIO_DOLARES] = [PRECIO_RACK] * (1 - [PORCENTAGE]) / Ta uxDeChange

Case "4"
[TYPE_REDUCTION] = "Prix Fixe" And [DEVICE] = "Locale"

[PRIX_DOLLARS] = [PRIX_NET] / TauxDeChange

End Select

End Sub




Bonjour,

C'est quoi, [TYPE_REDUCTION] & [DEVICE] ?

--
Avatar
brouhaha.news
Le 25/06/2013 16:37, agobol a écrit :
Bonjour,
J'ai écrit un code sur VBA avec SELECT CASE, mais il ne marche pas. C'est pour
une base de donnees d'une entreprise de tourisme qui possede des prix d'hotels
en dollars et la device locale, et beneficie de deux types de reduction pour les
prix d'hotels: par pourcentage et par "prix fixe"...Quelqu-un pourrait m'aider?
Merci.

Private Sub PRIX_DOLLARS_GotFocus()
Dim TauxDeChange As Long
TauxDeChange = 7
Select Case [TYPE_REDUCTION] & [DEVICE]

Case "1"
[TYPE_REDUCTION] = "Pourcentage" And [DEVICE] = "Dollars"
[PRIX?DOLLARS] = [PRECIO_RACK] * (1 - [PORCENTAGE])

Case "2"
[TYPE_REDUCTION] = "Prix Fixe" And [DEVICE] = "Dollars"
[PRIX_DOLLARS] = [PRIX_NET]

Case "3"
[TYPE_REDUCTION] = "Pourcentage" And [DEVICE] = "Locale"
[PRECIO_DOLARES] = [PRECIO_RACK] * (1 - [PORCENTAGE]) / TauxDeChange

Case "4"
[TYPE_REDUCTION] = "Prix Fixe" And [DEVICE] = "Locale"

[PRIX_DOLLARS] = [PRIX_NET] / TauxDeChange

End Select

End Sub



attention : l'opérateur & sert essentiellement à concaténer des chaines
de caractères, genre
?"toto" & "titi"
tototiti