別の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.18

piroin654

If MsgBox("番号" & i & " 項目1" & rsOutMain!項目1 & " 項目2" & rsOutMain!項目2 & "のチェックがOFFになっています。転送しますか？",

のように、メッセージボックスの中の書き方は
これでお判りになると思いますが、フォーム
などに表示したデータが多い場合はメッセージ
ボックスが出ている間は、フォームを操作できないので
チェックの入っていないレコードの中身の確認の
ためにレコードの内容をメッセージボックスに
入れて確認します。確認内容をもっと表示したい
場合はメッセージボックスに追加します。

それから、追加したコードで、

rsOutMain.Edit
rsOutMain!チェック = True
rsOutMain.Update

はテーブルのチェックをONにして、削除対象に
設定するためのコードです。

回答No.17

piroin654

遅くなりました。
さきほどのANo.15については確認できたでしょうか。

チェックが無い場合のメッセージについては以下のように、

'T_データのエクスポート
rsOutMain.MoveFirst
Do Until rsOutMain.EOF

'チェックがOFFの場合の確認
If rsOutMain!チェック = False Then
i = rsOutMain!番号
If MsgBox("番号" & i & " 項目1" & rsOutMain!項目1 & " 項目2" & rsOutMain!項目2 & "のチェックがOFFになっています。転送しますか？", vbYesNo) = vbYes Then

rsOutMain.Edit
rsOutMain!チェック = True
rsOutMain.Update
DoCmd.RunCommand acCmdSaveRecord

End If
End If

If rsOutMain!チェック = True Then
i = rsOutMain!番号

Do Until rsOutMain.EOF
と
If rsOutMain!チェック = True Then
i = rsOutMain!番号
の間に　「'チェックがOFFの場合の確認」　以下を
挿入してください。

プログラムの上達の一つにコードを見やすく整理する、
ということがあります。そのためにはインデントを
適切に設定する、つまり段落です。そのためのいい
フリーのツールがあります。

http://www.oaltd.co.uk/Indenter/Default.htm

この、Office版を落とし、インストールします。
使い方は、カーソルが点滅しているプロシージャ
の部分のインデントを設定する場合はIndent Procedure
をクリックします。あとは見ての通りです。英語版ですが
機能だけは抜群です。
このようなものを利用してコードを見やすく、理解しやすい
ようにします。でも試行錯誤とエラーとの出会いと歯軋り
が一番の上達です。

それから、T_番号を使用する場合は、Loopの内側で更新しないと
いけないのでANo.27は変更する必要があった、ということを
添えておきます。

回答No.16

piroin654

＞チェックボックスにチェックが入っていない時に
＞メッセじを出して再入力を即するには　どうしたらよいでしょうか

これがありましたね。ちょっと所用ができましたので
後ほど回答します。

回答No.15

piroin654

いろいろ消したり書いたりしたので、
どこかでコードの一部が欠落した可能性が
ありそうですが、

チェックボックスがOnになっている場合は

'T_データのエクスポート（データベース２からデータベース１へ)
rsOutMain.MoveFirst
Do Until rsOutMain.EOF
If rsOutMain!チェック = True Then

のところの、
If rsOutMain!チェック = True Then
で判断しますが、これが無くなっていませんか。

これを確認してください。それとこれを復活させると
Loopに対するDoが無い、というエラーが出るかも知れません。
したがって、

End If
rsOutSub.MoveNext
Loop

のところの、

End If

が抜けているかもしれません。

確認してみてください。

回答No.14

piroin654

これは、先にテーブルの最大値を読み込んでおいて、
その値をホーム側でnumMaxに保持し、レコードを一つ送る
毎にnumMaxを更新して次のレコードの番号に割り当てる
方法です。

補足

ありがとうございました
出来ました

やはり　自分の頭では無理のようです
自分でがんばってみようと自分なりに考えていましたが
ご指南頂いたらすぐに解決いたしました

勉強がんばります

ところで　すいません　その後気付いたのですが　送る側のチェックボックスにチェックが入っていなくても
処理されてしまいます
チェックボックスにチェックが入っていない時にメッセじを出して再入力を即するには　どうしたらよいでしょうか　よろしくお願いいたします。

回答No.13

piroin654

すみません。

rsInMain.AddNew
rsInMain!番号 = rsInNUM!番号 + 1
rsInMain!項目1 = rsOutMain!項目1
rsInMain!項目2 = rsOutMain!項目2
j = rsInMain!番号
rsInMain.Update
numMax = numMax + 1

のように、
numMax = numMax + 1
を追加してください。

これで、重複がなくなると思います。

回答No.12

piroin654

もし、反応が悪ければもう一つ表示します。

回答No.11

piroin654

numMax = 0

はこの場合は必要ないので、コメントアウト
しておいてください。
初期化のつもりで入れたのですが、いらないです。

回答No.10

piroin654

ANo.27のコードをもとに進めます。

(1)
フォームのコード表の一番上にところで、

Option Compare Database
Option Explicit

となっているところに、

Option Compare Database
Option Explicit
Dim numMax As Long

のように、
Dim numMax As Long
を追加してください。

(2)
次に、

Set rsInNUM = dbIn.OpenRecordset("T_番号", dbOpenDynaset)

の下に、

numMax = 0
numMax = funcMax

を追加してください。
Set rsInNUM = dbIn.OpenRecordset("T_番号", dbOpenDynaset)
は使っていないのでコメントアウトするかしておいてください。

また、コードの下のほうの

'T_番号の更新
rsInNUM.Edit
rsInNUM!番号 = rsInNUM!番号 + 1
rsInNUM.Update
End If
rsOutMain.MoveNext
Loop

も、同様ですね。

(3)
rsInMain!番号 = rsInNUM!番号 + 1

を

rsInMain!番号 = numMax + 1

に変更してください。

(4)
以下の関数をはりつけてください。

Private Function funcMax() As Long
Dim db As Database
Dim rs As Recordset
Dim strSQL As String

Set db = DBEngine.Workspaces(0).OpenDatabase("C:\データベース1.mdb")
strSQL = "SELECT Max(T_データ.番号) AS 最大番号 FROM T_データ"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

funcMax = rs!最大番号
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
End Function

この関数で、"C:\データベース1.mdb"はファイルへのパスです
から環境に合わせて変更してください。

"SELECT Max(T_データ.番号) AS 最大番号 FROM T_データ"
のT_データは名称変更がなければそのまま使ってください。

以上です。少し試行錯誤をしていた案なのですが、
ようやくピンときたので、確認してみました。

これで確認してみてください。

補足

ありがとうございます

さっそく試しましたが
やはり　重複エラーになります
テーブルのデータをみるとデータは転送されていて　それをもう一度読むので
重複になっているようです？？

もう少しがんばってみます

回答No.9

piroin654

えーっと、何だかいい案ができました。
確認したら表示します。どうやら
ご希望に沿えそうです。

補足

ありがとうございます
お待ちしています。

私なりにも考えていましたが　中々上手くいきません
やはり　勉強が足りません
よろしく願い致します。