|
gRs.AbsolutePosition = Me.CurrentRecord - 0
上記ステートメントを実行すると
「引数が間違った型、許容範囲外、又は競合しています」のエラーが出ます
データベースとの接続はADOです
Public gDb As New ADODB.Connection
Public gRs As New ADODB.Recordset
gCraiteria = "SELECT 以下省略
Set gDb = CurrentProject.Connection
Set gRs = New ADODB.Recordset
gRs.Open gCraiteria, gDb, adOpenKeyset, adLockOptimistic
"
途中省略
"
gRs.AbsolutePosition = Me.CurrentRecord - 0
これはDAOからADOに変更する途中で起きたエラーです
DAOの場合はエラーはありませんでした
何処を疑ったらいいでしょうか、又は同じ動作をつくり出す方法が
ありましたら宜しくお願いします
動作環境 OS = Windows XP ACCESS 2003
|
|