seperating a line of code 1

[techkenny1]

Hi all,
Is it possible to seperate a line of code so that it can be on 2 lines. It would just be easier to work in a smaller space.

Many thanks,

Kp

 

[missinglinq]

Line1 of code_
Line2 of code

is the same as

Line1 of code Line2 of code

I think the only caveat is that the Underscore (_) cannot occur in the middle of a quote delineated string.

The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!

 

[JerryKlmns]

Looking for line continuation character???

Debug.Print chr(95)


Msgbox "HELP" & _
" Code Line continued", vbInforamtion, "Tek-Tips Help!"

 

[techkenny1]

Hi all,
Many thanks for your replies.
Below i have this code which I neeed to expand.
How can I put this onto 2 or three lines.

myDb.Execute ("INSERT INTO tbl2 ( fld1, fld2,date1,date2,date3,date4,date5,date6,date7 ) SELECT '" & [Forms]![frm1]![fld1] & "', '" & [Forms]![frm1]![fld2] & "', '" & [Forms]![frm1]![date1] & "', '" & [Forms]![frm1]![date2] & "', '" & [Forms]![frm1]![date3] & "', '" & [Forms]![frm1]![date4] & "', '" & [Forms]![frm1]![date5] & "', '" & [Forms]![frm1]![date6] & "', '" & [Forms]![frm1]![date7] & "'")

Many thanks,

KP

 

[dhookom]

This is how I would code your statements:

Dim strSQL as String
strSQL ="INSERT INTO tbl2 ( fld1, fld2, date1, date2, date3, date4, date5, date6, date7 ) " & _
  "SELECT '" & [Forms]![frm1]![fld1] & "', '" & [Forms]![frm1]![fld2] & _
  "', '" & [Forms]![frm1]![date1] & "', '" & [Forms]![frm1]![date2] & _
  "', '" & [Forms]![frm1]![date3] & "', '" & [Forms]![frm1]![date4] & _
  "', '" & [Forms]![frm1]![date5] & "', '" & [Forms]![frm1]![date6] & _
  "', '" & [Forms]![frm1]![date7] & "'"

myDb.Execute strSQL, dbFailOnError

Are the date fields text or dates?


Duane
Hook'D on Access
MS Access MVP

 

[techkenny1]

Hi dhookom ,
The date fields are date fields.
many thanks for your help. It is greatly appreciated.

KP

 

[dhookom]

I would use # to delimit date values rather than '. I just noticed you had "SELECT" without a FROM so you should use "VALUES ()".

Dim strSQL as String
strSQL ="INSERT INTO tbl2 ( fld1, fld2, date1, date2, date3, date4, date5, date6, date7 ) " & _
  "VALUES ('" & [Forms]![frm1]![fld1] & "', '" & [Forms]![frm1]![fld2] & _
  "', #" & [Forms]![frm1]![date1] & "#, #" & [Forms]![frm1]![date2] & _
  "#, #" & [Forms]![frm1]![date3] & "#, #" & [Forms]![frm1]![date4] & _
  "#, #" & [Forms]![frm1]![date5] & "#, #" & [Forms]![frm1]![date6] & _
  "#, #" & [Forms]![frm1]![date7] & "#)"
myDb.Execute strSQL, dbFailOnError

My other issue with your question is why you have 7 date fields in a table. This raises red flags regarding normalization.

Duane
Hook'D on Access
MS Access MVP

 

[techkenny1]

Hi all,
I have received the changes to the above code which works reall well, but when a date is copied to tbl 2 is is copied in the US format.How can I change this to the Austrlian format.

Many thanks
KP

 

[missinglinq]

Allen Browne, from 'Down Under' himself, has an excellent paper on the subject here:

http://allenbrowne.com/ser-36.html

The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!