Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54094 / 76738

←次へ　｜　前へ→


	【27446】レコードセットを戻り値にできる？

お塩 - 05/8/9(火) 17:58 -


	引用なし

	パスワード

********************************************************************
下記の関数をコンパイルしようとすると、「プロパティの使い方が
不正です。」とのコンパイルエラーが必ず表示されます。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

0 hits

▼

【27446】レコードセットを戻り値にできる？ お塩 05/8/9(火) 17:58

≪