標準モジュールでレコードセットオブジェクトを開くには？ (ID:123542)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 一応 レコードセットオブジェクトを開けるようになったのですが Form側で Callで呼び出しても ①のところで 「オブジェクト変数または With ブロック変数が設定されていません」 というエラーが出ます。 ・標準モジュール Public Function cnSYAIN() Set cn = New ADODB.Connection cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = M:KENSYUUDB_VB.mdb" cn.Open End Function Public Function rsSYAIN() Set rs1 = New ADODB.Recordset rs1.CursorLocation = adUseClient strsql = "SELECT * FROM SYAIN WHERE iSyainNo BETWEEN " & Form1.Text1.Text & " AND " & Form1.Text2.Text & "" rs1.Open strsql, cn, adOpenStatic, adLockOptimistic End Function ・Form Private Function chkErr() As Boolean Call rsSYAIN If Text1.Text = "" Then '社員番号が空白の場合 〜 〜 〜 ElseIf IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then If rs1.RecordCount > 0 Then・・・① '該当データがある場合 Form2.Show Form1.Enabled = False 〜 〜 〜 End Function