<\/p>\n
Using MSAccess 97<\/p>\n
1. Create an updateable DSN in the 32bit ODBC Administrator.<\/p>\n
2. Use an Open Mode that allows modification of the database.<\/p>\n
3. Use a Password that grants write access.<\/p>\n
4. Follow the instructions to create links in MSAccess.<\/p>\n
When you see the Select Unique Record Identifier dialog box, you MUST select a field or combination of fields that contain data that makes each record unique in the dataset.<\/p>\n
You can now create Update, Add, or Delete information in your Image Database.<\/p>\n
NOTES<\/p>\n
If you select Open or double clink on the dataset listed in the Tables, MSAccess will attempt to copy all of the data from the dataset to your PC. The intermediate file size is currently limited and may not store all of the dataset. If you receive a warning about the temp file size, please use a query to select a subset of your data.
\nYour changes in datasheet mode take effect when you leave the current record or when you Save Record (shift+enter).
\nMSAccess allows one level of Undo.
\nDecember 23, 1997 \/ Thomas Isaak \/ Minisoft AG<\/p>\n
Inserts an address from an Image database with ODBC.
\nSub InsertAddress()<\/p>\n
ActiveDocument.Save<\/p>\n
Dim CustomerNr, SQLString, SQLString1<\/p>\n
CustomerNr = InputBox(“Enter Customer Number”, “Insert Address”)<\/p>\n
If CustomerNr <> “” Then<\/p>\n
Set AdrDoc = Documents.Add<\/p>\n
SQLString = “SELECT CUSTOMERS.CUSTOMER_NAME, “&_
\n“CUSTOMERS.ADDRESS1, CUSTOMERS.ADDRESS2,” & _
\n“CUSTOMERS.CITY, CUSTOMERS.STATE, CUSTOMERS.COUNTRY ”<\/p>\n
SQLString1 = “FROM TESTSAV3.CUSTOMERS CUSTOMERS “&_<\/p>\n
“WHERE (CUSTOMERS.CUSTOMER_NUMBER='” & CustomerNr & “‘)”<\/p>\n
AdrDoc.Range.InsertDatabase Format:=0, Style:=0, _<\/p>\n
LinkToSource:=False, _<\/p>\n
Connection:=”DSN=MSDB”, _<\/p>\n
SQLStatement:=SQLString, SQLStatement1:=SQLString1, _<\/p>\n
PasswordDocument:=””, PasswordTemplate:=””, _
\nWritePasswordDocument:=””, WritePasswordTemplate:=””, _
\nDataSource:=””, From:=-1, To:=-1, _
\nIncludeFields:=False<\/p>\n
Set Table1 = AdrDoc.Tables(1)<\/p>\n
ReDim TabCells(Table1.Range.Cells.Count)
\ni = 1
\nFor Each TabCell In Table1.Range.Cells
\nSet CellRange = TabCell.Range
\nCellRange.MoveEnd Unit:=wdCharacter, Count:=-1
\nTabCells(i) = CellRange.Text
\ni = i + 1
\nNext TabCell<\/p>\n
AdrDoc.Close (wdDoNotSaveChanges)<\/p>\n
‘ Insert CUSTOMER_NAME
\nSelection.TypeParagraph
\nSelection.MoveUp Unit:=wdLine, Count:=1
\nSelection.Range.InsertBefore TabCells(1)
\nSelection.MoveDown Unit:=wdLine, Count:=1<\/p>\n
‘ Insert ADDRESS1
\nSelection.TypeParagraph
\nSelection.MoveUp Unit:=wdLine, Count:=1
\nSelection.Range.InsertBefore TabCells(2)
\nSelection.MoveDown Unit:=wdLine, Count:=1<\/p>\n
‘ Insert ADDRESS2
\nIf TabCells(3) <> “” Then
\nSelection.TypeParagraph
\nSelection.MoveUp Unit:=wdLine, Count:=1
\nSelection.Range.InsertBefore TabCells(3)
\nSelection.MoveDown Unit:=wdLine, Count:=1
\nEnd If<\/p>\n
‘ Insert CITY
\nSelection.TypeParagraph
\nSelection.MoveUp Unit:=wdLine, Count:=1
\nSelection.Range.InsertBefore TabCells(4)
\nSelection.MoveDown Unit:=wdLine, Count:=1<\/p>\n
‘ Insert STATE
\nSelection.TypeParagraph
\nSelection.MoveUp Unit:=wdLine, Count:=1
\nSelection.Range.InsertBefore TabCells(5)
\nSelection.MoveDown Unit:=wdLine, Count:=1<\/p>\n
‘ Insert COUNTRY
\nSelection.TypeParagraph
\nSelection.MoveUp Unit:=wdLine, Count:=1
\nSelection.Range.InsertBefore TabCells(6)
\nSelection.MoveDown Unit:=wdLine, Count:=1<\/p>\n
End If<\/p>\n
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"
Using MSAccess 97 1. Create an updateable DSN in the 32bit ODBC Administrator. 2. Use an Open Mode that allows modification of the database. 3. Use a Password that grants write access. 4. Follow the instructions to create links in MSAccess. When you see the Select Unique Record Identifier dialog box, you MUST select […]<\/p>\n","protected":false},"author":75,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[54,63],"tags":[],"_links":{"self":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/2332"}],"collection":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/users\/75"}],"replies":[{"embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/comments?post=2332"}],"version-history":[{"count":1,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/2332\/revisions"}],"predecessor-version":[{"id":2333,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/2332\/revisions\/2333"}],"wp:attachment":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/media?parent=2332"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/categories?post=2332"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/tags?post=2332"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}