| |
1.表示される文章：問題が発生したため、Microsoft Access を終了します。 ご不便をおかけして申し訳ありません。
この文章は、リンクテーブルを通常起動するときに表示されます。
2.-2147418113:致命的なエラーです。
これは、下記の関数を使用している時の次の位置で表示されます。
Public Function gfncSQLStrGetValue(strTBLName As String, strPrmID As String, Optional strWhere As String, Optional strOrder As String) As String
Dim strSQL As String
Dim gobjCnc As New ADODB.Connection
Dim gobjRst As New ADODB.Recordset
'On Error GoTo Err_Trap
gfncSQLStrGetValue = ""
If gobjCnc.ConnectionString = "" Then
Set gobjCnc = CurrentProject.Connection
End If
strSQL = strSQL & "select " & strPrmID & " As GetValue from " & strTBLName & ""
If Not IsNull(strWhere) And strWhere <> "" Then
strSQL = strSQL & " where " & strWhere & ""
End If
If Not IsNull(strOrder) And strOrder <> "" Then
strSQL = strSQL & " Order By " & strOrder & ""
End If
'--------------この位置↓↓↓↓↓--------------
Call gobjRst.Open(strSQL, gobjCnc, adOpenKeyset, adLockOptimistic)
'--------------この位置↑↑↑↑↑--------------
If gobjRst.RecordCount >= 1 Then
Call gobjRst.MoveFirst
gfncSQLStrGetValue = Nz(gobjRst![GetValue])
Else
gfncSQLStrGetValue = 0
End If
Call gobjRst.Close
Exit_Trap:
Exit Function
Err_Trap:
Call gobjCnc.Close
Call MsgBox(Err.Number, Err.Description)
GoTo Exit_Trap
End Function
原因がわからないので、応急処置で済ませています。
よろしくお願いします。
▼雅 さん：
>こんにちわ。雅です。
>
>>Windows XP Professionalで使用している際に、
>>リンクテーブルのファイルパス(D:\Documents and Settings\PC名\デスクトップ\〜Data.mdb)とファイルを指定した際、118文字(まだ確定できません)あたりで
>>クライアンド側からテーブルを起動した際に何故か以上終了をしてしまいます。
>>この現象がWindows XP HomeEdition使用の際には起きないのです。
>>原因がまったく分かりません。
>
>異常終了するときにメッセージなどは出ないのでしょうか？
>出るならその詳細を書いてください。
>
>でわ。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 09/4/25(土) 22:02 -
