Hey,
I have a table with a group of speeds by date, Like so . . .
24/06/2004 12:00 47
24/06/2004 13:00 64
24/06/2004 14:00 53
25/06/2004 12:00 55
25/06/2004 13:00 55
26/06/2004 12:00 56
26/06/2004 13:00 55
26/06/2004 14:00 45
I want to calculate the 85th percentile for each date (for a...
I just realised (I'm slow :P) That that last row is not being imported. For example, for a TBL file with 10 rows, It is only importing 9. Weird. Do you know what the problem would be here?
well if you notice that in the above file that there are repeating values. Putting in the SQL code only enters values once (with no repeats). I've just got "SELECT * From Table " atm, this works ok. You wouldn't know how to reset autonumber using VBA, would you? Like I've put "RecordNo" as the...
SQL not good
I should actually take out that SQL stuff because I need all the fields . (including repeating values). I just wanted it so that you don't add all of the same file again
hmm
It works if I remove the SQL stuff and ignore the checks if the data is available, but I'd like to have that so it doesn't paste the same data over and over again
Further Problem
Also, how would I got about extracting information from the header? i.e. I would like to put "Direction", "Description", "CounterNo", "FileNumber", "Area", "Site", "location" and "Download Date"(Today) each in separate columns on the same table for above.
Thanks
SQL errors
Wayne, I have put that code in as you suggested (slightly modified), but I get the error "Runtime error: 3061" "Too few parameters. Expected 1", next to the below highlighted line I was just wondering what this mean't. Also, how would I check if the table exists? I roughly know how I...
continued
Final part of the Code I have done in excel to import the file and separate the header from the code
Sub preAccessSpeed()
Workbooks("tempSpeedRTC").Worksheets("completedCounterData").Activate
Worksheets("completedCounterData").Range("X2").Select
ActiveCell.FormulaR1C1 =...
continued
Code I have done in excel to import the file and separate the header from the code
Public Sub speedCounts_Click()
SelectOpenCopySpeed
'preAccessSpeed
End Sub
Sub SelectOpenCopySpeed()
Dim i As Long
Dim vaFiles As Variant
vaFiles = Application.GetOpenFilename("TBL Files (*.tbl)...
Hi, There is a lot of code here, so bare with me
I'm currenlty working on a database that imports .TBL files into it, the format of the TBL files is (for example):
Operational mode: Speed/Classify, 12-class unidirectional File: 104.RTC
Area: 00 Site 004 Location: 02 Direction...