別のACCESSデータベースのテーブルのレコードを追加したいのです

質問

別のACCESSデータベースのテーブルのレコードを追加したいのです

以前piroin654様にご指南頂き解決しましたが　その後問題が発生しまして困っております

http://okwave.jp/qa/q5995365.html
レコードカウントで採番
rsInMain!番号 = rsInMain.RecordCount + 1
しておりましたが

１つのレコードを削除した場合、番号が重複してしまいます
そこで　rsInMain!番号 = rsInMain!番号の最終行の値+1にしたいのですが
うまく行きません　何卒ご指南ください

回答No.29

piroin654 · ベストアンサー

関数の最後のところを、

rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
End Function

としてください。後始末が抜けていました。

お礼

本当にありがとうございました
お陰様で完成いたしました。

日々勉強対します　本当に奥が深いです
ありがとうございました。

回答No.28

piroin654

関数を以下に変更してください。

'チェックの有無の確認
Private Function funcCheckExist() As Boolean
Dim db As Database
Dim rs As Recordset
Dim strSQL As String

strSQL = "SELECT T_データ.チェック FROM T_データ WHERE (((T_データ.チェック)=True))"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
'チェックがすべて入っていない場合
If rs.RecordCount = 0 Then
funcCheckExist = True
'チェックが入っていないレコードが存在しない場合
Else
funcCheckExist = False
End If
End Function

回答No.27

piroin654

関数のほうを変更しなければならないので
関数を変更します。しばらくお待ちを。

回答No.26

piroin654

それでは、先ほどのコードの中で、

'チェックが入っていないレコードが存在するときの処理の確認

の以下のコードを以下のようにしてみてください。

If funcCheckExist = True Then
MsgBox ("チェックがすべて外れています。転送をせずに終了します")
Exit Sub
End If

これが効かないとちょいと大変なのですが。

それと、

＞クエリで条件つけてフォーム表示してそこでチェックをいれさせ

のチェックはすべて同じテーブル、すなわちT_データのチェック
フィールドに入るようになっていますか。このチェックがT_テーブル
以外に入っているならば、チェックの有無の確認の関数の、

strSQL = "SELECT T_データ.チェック FROM T_データ WHERE (((T_データ.チェック)=False))"

の部分を変える必要があります。そのときはフォームのレコードソース
を直接参照するようにします。この場合、クエリだとクエリを参照
するようになります。

回答No.25

piroin654

確認ですが、
(1)
チェックが入ったものと入らないものが
混在している場合は転送の仕分けができている。

(2)
チェックが最初からすべてはずれていて、チェックを
入れたり外したりしない状態でクリックしても
転送されてしまう。

(3)
チェックが入っていたものをすべてはずして、
その直後にクリックすると転送されてしまう。

このような、状況ですか。
一度、提示したコードを入れずに、

Private Sub コマンド0_Click()
DoCmd.RunCommand acCmdSaveRecord

のように、クリック時の直後に
DoCmd.RunCommand acCmdSaveRecord
を挿入して試してみてください。
レコードの確定を先にしてみます。

補足

ありがとうございます

DoCmd.RunCommand acCmdSaveRecordいれても　変化ありませんでした
(1)
チェックが入ったものと入らないものが
混在している場合は転送の仕分けができている。

(2)
チェックが最初からすべてはずれていて、チェックを
入れたり外したりしない状態でクリックしても
転送されてしまう。

(3)
チェックが入っていたものをすべてはずして、
その直後にクリックすると転送されてしまう。

このような、状況ですか。

はい　そのとうりです

回答No.24

piroin654

補足の件了解しました。提示したコードでも
いいのですが、ちょいと検討してみます。

いいツールでしょう。しばらくトリツカレます。
以前提示したコードもこちらと同じインデントに
なると思います。

回答No.23

piroin654

以下のコードを、

'チェックが入っていないレコードが存在するときの処理の確認
If funcCheckExist = True Then
'Yesの場合はIf文を抜けそのまま転送プロセス
If MsgBox("チェックの入っていないレコードがあります。このまま転送しますか？", vbYesNo, "確認") = vbYes Then
'Noの場合はイベントの終了
Else
MsgBox ("転送をせずに終了します")
Exit Sub
End If
End If

Private Sub コマンド0_Click()
の直後、または、
Dim・・・
と変数宣言が終わった直後で、
Set dbOut = CurrentDbの前に入れてください。

これで処理に入る前にチェックの確認をします。
次に、以下の関数をフォームに張り付けてください。

'チェックの有無の確認
Private Function funcCheckExist() As Boolean
Dim db As Database
Dim rs As Recordset
Dim strSQL As String

strSQL = "SELECT T_データ.チェック FROM T_データ WHERE (((T_データ.チェック)=False))"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
'チェックが入っていないレコードが存在する場合
If rs.RecordCount > 0 Then
funcCheckExist = True
'チェックが入っていないレコードが存在しない場合
Else
funcCheckExist = False
End If
End Function

補足

わぁ
すいません　入れ違いです

回答No.22

piroin654

こういうことですか、もし転送する場合、チェックの入っていない
データが存在した場合、転送をストップして確認させる、
といことですか。

その場合、先にチェックの入っていないデータの有無を
先に確認し、もしなければ転送のプロセスに入る。
もし、存在すれば転送プロセスに入る前にYes Noを
聞いてYesならば、転送、Noならば転送プロセスに
入らずにすべての処理をしないままクリックイベント
を終了する、ということでいいのでしょうか。

補足

ありがとうございます
ホント良いツールです　色々試しています

ところで
If rsOutMain!チェック = True Thenの件ですが
状態としましては
チェックフィールドの規定値をFalseに　クエリで条件つけてフォーム表示してそこでチェックをいれさせ
転送ボタンをつくり　押すことによってチェックの入ったものを転送させていますが
まったくチェックの入っていない状態で転送処理しても処理が進んでしまいますので
何処にもチェックが入っていない場合処理を中止して　"チェックが入っていません"のエラーメッセージを出したいのですが

すべてのボックスにチェックが入らなかった場合のみ転送プロセスに入らずにすべての処理をしないままクリックイベントを終了する

なのです

よろしくお願いいたします

回答No.21

piroin654

まちがえました。

If rsOutMain!チェック = False Then

ではなく、

If rsOutMain!チェック = True Then

があってもチェックがあるなしに関わらず
すべて処理されてしまう、といことですか？

回答No.20

piroin654

ツールは私も使っています。これでフリーですからね。
世の中にはもっとすごいフリーのものもあります。
まったく知られていないのですが、Access2003から
付属するオブジェクトの依存関係を示す2000版で、
ユニオンクエリ、サブクエリでもクエリをテーブル
まで分解してTreeiew表示し、Treeをレポート
表示するものです。海外でも似たようなものは
ありますが、調べてみると未完成で使い物には
なりませんでした。ただ、作者がまだ一般公開
していないのですが。

ところで、

＞すべてのチェックボックスにチェックが入っていなくても転送処理
してしまう。

ということのようですが、

If rsOutMain!チェック = False Then

があっても処理されてしまう、ということですか？
「チェック」はT_データのフィールドのYes/Noフィールドの
名前をさすのですが。

回答No.19

piroin654

それから、先ほどのツールはOFFICE2000から2003が対象
なので、OFFICEのバージョンによっては機能しかも
しれません。

補足

ツールありがとうございました
すごいのがありますね

チェックボックスの件ありがとうございます

表現がまずく　すいません
すべてのチェックボックスにチェックが入っていなくても転送処理しますので
それを止めるエラーメッセージの事なんです
（教えていただいていて　申し訳ありません）