| |
▼サチチ さん：
こんにちは。
まずはフォームの(一応?)完成お疲れ様でした。
要はクエリなんですよね。
こいつがしっかりできれば、フォームの作成等も楽になるんですよね。
>さて、インポートの件ですが・・・
まず、外部データとする必要がありますでしょうか。
CSV や Excel で他の部署とのやりとりがあったりするのであれば
さほど難しい事をするわけでないので可能なのですが、
この Access で使うのだけであれば、別テーブルでとっておくのが良いと思いますよ。
例えばですが…。
(以下、データの削除等も行いますので必ずバックアップを)
T_疾病管理 をデータごと丸々コピーして、「T_全データ」とします。
その後、 T_疾病管理 のレコードを全て消去します。
適当をにフォームを作成して、
・コンボボックス:
名前：cmb年
値集合ソース：
SELECT Left([管理開始],4) AS 式1 FROM T_全データ GROUP BY Left([管理開始],4);
・コマンドボタン:追加
・コマンドボタン：削除
を配置し、それぞれのクリック時に
Private Sub 追加_Click()
Dim SQLCode As String
SQLCode = "INSERT INTO T_疾病管理 " _
& "SELECT * " _
& "FROM T_全データ " _
& "WHERE Left(管理開始, 4) = '" & Me.cmb年 & "'"
DoCmd.RunSQL SQLCode
End Sub
Private Sub 削除_Click()
Dim SQLCode As String
SQLCode = "DELETE FROM T_疾病管理 " _
& "WHERE Left(管理開始, 4) = '" & Me.cmb年 & "'"
DoCmd.RunSQL SQLCode
End Sub
こんな感じでコードを組みます。
コンボボックスで年を選び、「T_疾病管理」に追加、削除が可能です。
>今後使うにあたってパンクするかも・・・
Access のヘルプより、
テーブルのサイズ 2 GB からシステム オブジェクトに必要な領域のサイズを引いた値
いったい何レコードくらいなのでしょうか(笑)
当方が使用している Access のツールで19万レコードを持つ mdb は普通に運用できていますよ。
|
|
小僧
- 05/8/26(金) 16:44 -
