投稿日	： 2004/05/11(Tue) 14:36
投稿者	： くるりん
ＵＲＬ	：
タイトル	： DAOをつかってのMDB接続

こんにちは、お世話になっております。
DAOを使ってカレントディレクトリにある"Data.mdb"を開いて、フォームロード時に件数を取るという処理をしております。
以下のようなコードで行っているのですが、DCountのところでエラーがでてしまいます。

Option Explicit

Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rst As DAO.Recordset

Private Sub Form_Load()

Dim chk As Integer

    On Local Error Resume Next

    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(App.Path & "\Data.mdb")
    Set rst = db.OpenRecordset("EVT", dbOpenDynaset)
    
    On Local Error GoTo 0
    
    If chk <> 0 Then
      MsgBox "データベースに接続出来ません。"
      End
    End If

    max = DCount("No", "EVT")
    Debug.Print max
End Sub

Data.mdbの中にEVTというテーブルがありなおかつその中にはNoと言う項目はちゃんとあります。
でだしで躓いてしまっているので、どうかご指摘よろしくお願いします。

★ - DAOをつかってのMDB接続 - くるりん 05/11-14:36No.8925
• Re: DAOをつかってのMDB接続 - GOD 05/11-14:57 No.8926
  • Re^2: DAOをつかってのMDB接続 - くるりん 05/11-15:09 No.8927
    • Re^3: DAOをつかってのMDB接続 - GOD 05/11-16:52 No.8928
    • Re^3: DAOをつかってのMDB接続 - とろ 05/12-10:06 No.8938
      • Re^4: DAOをつかってのMDB接続 - くるりん 05/17-16:57 No.8989