SQL文を文字列の引数として渡しRecordsetオブジェクトとして返す

SQL文の文字列を引数として渡して戻り値のRecordsetに返す

——–

Public Function CreateRS_FromSQLString(sSQL As String, Optional bMsgFlg As Boolean = True) As Recordset
    On Error GoTo Err_Rtn   'エラー処理ルーチン開始
    Dim RS As DAO.Recordset

    Set CreateRS_FromSQLString = Nothing   '初期化
    SysCmd acSysCmdSetStatus, "データ取得を開始します"

    'SQLの発行
    Set RS = CurrentDb.OpenRecordset(sSQL, dbReadOnly)
    If RS.RecordCount = 0 And bMsgFlg = True Then
        MsgBox "データが取得できませんできした。", vbOKOnly + vbInformation, "情報取得件数ゼロ"
        GoTo Exit_Rtn
    End If

    '戻り値へ
    Set CreateRS_FromSQLString = RS
    '終了処理
    GoTo Exit_Rtn

Err_Rtn:
    'エラーハンドリング
    Select Case Err.Number
    Case Else
        MsgBox "予期せぬエラーが発生しました。" & Chr(13) & _
                "【エラーナンバー】：" & Err.Number & Chr(13) & _
                "【エラー内容】" & Chr(13) & Err.Description, 0 + 16, "システム管理者"
    End Select
Exit_Rtn:
    Set RS = Nothing
    SysCmd acSysCmdClearStatus
End Function

Public Function CreateRS_FromSQLString(sSQL As String, Optional bMsgFlg As Boolean = True) As Recordset

On Error GoTo Err_Rtn 'エラー処理ルーチン開始

Dim RS As DAO.Recordset

Set CreateRS_FromSQLString = Nothing '初期化

SysCmd acSysCmdSetStatus, "データ取得を開始します"

'SQLの発行

Set RS = CurrentDb.OpenRecordset(sSQL, dbReadOnly)

If RS.RecordCount = 0 And bMsgFlg = True Then

MsgBox "データが取得できませんできした。", vbOKOnly + vbInformation, "情報取得件数ゼロ"

GoTo Exit_Rtn

End If

'戻り値へ

Set CreateRS_FromSQLString = RS

'終了処理

GoTo Exit_Rtn

Err_Rtn:

'エラーハンドリング

Select Case Err.Number

Case Else

MsgBox "予期せぬエラーが発生しました。" & Chr(13) & _

"【エラーナンバー】：" & Err.Number & Chr(13) & _

"【エラー内容】" & Chr(13) & Err.Description, 0 + 16, "システム管理者"

End Select

Exit_Rtn:

Set RS = Nothing

SysCmd acSysCmdClearStatus

End Function