Discussion :

[MAMANHOU]

Bonjour,

Je n'arrive pas à couper ma requete SQL en deux ....

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Private Sub Commande30_Click()
Dim i As Variant
Dim STR As String
Dim soc, adr, sit, sir, cod, vil, Tel, tec, pos, mar, Nom, pre, civ, sic, jur, cre, NAF, act, nad, CA, rn, cap, fon, eff, acti, cof, com, ari, typ, tyd, con As String
soc = Me.Liste13.Column(1)
adr = Me.Liste13.Column(2)
sit = Me.Liste13.Column(3)
sir = Me.Liste13.Column(4)
cod = Me.Liste13.Column(5)
vil = Me.Liste13.Column(6)
Tel = Me.Liste13.Column(7)
tec = Me.Liste13.Column(8)
pos = Me.Liste13.Column(9)
mar = Me.Liste13.Column(10)
Nom = Me.Liste13.Column(11)
pre = Me.Liste13.Column(12)
civ = Me.Liste13.Column(13)
sic = Me.Liste13.Column(14)
jur = Me.Liste13.Column(15)
cre = Me.Liste13.Column(16)
NAF = Me.Liste13.Column(17)
act = Me.Liste13.Column(18)
nad = Me.Liste13.Column(19)
CA = Me.Liste13.Column(20)
rn = Me.Liste13.Column(21)
cap = Me.Liste13.Column(22)
fon = Me.Liste13.Column(23)
eff = Me.Liste13.Column(24)
acti = Me.Liste13.Column(25)
cof = Me.Liste13.Column(26)
com = Me.Liste13.Column(27)
ori = Me.Liste13.Column(28)
typ = Me.Liste13.Column(29)
tyd = Me.Liste13.Column(30)
con = Me.Liste13.Column(31)
 
 
STR = "INSERT INTO T_Abonne.NOM_PAR1, T_Abonne.ADRESSE1, T_Abonne.SITE_INTERNET, T_Abonne.N_SIREN, T_Abonne.CODE_POS, T_Abonne.VILLE, T_Abonne.TELEPH, T_Abonne.TELECOPI, T_EntrepriseContact.POSITION, T_EntrepriseContact.MARCHE, T_Abonne.DIR_NOM, T_Abonne.DIR_PRENOM, T_Abonne.CIVILITE, T_EntrepriseContact.SIC_US, T_EntrepriseContact.FORM_JUR, T_EntrepriseContact.DATE_CREATION_STE, T_EntrepriseContact.CODENAF, T_EntrepriseContact.ACTIVITENAF, T_EntrepriseContact.ACTIVITEDETAILLEE, T_EntrepriseContact.CA, T_EntrepriseContact.RESULTATNET, T_EntrepriseContact.CAPITALSOCIAL, T_EntrepriseContact.FONDSPROPRES, T_EntrepriseContact.EFFECTIFS, T_EntrepriseContact.ACTION_1, T_Abonne.COFACE, T_EntrepriseContact.COMPTESARRETESAU, T_Abonne.ORIGINE, T_Abonne.TYPE, T_Abonne.TYPE_DETAILLE, T_Abonne.DATE_CONTACT _ &"
"values ('" & soc & "','" & adr & "', '" & sit & "', '" & sir & "', '" & cod & "', '" & vil & "', '" & tel & "', '" & tec & "', '" & pos & "', '" & mar & "', '" & nom & "', '" & pre & "', '" & civ & "', '" & sic & "', '" & jur & "', '" & cre & "', '" & naf & "', '" & act & "', '" & nad & "', '" & ca & "', '" & rn & "', '" & cap & "', '" & fon & "', '" & eff & "', '" & acti & "', '" & cof & "', '" & com & "', '" & ori & "', '" & typ & "', '" & tyd & "', '" & con & "');"
DoCmd.RunSQL STR
MsgBox "ok"
Me.Liste13.Requery
MsgBox "Votre importation s'est faite avec succès."
 
End Sub

Merci pour votre aide
Mamanhou

[Jean-Philippe André]

salut,
pour poursuivre une ligne de code sur la ligne suivante tu peux :
- soit faire une concaténation progressive

Code :

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

1
2
strSQL = "SELECT MonChamp FROM Matable"
strSQL = strSQL & " WHERE Monchamp>3"

- soit utiliser le caractère underscore _

Code :

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

1
2
strSQL = "SELECT MonChamp FROM Matable" & _
 " WHERE Monchamp>3"

au choix

[MAMANHOU]

merci pour la réponse,

Mamanhou