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