| |
今レポートのぺジー数取得についていろいろ教えていただいているのですが、
コンパイルをするとメソッドまたはデータメンバーがありません。
となっていしまいます。
内容は
テーブル名 ページテーブル
フィールド名 店舗コード ページ番号があります。
モジュールは以下のとおりです。
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部分で
メソッドまたはデータメンバーがありません。
設定か何かが必要なのでしょうか？
よろしくお願いします。
|
|
hatena
- 07/5/7(月) 11:52 -
pinetree
- 07/5/7(月) 10:00 -
pinetree
- 07/5/7(月) 9:18 -
Gin_II
- 07/4/27(金) 17:25 -
