vi phạm tuyên bố vba dài vạn năng thành nhiều dòng

Question

Tôi hoàn toàn mới đối với bầu không khí VBA. Tôi đã cố gắng để phá vỡ dòng này vào dòng mulitple nhưng tôi đã thất bại. Ai đó có thể giúp tôi để phá vỡ mã này thành nhiều dòng?

DoCmd.RunSQL "UPDATE INDIVIDUAL SET INDIVIDUAL.INDI_FIRSTNAME = '" & prospect_contact!FirstName & "', INDIVIDUAL.INDI_LASTNAME = '" & prospect_contact!LastName & "', INDIVIDUAL.INDI_TEL = '" & prospect_contact!BusinessTelephone & "', INDIVIDUAL.INDI_ADDRESS1 = '" & Replace(prospect_contact!Street, "'", "") & "', INDIVIDUAL.INDI_ADDRESS2 = '" & Replace(prospect_contact!Street1, "'", "") & "', INDI_STATUS = '" & pro & "',INDIVIDUAL.INDI_FUNEL1 = '" & prospect_contact!QualificationStatus & "', INDIVIDUAL.INDI_COUNTRY = '" & prospect_contact!Country_Employer & "', INDIVIDUAL.ACCT_NAME = '" & Replace(prospect_contact!Employer, "'", "") & "' WHERE INDIVIDUAL.INDI_FULLNAME = '" & key & "';" 

CẬP NHẬT: Tôi đã thử điều này với & _ nhưng tôi gặp lỗi cú pháp và mã trở thành màu đỏ trong VBA. Tôi có nhầm lẫn với dấu phẩy hoặc dấu ngoặc kép không. Tôi không có ý kiến.

     DoCmd.RunSQL "UPDATE INDIVIDUAL SET INDIVIDUAL.INDI_FIRSTNAME = '" & prospect_contact!FirstName & "', & _ 
        INDIVIDUAL.INDI_LASTNAME = '" & prospect_contact!LastName & "', & _ 
        INDIVIDUAL.INDI_TEL = '" & prospect_contact!BusinessTelephone & "', & _ 
        INDIVIDUAL.INDI_ADDRESS1 = '" & Replace(prospect_contact!Street, "'", "") & "', & _ 
        INDIVIDUAL.INDI_FUNEL1 = '" & prospect_contact!QualificationStatus & "', & _ 
        INDI_STATUS = '" & pro & "', & _ 
        INDIVIDUAL.INDI_COUNTRY = '" & prospect_contact!Country_Employer & "', & _ 
        INDIVIDUAL.ACCT_NAME = '" & Replace(prospect_contact!Employer, "'", "") & "' & _ 
        WHERE INDIVIDUAL.INDI_FULLNAME = '" & key & "';" 

UPDATE 2:

IT WORKS! CNTT HOẠT ĐỘNG! CNTT HOẠT ĐỘNG! nhờ @Bathsheba, @TheLaurens :)

Answer 1

Trong VBA một dấu cách, theo sau là dấu gạch dưới và không có gì khác sau đó sẽ cho bạn ngắt dòng.

ví dụ:

DoCmd.RunSQL "UPDATE INDIVIDUAL SET INDIVIDUAL.INDI_FIRSTNAME = '" & _ 
prospect_contact!FirstName & "', INDIVIDUAL.INDI_LASTNAME = '" & _ 
etc 

Nhưng đừng phá vỡ các dòng trong chuỗi chữ: đó là lỗi cú pháp.

Có giới hạn nhỏ đáng ngạc nhiên đối với số lần ngắt dòng bạn có thể có.