Access VBA質問箱 IV

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

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


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

3899 / 9994

←次へ　｜　前へ→


	【9345】コンパイルエラーについて

たけし - 07/4/27(金) 16:33 -


	引用なし

	パスワード

今レポートのぺジー数取得についていろいろ教えていただいているのですが、
コンパイルをするとメソッドまたはデータメンバーがありません。
となっていしまいます。

内容は
テーブル名　ページテーブル
フィールド名　店舗コード　ページ番号があります。

モジュールは以下のとおりです。

Option Compare Database
Option Explicit

Dim DB As Databases
Dim GrpPages As Recordset

Public Function GetGrpPages()
GrpPages.Seek "=", Me![店舗コード]
If Not GrpPages.NoMatch Then
　 GetGrpPages = Me.Page & "/" & GrpPages![ページ番号]
End If
End Function

Private Sub Report_Open(Cancel As Integer)
Set DB = CurrentDb()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM　[ページテーブル];"
Set GrpPages = DB.OpenRecordset("ページテーブル", dbOpenTable)
GrpPages.Index = "PrimaryKey"
DoCmd.SetWarnings True
End Sub

Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
Me.Page = 1
End Sub

Private Sub ページフッター_Format(Cancel As Integer, FormatCount As Integer)
GrpPages.Seek "=", Me![店舗コード]
If Not GrpPages.NoMatch Then
　 If GrpPages![ページ番号] < Me.Page Then
　　　GrpPages.Edit
　　　GrpPages![ページ番号] = Me.Page
　　　GrpPages.Update
　 End If
Else
　 GrpPages.AddNew
　 GrpPages![店舗コード] = Me![店舗コード]
　 GrpPages![ページ番号] = Me.Page
　 GrpPages.Update
End If
End Sub

レポートの”開く時”プロパティに下記のイベントプロシージャーを下記のように作成しました。

Private Sub Report_Open(Cancel As Integer)
Set DB = CurrentDb()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM　[ページテーブル];"
Set GrpPages = DB.OpenRecordset("ページテーブル", dbOpenTable)
GrpPages.Index = "PrimaryKey"
DoCmd.SetWarnings True
End Sub

の　Set GrpPages = DB.OpenRecordset部分で
メソッドまたはデータメンバーがありません。
設定か何かが必要なのでしょうか？

よろしくお願いします。

444 hits

▼

【9345】コンパイルエラーについて たけし 07/4/27(金) 16:33

≪