|
********************************************************************
下記の関数をコンパイルしようとすると、「プロパティの使い方が
不正です。」とのコンパイルエラーが必ず表示されます。RecordSet
を戻り値として返すことはできないのか、いろいろ調べたのですが、
不明なままです。どなたか、ご教示お願いします。
********************************************************************
Public Function SeekOrderNum() As ADODB.Recordset <----戻り値の型をレコードセット
On Error GoTo Seek_Err
Dim strsql As String
strsql = "SELECT 注文番号 FROM 注文T ORDER BY 注文番号"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
If mdlDBAccess.EnableDatabase = False Then mdlDBAccess.InitDatabase
rs.Open strsql, mdlDBAccess.myADOcon
If rs.EOF Then
'MsgBox "該当する注文内容は見つかりません.", vbInformation, "呼出エラー"
rs.Close
Set rs = Nothing
SeekOrderNum = rs <----コンパイルエラーで落ちる個所
Exit Function
End If
SeekOrderNum = rs <----コンパイルエラーで落ちる個所
'showDestination rs
rs.Close
Set rs = Nothing
On Error GoTo 0
Exit Function
Seek_Err:
Set rs = Nothing
SeekOrderNum = rs <----コンパイルエラーで落ちる個所
End Function
|
|