Excel VBA質問箱 IV

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

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


54088 / 76732 ←次へ | 前へ→

【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 質問
【27447】Re:レコードセットを戻り値にできる? りん 05/8/9(火) 18:03 回答
【27451】Re:レコードセットを戻り値にできる? お塩 05/8/9(火) 18:38 お礼

54088 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free