Ipad Loop Griffin

Ipad Loop Griffin

Here is a handy tool if you have a file of data in a column format and you need to get it into a table format - Rows of data instead of a column of data. This example uses an array and a For loop embedded in another For loop to accomplish taking the data from a single column of data to rows of data.

In this example I captured some data from the Internet that I wanted to make into a table. But as you can see the data is in a column and not in rows like a database likes it. So, to quickly move the data to rows I created this code.

Open a new database. Then import the text file or use the data below.

Import the file as a text file into Access with the file import command. Access moves the data into a table with all the data in the first field. I named the table addrdata.

Sample data text file taken off of the internet.

Note: The entire text file is attached as an example to this email if you prefer to use it.

ACCESS HOME HEALTH

3575 MACON RD, SUITE 15

COLUMBUS , GA

Phone: 7065628225

ACCESS HOME HEALTH

5 CONCOURSE PARKWAY, SUITE 825

ATLANTA , GA

Phone: 7704810014

ACCESS HOME HEALTH

120B WEST COLLEGE STREET

GRIFFIN , GA

Phone: 7702330023

ALCOVY REGIONAL HOMECARE

4168 TATE STREET

COVINGTON , GA

Phone: 7707889403

AMEDISYS HOME HEALTH OF COVING

9144 HIGHWAY 278 EAST

COVINGTON , GA

Phone: 7707871796

AMEDISYS HOME HEALTH OF MACON

440 MARTIN LUTHER KING JR BOULEVARD, SUITE 300

MACON , GA

Phone: 4787816653

AMEDISYS HOME HEALTH OF VALDOS

203 WOODROW WILSON DRIVE

VALDOSTA , GA

Phone: 2292450646

AMEDISYS NORTHWEST HOME HEALTH

29 CARING WAY

JASPER , GA

Phone: 7066923491

APPALACHIAN HOME HEALTH

1658 GOWDER DRIVE

BLAIRSVILLE , GA

Phone: 7067455101

ARCHBOLD HOME HEALTH SERVICES

400 OLD ALBANY ROAD

THOMASVILLE , GA

Phone: 2292276809

As you can see the data is all in one column and I want to get it in the right rows so I can make it a usable Access table. Fortunately there are 4 rows of data and one blank line between each set of company data. ( If you are reading this article and there is a line space between every line in the above example data, first remove the blank lines in a text editor except the one between the four lines for each company. Another words, leave a blank line between each set of four lines of data.) We can take advantage of that.

Next I create a table with these fields: Name, Address, City, Phone all as text fields to put the data into and named the table hcaddr.

This module uses an array and a For loop imbedded in another For loop to accomplish taking the data from a single column of data to rows of data.

Create a new module and insert this code:

Public Function mktbl()

On Error GoTo FuncError

DoCmd.SetWarnings true

Dim SQL As String, db As Database, rec As DAO.Recordset

Set db = CurrentDb()

Dim dta(5) As String, cnt As Integer, x As Integer, y As Integer

SQL = "select addrdata.* from addrdata;"

Set rec = db.OpenRecordset(SQL, dbOpenDynaset)

rec.MoveLast

cnt = rec.RecordCount

rec.MoveFirst

x = 0

For x = 1 To cnt

For y = 1 To 5

If IsNull(rec(1)) Then

dta(y) = " "

Else

dta(y) = rec(1)

End If

rec.MoveNext

Next

SQL = "INSERT INTO hcaddr ( Name, Address, City, Phone )"

SQL = SQL & " SELECT '" & dta(1) & "' as x1, '" & dta(2) & "' as x2, '" & dta(3) & "' as x3, '" & dta(4) & "' as x4;"

DoCmd.RunSQL SQL

x = x + 5

Next

FuncError:

dbEvent = Err.Description

DoCmd.SetWarnings true

msgbox "routine complete"

End Function

Code end.

When you have the module open use the Tools/reference option and add the MS DAO 3.6 Library or this code will not work.

I suggest saving the module once you have pasted in the code. You can run the module by clicking on the > arrow in the tool bar at the top or selecting th F5 key.

Note: This code will fail if any of the records in the text data file have a single quote ( ' ) in the field. Before you ask, yes the city and state could be put in separate fields and the word phone removed from the last line, but that is beyond this example. Maybe in the next one.

This should do it. Give it a shot and see how it works for you. This example was created with Access 2002. As always there are probably a million other ways to do the same thing, but this way worked for me.

Contact Jon Watson at jonw@biomationsystems.com or visit our Web sites at
http://www.biomationsystems.com
http://www.accessdatabasehelp.com
http://www.accesshelpebook.com

Griffin Technology / Loop for iPad, Black / GC16039 $32.95 Griffin Technology - Loop for iPad, Black - GC16039

Griffin GC16039 Loop for iPad $25.99 Type: Web tablet desktop stand Features: A clean, simple stand, weighted and shaped to hold your iPad upright for viewing, or laid back for surfing and typing, in both landscape and portrait modes. Loop cradles your iPad in soft, cushioned inserts to protect it from scratches and from unwanted movement while you use it. But Loop is more than just a comfortable place for your iPad to hang out. The open-loop design ensures you can plug in your Apple Dock Cable to charge and sync during use. And Loop has non-slip rubber feet to protect your furniture. Compatibility: Apple iPad Parts: 1 year limited Labor: 1 year limited

New Griffin Gc16039 Ipad Loop Available For Purchase Today $29.99 Limited time only 29.99 with Free Shipping available every day at Accessorygeeks.com! Want to learn more about GRIFFIN GC16039 IPAD LOOP up to date customer reviews at AccessoryGeeks.com. Ready to buy? SAVE BIG NOW! GRIFFIN GC16039 IPAD LOOP for only 29.99 at AccessoryGeeks.com and get Free Shipping in the US and Canada. Need help? Call the Geeks at 866-GEEKS93 now! Our customer service geeks are standing by to answer any questions you might have about the products. Want more selection? Explore

Griffin Loop - Web Tablet Desktop Stand. Each $24.58 Manufacturer: Griffin Technology. Each. A clean, simple stand, weighted and shaped to hold your iPad upright for viewing, or laid back for surfing and typing, in landscape or portrait mode. Loop cradles your iPad in soft, cushioned inserts to protect it f

Loop - web tablet desktop stand $28.99 Griffin Loop - Web tablet desktop stand - for Apple iPad 1 2

Griffin Technology / A-Frame for iPad / GC16036 $44.57 Griffin Technology - A-Frame for iPad - GC16036

Griffin Technology / Standle for iPad / GB01685 $28.93 Griffin Technology - Standle for iPad - GB01685

Griffin / IPAD WALL MOUNT / GC16045 $26.4 Griffin - IPAD WALL MOUNT - GC16045

Gc16039 - Griffin Gc16039 Loop Tablet Pc Stand $26.17 a Clean, Simple Stand, Weighted And Shaped to Hold Your Ipad Upright For Viewing, or Laid Back For Surfing And Typing, in Landscape or Portrait Mode. Loop Cradles Your Ipad in Soft, Cushioned Inserts to Protect it From Scratches And From Unwanted Movement While You Use It. But Loop is More Than Just a Comfortable Place For Your Ipad to Hang Out. The Open-loop Design Ensures You Can Plug in Your Dock Cable (available Separately) to Charge And Sync. And Loop Has Non-slip Rubber Feet to Protect Your Furniture. [GC16039] UPC: 685387309627 UNSPC: 43202100 6.26L x 2.6W x 9.25H 1 LB

Griffin Apple® iPad® Loop Stand, Black $24.99 1X Griffin Apple® iPad® Loop Stand, BlackA clean, simple stand, weighted and shaped to hold your iPad® upright for viewing, or laid back for surfing and typing, in landscape or portrait mode. Loop cradles your iPad® in soft, cushioned inserts to protect it from scratches and from unwanted movement while you use it.But Loop is more than just a comfortable place for your iPad® to hang out. The open-loop design ensures you can plug in your dock cable (available separately) to charge and sync. And Loop has non-slip rubber feet to protect your furniture.No matter where your iPad® goes with you, with Loop it will always have a place to call home.FeaturesView your iPad® in portrait or landscapeUpright position for viewingIncline position so you can type or surf comfortablyUse with your Dock Cable (available separately) to charge and syncSecure, non-slip rubber pads secure iPad®" Compatible With A Type: Stand iPad Compatible: Yes Compatibility: Compatible With Apple®: iPad® 1 / 2 / 3

Griffin LightBoard For iPad. Each $28.38 Manufacturer: Griffin Technology. Each. Your iPad becomes an animated drawing and coloring friend with Griffin's LightBoard case for iPad. It's a protective case and art table in one. Your iPad is surrounded in a shatter-resistant polycarbonate shell with

Griffin GC16040 Stylus for iPad/iPhone Black $18.99 Type: Stylus iPad Compatible: Yes Features: High-sensitivity, omni-directional point won't scratch or smudge your touchscreen Great for right- and left-handed writers Integrated clip attaches to strap, pocket or a pencil loop in your iPad case Use with any app for greater comfort and control The new iPad (3rd Generation) and iPad 2 compatible Compatibility: iPad, iPhone, iPod touch Parts: 1 year limited Labor: 1 year limited

Griffin Technology / FlexGrip for iPad - Purple / GB01593 $24.09 Griffin Technology - FlexGrip for iPad - Purple - GB01593

Griffin Technology / PowerBlock for iPad/iPhone/iPo / NA23094 $33.55 Griffin Technology - PowerBlock for iPad/iPhone/iPo - NA23094

Griffin Technology / PowerJolt Micro for iPad/iPhon / GC23095 $30.5 Griffin Technology - PowerJolt Micro for iPad/iPhon - GC23095

Griffin Technology / Wave Stand for iPad / GC16043 $26.25 Griffin Technology - Wave Stand for iPad - GC16043

Griffin Technology / FlexGrip for iPad - White / GB01594 $24.09 Griffin Technology - FlexGrip for iPad - White - GB01594

Griffin Technology / ElanFolio Leather for iPad Blk / GB02451 $48.59 Griffin Technology - ElanFolio Leather for iPad Blk - GB02451

Griffin Technology / Outfit for iPad Smoke / GB03744 $28.93 Griffin Technology - Outfit for iPad Smoke - GB03744

Griffin Technology / PowerJolt for iPad/iPhone/iPod / GC23139 $33.55 Griffin Technology - PowerJolt for iPad/iPhone/iPod - GC23139

Griffin Technology / ElanFolio for iPad Black & Red / GB03912 $39.67 Griffin Technology - ElanFolio for iPad Black & Red - GB03912

Griffin Technology / ElanFolio Slim for iPad Red / GB03982 $39.67 Griffin Technology - ElanFolio Slim for iPad Red - GB03982

Griffin Technology / AirStrap for iPad - Black / GB01759 $34.31 Griffin Technology - AirStrap for iPad - Black - GB01759

Griffin / IPAD/TAB TABLET STAND / GC16044 $32.89 Griffin - IPAD/TAB TABLET STAND - GC16044

Griffin / IPAD 2 TOTALGUARD LVL 1 / GB03686 $24.39 Griffin - IPAD 2 TOTALGUARD LVL 1 - GB03686

Griffin Technology / Elan Sleeve for iPad / GB01551 $28.93 Griffin Technology - Elan Sleeve for iPad - GB01551

Griffin Technology / Elan Passport for iPad / GB01550 $39.67 Griffin Technology - Elan Passport for iPad - GB01550

Griffin Technology / PowerDuo for iPad/iPhone/iPod / NA23093 $42.09 Griffin Technology - PowerDuo for iPad/iPhone/iPod - NA23093

Griffin Technology / ElanFolio Slim for iPad Black / GB03822 $34.31 Griffin Technology - ElanFolio Slim for iPad Black - GB03822

Griffin Technology / Intellicase for iPad Midnight / GB03820 $43.22 Griffin Technology - Intellicase for iPad Midnight - GB03820

Griffin Technology / Reveal for iPad - Black / GB01619 $28.93 Griffin Technology - Reveal for iPad - Black - GB01619

Griffin Technology / FlexGrip for iPad - Blue / GB01592 $24.09 Griffin Technology - FlexGrip for iPad - Blue - GB01592

Griffin Technology / Outfit Metallic for iPad Pearl / GB01617 $25.71 Griffin Technology - Outfit Metallic for iPad Pearl - GB01617

Griffin / IPAD/IPN/IPOD POWRBLOCK / NA23138 $32.89 Griffin - IPAD/IPN/IPOD POWRBLOCK - NA23138

Griffin Technology / TotalGuard Level 2 for iPad / GB03561 $28.93 Griffin Technology - TotalGuard Level 2 for iPad - GB03561

Griffin Technology / Outfit Matte for iPad Blue / GB01654 $25.71 Griffin Technology - Outfit Matte for iPad Blue - GB01654

Griffin Technology / Outfit Matte for iPad Purple / GB01655 $25.71 Griffin Technology - Outfit Matte for iPad Purple - GB01655

Griffin Technology / Elan Form for iPad - Black / GB01554 $28.93 Griffin Technology - Elan Form for iPad - Black - GB01554

Griffin Technology / Studio Stand for iPad - Black / GB01761 $28.93 Griffin Technology - Studio Stand for iPad - Black - GB01761

Griffin Technology / CinemaSeat for iPad - Grey / GB01683 $25.71 Griffin Technology - CinemaSeat for iPad - Grey - GB01683