VBA Multiligne Chaîne Questions

Je suis ne pas avoir beaucoup d'expérience dans l'écriture de script VBA, je suis presque perdu à trouver dans les multiligne chaîne. Où exactement, je suis perdu, c'est quand j'essaie de diviser la Chaîne en plusieurs lignes, pourriez-vous m'aider comment à la fin

De travail de la Chaîne est ci-dessous avant de split:

strSQL = "insert into ded_limit_analysis (PDPD_ID,PDDS_DESC,PRODUCT_CAT,BASE_PDPD_ID,PROD_CYCLE,HMO_IND_DED) " & vbCrLf & _
 "values (" & "'" & Me.txt_pdpd_id & "'" & "," & "'" & Me.txt_pdds & "'" & "," & "'" & Me.cbx_prod_type & "'" & "," & "'" & Me.txt_base_pdpd & "'" & "," & "'" & Me.cbx_prod_cycle & "'" & "," & "'" & Me.txt_hmo_ind_ded & "'" & ")"

Celle qui n'est pas le travail, c'est ci-dessous, je suis en train de séparer les lignes parce que j'ai beaucoup de colonnes à inclure dans les instructions insert et il est plus que 1000 caractères et pas capables de tenir dans une seule ligne (ci-dessous, échantillon de, réels est beaucoup plus long et je suis obligé de diviser les lignes).

strSQL = "insert into ded_limit_analysis (PDPD_ID,PDDS_DESC,PRODUCT_CAT,BASE_PDPD_ID,PROD_CYCLE,HMO_IND_DED) " & vbCrLf & _
 "values (" & "'" & Me.txt_pdpd_id & "'" & "," & "'" & Me.txt_pdds & "'" & "," & "'" & Me.cbx_prod_type & "'" & "," & "'" & Me.txt_base_pdpd & "'" & "," & "'" & Me.cbx_prod_cycle & "'" & "," & " & vbCrLf &" _
 & "'" & Me.txt_hmo_ind_ded & "'" & ")"

S'il vous plaît conseils où je suis gâcher, grâce

OriginalL'auteur Chito | 2014-11-24

  1. 9

    Vous avez besoin pour commencer la ligne suivante avec "&"

    Donc:

    strSQL = "insert into ded_limit_analysis (PDPD_ID,PDDS_DESC,PRODUCT_CAT,BASE_PDPD_ID,PROD_CYCLE,HMO_IND_DED) " _
  & vbCrLf & "values (" & "'" & Me.txt_pdpd_id & "'" & "," _
  & "'" & Me.txt_pdds & "'" & "," & "'" & Me.cbx_prod_type _
  & "'" & "," & "'" & Me.txt_base_pdpd & "'" & "," & "'" _
  & Me.cbx_prod_cycle & "'" & "," & vbCrLf _
  & "'" & Me.txt_hmo_ind_ded & "'" & ")"

    Bien que, en regardant la chaîne, vous pouvez éliminer beaucoup de "&" dans votre code. Ce serait plus propre:

    strSQL = "insert into ded_limit_analysis (PDPD_ID, " _
                                       & "PDDS_DESC, " _
                                       & "PRODUCT_CAT, " _
                                       & "BASE_PDPD_ID, " _
                                       & "PROD_CYCLE, " _
                                       & "HMO_IND_DED) " _
      & " values ('" & Me.txt_pdpd_id & "', '" _
                     & Me.txt_pdds & "', '"  _
                     & Me.cbx_prod_type & "', '" _
                     & Me.txt_base_pdpd & "', '"  _
                     & Me.cbx_prod_cycle & "', '" _
                     & Me.txt_hmo_ind_ded & "')"

    C'est juste beaucoup plus facile à comprendre de cette façon. Aussi, vous n'avez pas besoin de "vbCrLf" dans votre SQL. C'est juste un espace blanc.

    votre avant-dernière ligne du premier bloc a une fuite &. 2ème exemple ressemble à une grande amélioration dans l'OP code
    Je suis d'accord avec simplifiant les cordes et tente d'harmoniser dans la mesure du possible. Ma préférence personnelle est de couper les lignes afin de les adapter à la largeur de ma fenêtre de code. Ceci facilite le débogage de vitesse parce que vous n'avez pas besoin de garder le défilement vers la droite (puis à gauche) pour voir ce que vous avez.
    2x edit parce que d'abord SQL partie a été encombré (à mes yeux) 🙂

    OriginalL'auteur n8.

  2. 0

    Sur la deuxième chaîne vbCrLf est entre guillemets, et est considéré comme une chaîne plutôt que d'une commande.

    Essayer ce code à la place de la ligne du problème ci-dessus:

    strSQL = "insert into ded_limit_analysis (PDPD_ID,PDDS_DESC,PRODUCT_CAT,BASE_PDPD_ID,PROD_CYCLE,HMO_IND_DED) " & vbCrLf & _
 "values (" & "'" & Me.txt_pdpd_id & "'" & "," & "'" & Me.txt_pdds & "'" & "," & "'" & Me.cbx_prod_type & "'" & "," & "'" & Me.txt_base_pdpd & "'" & "," & "'" & Me.cbx_prod_cycle & "'" & "," & vbCrLf _
 & "'" & Me.txt_hmo_ind_ded & "'" & ")"

    OriginalL'auteur Dustin

  3. 0

    J'ai essayé avec cette option après seraching autre post et fonctionne, merci pour prouver d'autres solutions, l'apprécier.

     strSQL = "insert into ded_limit_analysis (PDPD_ID,PDDS_DESC,PRODUCT_CAT,BASE_PDPD_ID,PROD_CYCLE,HMO_IND_DED) " & vbCrLf & _
 "values (" & "'" & Me.txt_pdpd_id & "'" & "," & "'" & Me.txt_pdds & "'" & "," & "'" & Me.cbx_prod_type & "'" & "," & "'" & Me.txt_base_pdpd & "'" & "," & "'" & Me.cbx_prod_cycle & "'" & ","
 strSQL = strSQL & "'" & Me.txt_hmo_ind_ded & "'" & ")"
    Content que tu ai eu de travail, mais je suggère de garder votre VBA nettoyer avec mon code (ci-dessus). Il est beaucoup plus facile à maintenir et à modifier le moment où il a l'air propre.

    OriginalL'auteur Chito