Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
The data needs to get transformed into the below:
f1 f2 1 1/12/04 2 11:00 AM 3 EST 4 Confirmed 5 (Download 6 appointment to 7 Outlook or Palm) 8 Location: 9 Event: Hearing PROVISIONAL ORDER HEARING 10 Length: 11 Hearing Type: PR 12 1/23/04 13 10:00 AM 14 EST 15 Confirmed 16 Location: 17 Event: Hearing PROVISIONAL ORDER HEARING 18 Length: 19 Hearing Type: PR 20 6/21/04 21 9:00 AM 22 EST 23 Cancelled 24 Location: 25 Event: Hearing PROVISIONAL ORDER HEARING 26 Length: 27 Hearing Type: PR 28 6/29/04 29 9:00 AM 30 EST 31 Cancelled 32 Location: 33 Event: Hearing FINAL HEARING ON DIVORCE 34 Length: 35 Hearing Type: FH 36 7/13/04
and so on, until the code picks up on the next line that contains a date, then creates a new record.
f1 f2 f3 f4 f5 f6 f7 1/12/04 11:00 AM EST Confirmed (Download appointment to 7 Outlook or Palm) Location: Event: Hearing PROVISIONAL ORDER HEARING 10 Length: 11 Hearing Type: PR
I need to figure out the rest of the code logic.
dim db1 as dao.recordset dim db2 as dao.recordset dim tbl1 as string dim tbl2 as string dim autonum as string set db1 = currentdb.openrecordset ("NameOfTable", dbopendynaset) set db2 = currentdb.openrecordset ("NameOfTable2", dbopendynaset) db1.movefirst db2.movefirst set autonum = db1.[f1] Do while not db1.EOF If db1.FieldName <> '##/##/####' then 'seeking the date as the first field of the record set autonum = db1.[f1] with db2 .addnew db2("Field1").value = db1![field1] db1.movenext
|Logical Operator should return Integer value in SSIS||9||34|
|Finding Where Clause Value in SQL Views and SP||21||29|
|add dollar amount in VB code, Access 2003||6||11|
|get and set file atrributes||5||8|