Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.