Aceess 特定項目のみ削除

質問

顧客テーブルがあるとします。
IDは数値型です。
他に、このテーブルデータをソースにした入力用のメインフォーム(新規作成、削除、編集可能)と、テーブルデータを一覧できるサブフォームがあります。
サブフォームでデータを選択→メインフォームに転記し、各処理を行う感じです。
削除する際、IDのみ残し会社名のみの削除だけを行いたいです。

【削除するコード】
If DCount("顧客ID", "T顧客情報マスタ", "[顧客ID]= " & Me!txt顧客ID & "") Then

'OKを押した場合、テーブルにある同一IDを削除する
If MsgBox("表示されているデータを削除しますがよろしいですか？", vbOKCancel, "削除") = vbOK Then

DoCmd.RunSQL ("delete * from T顧客情報マスタ where 顧客ID = " & Me!txt顧客ID & "")

　　　’欠番発生させない処理
Call 顧客編集_ID

【欠番防止のコード】

'各テーブルにIDが0ではない場合、ナンバーを再振りする
If RS.RecordCount <> 0 Then

'レコード参照をループ
Do Until RS.EOF

RS.Edit
RS!顧客ID = RSNum
RS.Update

RSNum = RSNum + 1
RS.MoveNext

Loop

非連結で行ったところ、規定値を1にしたら全データ削除した場合のみうまくいきましたが、新規作成で1～3の番号のデータがある場合でも新規の行が1表示になりました。(当たり前なんですが…)
テーブルに連結しているため、テキストボックスに値を代入もできません。
そのため、IDが1を削除の場合のみIDのみ値を保持し、他項目のみ削除させたいです。
ご教示お願いいたします。

回答No.1

chayamati

大変お困りのようですが、あなたのシステムが理解できません
一つ一つお願いしますのでお願いしますので補足よろしく
＞顧客テーブルがあるとします。
IDは数値型です。
？01.このIDは数値型の（整数型、長整数型、短精度浮動小数型、倍精度浮動小数点型）
　　添付図の赤枠内より選んでください
　　通常使われるのがオートナンバー型です
　　オートナンバー型は数値型で、サイズは長整数型と同じですが
　　Access内部で採番します
　　従って他のテーブルと関連付けは長整数型の項目のみですまた、
　　オートナンバー型どうしも成立しません