Discussion :

[helico57570]

Bonjour à tous,
Encore une fois, j'ai besoin de vos lumières qui m'ont été si précieuses lors de mes derniers posts..
Je vous remercie de votre aide mais il me reste un petit soucis à régler..
Dans ma base de donnée pour des transports secondaires en hélico, je voudrais faire apparaitre des msgbox en fonction de la provenance et de la destination des patients...
Vous trouverez mon codage vba qui ne marche pas.....lol
J'ai un message: "erreur de compilation, bloc If sans End if", j'ai beau chercher, je ne comprends pas.
Please help me..
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Hospital_Destination_Country_Change()
If Hospital_Destination_Country = "Luxembourg" Then
    If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then
    MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company"
    Else
    MsgBox "According the secondary mission procedure,check if the patient is insured by CNS, or private insurance company. Then, send a demande de prise en charge to the patient insurance. "
End If
 
If Hospital_Destination_Country = "France" Or "Belgium" Then
    If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then
    MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company"
    Else
    MsgBox "According the secondary mission procedure,this flight is from/to a foreign country, fill up a cost acceptance sheet. If this event happens during  a WE, contact DDS, ADK, HMS or RHC to approve the flight! "
End If
 
If Hospital_Destination_Country = "Germany" Then
    If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then
    MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company"
    Else
    MsgBox "According the secondary mission procedure,LAR just needs a transportschein and a Intensivtransportprotokoll undersigned by a doctor to be paid! "
End If
 
End Sub

[ilank]

Bonsoir,
Tu as 3 blocs de If .. End if où il manque pour chacun un End If après la dernière instruction Msgbox.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Hospital_Destination_Country_Change()
If Hospital_Destination_Country = "Luxembourg" Then
    If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then
    MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company"
    Else
    MsgBox "According the secondary mission procedure,check if the patient is insured by CNS, or private insurance company. Then, send a demande de prise en charge to the patient insurance. "
    End If
End If

ou utilises un Select Case ... End select

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Hospital_Destination_Country_Change()
  If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then
    MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company"
  Else
   Select Case Hospital_Destination_Country
       Case "Luxembourg"
         MsgBox "According the secondary mission procedure,check if the patient is insured by CNS, or private insurance company. Then, send a demande de prise en charge to the patient insurance. "
       Case "France", "Belgium"
          MsgBox "According the secondary mission procedure,this flight is from/to a foreign country, fill up a cost acceptance sheet. If this event happens during  a WE, contact DDS, ADK, HMS or RHC to approve the flight! "
       Case "Germany"
          MsgBox "According the secondary mission procedure,LAR just needs a transportschein and a Intensivtransportprotokoll undersigned by a doctor to be paid! "
   End select     
  End if  
End sub