| |
▼みう さん：
こんにちは。
>>・今回インポートしたいデータの「CSVファイル」
>えっと。。。
>CSVファイルってあまりきちんと理解していないのですが、
>Excelに2項目作ったデータのファイルのこともCSVファイルとなるのでしょうか？
申し訳ありません。
Excelファイルでしたね…。
> クエリのなかにデータがあった場合、エラーなのはわかったのですが、
> クエリを呼び出す（？）のはどうすればいいのでしょうか？
クエリの中のレコード件数を確認するには
Recordset オブジェクトを使うのが一般的です。
こちらの掲示板で1から使い方を説明すると大変な量になってしまうので、
Web検索や参考書などで使い方を学んでください。
DAO と呼ばれるものと ADO と呼ばれるものがありますが、
Accessの中だけで使われるのでしたら DAO の方がより向いています。
また、件数を求めるだけでしたら定義域集計関数の DCount関数も有効です。
こちらですと
レコード数 = DCount("*","テーブル名またはクエリ名")
のような形で求める事ができます。
Function DataImport() As Boolean
Dim strSQL As String
'W_ワークテーブルの初期化
strSQL = "DELETE FROM W_ワークテーブル"
CurrentDb.Execute strSQL, dbFailOnError
'------------------------------------
'インポート処理
'------------------------------------
If DCount("*", "Q_重複レコード") > 0 Then
If MsgBox("処理を中止しますか？", vbCritical + vbYesNo) = vbYes Then
DataImport = False
Exit Function
End If
End If
'------------------------------
'本テーブルへの追加処理
'------------------------------
DataImport = True
End Function
|
|
小僧
- 07/10/11(木) 15:09 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
