Got something to say or just want fewer pesky ads? Join us... 😊

Press Ctrl+V on your keyboard, see what comes up, and post it here.



Trufflehound

Re-enfranchised
Aug 5, 2003
14,117
The democratic and free EU
The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem. The owls are not what they seem.
 
























Mellotron

I've asked for soup
Jul 2, 2008
32,298
Brighton
http://www.lastdaysoflorca.com/

My old band. Their new EP is f***ing brilliant. It's a cruel world if they don't seriously go places soon.

Click the Music tab and listen to With All Clarity. If you want.

(/plug)
 


kc1

New member
Nov 11, 2011
133
sTblNm = "-2"
sTxtBx = "-2"

DoCmd.SetWarnings False

For x = 1 To 10

sTblNm = sTblNm + 1
sTxtBx = sTxtBx + 1

sSQL1 = "DELETE [tbl_Level6_Lv6_" & sTblNm & "].* "
sSQL2 = "FROM [tbl_Level6_Lv6_" & sTblNm & "];"

sSQL = sSQL1 & sSQL2

DoCmd.RunSQL sSQL

sSQL1 = "DELETE [tbl_Level6_Lv5_" & sTblNm & "].* "
sSQL2 = "FROM [tbl_Level6_Lv5_" & sTblNm & "];"

sSQL = sSQL1 & sSQL2

DoCmd.RunSQL sSQL

sSQL1 = "INSERT INTO [tbl_Level6_Lv6_" & sTblNm & "]( [L5 Activity ID], [L6 Activity ID], ES, EF, STIME, FTIME, VCC, SITE, AREA, DPR, [DPR DESC], SYS, [TARGET%], ECABLELEN, DEPEND, REMARKS, TESTCOMM, TEAMLEAD, PHONE, PHONE2, RES, PCT, ACABLELEN, COMPLETED, FRUSTRATED, REASON, COMMENTARY, LOSTSHIFT, SUB, SUBACHIEVED, DPRPRODUCED, DPRNO, RESDEPLOYED ) "
sSQL2 = "SELECT tbl_Level6_Worksheet_PlanAndActual.[L5 Activity ID], tbl_Level6_Worksheet_PlanAndActual.[L6 Activity ID], tbl_Level6_Worksheet_PlanAndActual.ES, tbl_Level6_Worksheet_PlanAndActual.EF, tbl_Level6_Worksheet_PlanAndActual.STIME, tbl_Level6_Worksheet_PlanAndActual.FTIME, tbl_Level6_Worksheet_PlanAndActual.VCC, "
sSQL3 = "tbl_Level6_Worksheet_PlanAndActual.SITE, tbl_Level6_Worksheet_PlanAndActual.AREA, tbl_Level6_Worksheet_PlanAndActual.DPR, tbl_Level6_Worksheet_PlanAndActual.[DPR DESC], tbl_Level6_Worksheet_PlanAndActual.SYS, tbl_Level6_Worksheet_PlanAndActual.[TARGET%], tbl_Level6_Worksheet_PlanAndActual.ECABLELEN, tbl_Level6_Worksheet_PlanAndActual.DEPEND, "
sSQL4 = "tbl_Level6_Worksheet_PlanAndActual.REMARKS, tbl_Level6_Worksheet_PlanAndActual.TESTCOMM, tbl_Level6_Worksheet_PlanAndActual.TEAMLEAD, tbl_Level6_Worksheet_PlanAndActual.PHONE, tbl_Level6_Worksheet_PlanAndActual.PHONE2, tbl_Level6_Worksheet_PlanAndActual.RES, tbl_Level6_Worksheet_PlanAndActual.PCT, "
sSQL5 = "tbl_Level6_Worksheet_PlanAndActual.ACABLELEN, tbl_Level6_Worksheet_PlanAndActual.COMPLETED, tbl_Level6_Worksheet_PlanAndActual.FRUSTRATED, tbl_Level6_Worksheet_PlanAndActual.REASON, tbl_Level6_Worksheet_PlanAndActual.COMMENTARY, tbl_Level6_Worksheet_PlanAndActual.LOSTSHIFT, tbl_Level6_Worksheet_PlanAndActual.SUB, "
sSQL6 = "tbl_Level6_Worksheet_PlanAndActual.SUBACHIEVED, tbl_Level6_Worksheet_PlanAndActual.DPRPRODUCED, tbl_Level6_Worksheet_PlanAndActual.DPRNO, tbl_Level6_Worksheet_PlanAndActual.RESDEPLOYED "
sSQL7 = "FROM tbl_Level6_Worksheet_PlanAndActual "
sSQL8 = "WHERE (((tbl_Level6_Worksheet_PlanAndActual.ES)>[Forms]![frm_Level6_WWP_Generator]![txtLevel6_" & sTxtBx & "WWPdate]-1 And (tbl_Level6_Worksheet_PlanAndActual.ES)<[Forms]![frm_Level6_WWP_Generator]![txtLevel6_" & sTxtBx & "WWPdate]+6));"

sSQL = sSQL1 & sSQL2 & sSQL3 & sSQL4 & sSQL5 & sSQL6 & sSQL7 & sSQL8

DoCmd.RunSQL sSQL

sSQL1 = "INSERT INTO [tbl_Level6_Lv5_" & sTblNm & "] ( ACT, TITLE, PCT )"
sSQL2 = "SELECT [tbl_Level6_Lv6_" & sTblNm & "].[L5 Activity ID], tbl_Level6_Lvl5_Core.TITLE, tbl_Level6_Lvl5_Core.PCT "
sSQL3 = "FROM [tbl_Level6_Lv6_" & sTblNm & "] INNER JOIN tbl_Level6_Lvl5_Core ON [tbl_Level6_Lv6_" & sTblNm & "].[L5 Activity ID] = tbl_Level6_Lvl5_Core.ACT "
sSQL4 = "GROUP BY [tbl_Level6_Lv6_" & sTblNm & "].[L5 Activity ID], tbl_Level6_Lvl5_Core.TITLE, tbl_Level6_Lvl5_Core.PCT;"

sSQL = sSQL1 & sSQL2 & sSQL3 & sSQL4

DoCmd.RunSQL sSQL

Next x
 




Josimojo

New member
Aug 4, 2011
125
{
"boxes" : [ {
"box" : {
"maxclass" : "bpatcher",
"outlettype" : [ "signal", "signal" ],
"presentation_rect" : [ 45.0, 345.0, 149.0, 114.0 ],
"args" : [ ],
"patching_rect" : [ 1054.0, 74.0, 162.0, 119.0 ],
"presentation" : 1,
"numinlets" : 2,
"id" : "obj-7",
"name" : "IO.maxpat",
"numoutlets" : 2
}

}
]
}
 


Trufflehound

Re-enfranchised
Aug 5, 2003
14,117
The democratic and free EU






Mellotron

I've asked for soup
Jul 2, 2008
32,298
Brighton
That's pretty good.

Why did you leave/get chucked out?

Left after about 2 years of service, couldn't commit time-wise to a heavy schedule of touring.

However, changes to my job role mean there's a fairly good chance I'll be getting involved with them again in the new year. Good times. They're off on a European tour this month so alls going quite well.
 














Albion and Premier League latest from Sky Sports


Top
Link Here