【保存版】2013年度発売全パチスロアプリ一覧(iPhone,iPad)

【Access】全ワークテーブルのデータを一括削除する。

Accessでのシステム構築において、フォームや帳票の表示の際に
ワークテーブルをよく使うと思います。
私は、画面遷移時にワークのデータを消すようにしていますが、
たまにそのまま残す作りにしている場合もあります。

ワークテーブルのデータが次回実行時まで残るような
作りをしている場合、このデータ分無駄にmdbの容量が大きく
なってしまいます。

そんなときに、ちょっとしたデータ削除用のPGがあると便利です。
下記のコードをモジュールに貼り付けて、イミディエイトウインドから
「?WorkData_Clear」で実行して下さい。
データベース内のワークテーブルを調べてデータがあれば削除します。
ちなみに、下記のコードは、ワークテーブルはテーブル名の先頭に
「WK_」をつけるというルールで運用されている場合に有効です。


*(注意)access2000以降は、daoの参照設定を行わないと動きません。
Public Function WorkData_Clear()
'ワークテーブルデータ全削除
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim lngCNT As Long
Dim STRSQL As String

On Error GoTo Err_Syori

Set db = CurrentDb

'テーブル名の先頭が”WK_”のテーブルのデータを削除します。
For Each td In db.TableDefs
If Left(td.Name, 3) = "WK_" Then
lngCNT = Nz(DCount("*", td.Name), 0)
If lngCNT > 0 Then
STRSQL = "DELETE * FROM " & td.Name
db.Execute STRSQL
Debug.Print "データを削除しました:" & td.Name & Space(1) & "削除件数:" & lngCNT & "件"
End If
End If
Next

Set td = Nothing
db.Close
Set db = Nothing

MsgBox "正常終了しました。", 64, "ワークテーブルデータクリア"

Exit Function
Err_Syori:
MsgBox Err.Number & ":" & Err.Description, 16, "システムエラー"



ワークテーブルの判定については、実際の運用にあわせて変更して下さい。
attributeで判定したり、例外をつけたりするとより使いやすくなると
思います。

システムに組み込むというより、納品前に1回流して余計なごみを
なくすという感じになると思いますが。
[Google PR]

Twitterはじめました。プラプラ | Twitter

<< 【雑記】03-3834-5295は、架空請求野郎だ。
【おもしろいサービス】怪しいサイトを確認したい時にはコレ! >>

[関連エントリ 最新5]

[Google PR]


[最新エントリ 5]

>>トップページ
人気カテゴリ:AccessTips SQLServer CakePHP iPad
過去ログ(全記事一覧)

コメント
コメントする(お気軽にどうぞ)









この記事のトラックバックURL
トラックバック
カテゴリー
プロフィール
お問い合わせ
Powered by NINJA TOOLS
links
recent comment
  • 【Access】vbaでhmacが正しく計算できた!!
    まさ (06/01)
  • 【Access】AccessReportMailメール送信時のポートを25から587へ
    わら (05/31)
  • 【SQLServer】超シンプル!再帰CTE(共通テーブル式)で連続データを作成する。
    sazi (09/08)
  • 【あまっちゃお】Amazon商品検索「あまっちゃお」プロジェクト始動。Ver00-06-00 β
    カメちゃん (07/31)
  • 【Access】あれ?DoCmd.RunCommand acCmdSaveRecordの内部仕様が変わった?
    花姉 (03/17)
  • 【Access】実行中のmdb(自分自身)をバックアップコピーする方法。
    亀 (02/06)
  • 【雑記】Amazonでの注文時、TMGさん発送にご注意を。納期を守れない可能性あり!
    管理人 (01/31)
  • 【雑記】Amazonでの注文時、TMGさん発送にご注意を。納期を守れない可能性あり!
    あ (01/31)
  • 【雑記】Amazonでの注文時、TMGさん発送にご注意を。納期を守れない可能性あり!
    K (11/13)
  • 【VAIOP】VaioXと両持ちできるものすっっごくマニアックなケース。当たり前ですが在庫限り。(笑)
    管理人 (08/04)
recent trackback
  • 【Access】2003安全でない式がブロックされていませんとセキュリティーレベル。
    awgs Foundry (10/29)
  • 【VAIOtypeP】液晶保護シートは、新車のカバーではない。レイアウト社液晶/天板保護フィルムセットRT-VP1FS1
    XMLがキライ。 (04/09)
  • Vistaから、LinkStation(NAS)にアクセスできません。
    そのほかいろいろ (09/06)