Utiliser linebreak pour briser l'instruction IF dans Access VBA

Question

J'ai un script conditionnel VBA comme ci-dessous:

If COMORBIDITY_CANCER = -1 Or COMORBIDITY_CHRONIC_SKIN_LESIONS = -1 Or COMORBIDITY_CHRONIC_LUNG_DISEASE = -1 Or COMORBIDITY_CARDIOVASCULAR_DISEASE = -1 Or COMORBIDITY_DM = -1 Or COMORBIDITY_IMMUNODEFICIENCY_OR_CHEMOTHERAPY = -1 Or COMORBIDITY_ADL = -1 Or COMORBIDITY_HEPATIC_DISEASE = -1 Or COMORBIDITY_RENAL_IMPAIRMENT = -1 Then 
RS_REPORT.AddNew 
RS_REPORT!REPORT_UID = REPORT_UID 
RS_REPORT!CATEGORY1_ID = 2 
RS_REPORT!CATEGORY2_ID = 1 
RS_REPORT!CATEGORY3_ID = 1 
RS_REPORT.Update 
End If 

Je pense que la première ligne est trop longue et je voudrais le couper à l'aide ENTRER, comme ce que peut être fait dans R, mais semble invalide dans VBA, j'ai essayé

& _ 

mais il échoue également.

Des suggestions? Merci!

Answer 1

Essayez ceci:

If COMORBIDITY_CANCER = -1 Or COMORBIDITY_CHRONIC_SKIN_LESIONS = -1 Or _ 
COMORBIDITY_CHRONIC_LUNG_DISEASE = -1 Or COMORBIDITY_CARDIOVASCULAR_DISEASE = -1 Or _ 
COMORBIDITY_DM = -1 Or COMORBIDITY_IMMUNODEFICIENCY_OR_CHEMOTHERAPY = -1 Or _ 
COMORBIDITY_ADL = -1 Or COMORBIDITY_HEPATIC_DISEASE = -1 Or _ 
COMORBIDITY_RENAL_IMPAIRMENT = -1 Then 

Answer 2

Vous pouvez essayer quelque chose comme:

Boolean b = false 
If condition1 b = true 
If condition2 b = true 
. . . 
If b ...