|
|
|
Валится Access при линковании к Fox'у
|
|||
|---|---|---|---|
|
#18+
Программа выполнила недопустимую операцию, и посылает к Биллу Гейтсу. Текст программы: Function FoxLink(Path As String, TableName As String, LinkName As String) As Boolean Dim TmpDb As Database Dim LinkedTable As TableDef On Error Resume Next DoCmd.DeleteObject acTable, LinkName err.Clear Set TmpDb = CurrentDb Set LinkedTable = TmpDb.CreateTableDef(LinkName) LinkedTable.Connect = "FoxPro 2.6;DATABASE=" + Path LinkedTable.SourceTableName = TableName TmpDb.TableDefs.Append LinkedTable TmpDb.TableDefs.Refresh Set TmpDb = Nothing FoxLink = (err.Number = 0) If FoxLink = False Then MsgBox ("Не удалось установить связь с таблицей " + Path + TableName + "!") End If End Function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 13:57 |
|
||
|
Валится Access при линковании к Fox'у
|
|||
|---|---|---|---|
|
#18+
Закомментируй On Error Resume Next и посмотри на каком операторе падает ошибка. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 14:22 |
|
||
|
|

start [/forum/topic.php?fid=45&fpage=1777&tid=1680501]: |
0ms |
get settings: |
6ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
29ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
27ms |
get tp. blocked users: |
1ms |
| others: | 196ms |
| total: | 284ms |

| 0 / 0 |
