Вопросы Теги

MS Access - кнопка открытия внешнего файла

У меня была такая же проблема сегодня. Я тестировал четыре вещи, некоторые из них уже упомянуты здесь:

  1. Существуют ли какие-либо значения в вашем дочернем столбце, которые не существуют в родительском столбце (помимо NULL, если дочерний столбец имеет значение NULL )
  2. У родительского и родительского столбцов одинаковый тип данных?
  3. Есть ли указатель в родительском столбце, на который вы ссылаетесь? MySQL, похоже, требует этого по соображениям производительности ( http://dev.mysql.com/doc/refman/5.5/en/create-table-foreign-keys.html )
  4. И этот решил для меня: У обеих таблиц одинаковая сортировка?

У меня была одна таблица в utf-8, а другая в iso-something. Это не сработало. После изменения команды iso-table в utf-8 ограничения могут быть добавлены без проблем. В моем случае phpMyAdmin даже не показывал дочернюю таблицу в изокодировании в раскрывающемся списке для создания ограничения внешнего ключа.

0
задан krish KM 25 March 2019 в 10:56
поделиться

1 ответ

Я когда-то нашел это где-то в сети, не могу вспомнить, где. Iv'e поместил его в свой собственный модуль и использовал, вызывая OpenFile, передавая полный путь к файлу в качестве параметра.
Здесь: 

Option Compare Database
Option Explicit

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Function OpenFile(sFileName As String)
On Error GoTo Err_OpenFile

    OpenFile = ShellExecute(Application.hWndAccessApp, "Open", sFileName, "", "C:\", 1)

Exit_OpenFile:
    Exit Function

Err_OpenFile:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_OpenFile

End Function

Этот модуль поставляется с тестом. Вы можете запустить его: 

Public Function TestOpeningFile()
On Error GoTo Err_TestOpeningFile

    OpenFile "C:\Windows\Win.ini"' Replace this line with any file 

Exit_TestOpeningFile:
    Exit Function

Err_TestOpeningFile:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_TestOpeningFile

End Function
0
ответ дан marlan 25 March 2019 в 10:56
поделиться
Другие вопросы по тегам:

Похожие вопросы: