やあみんなオンラインで見ていて、カスケード削除、関係、参照整合性の実施について多くのコメントを見ています。しかし、私はまだ私が間違っていたところに私のエラーを見つけることができません、うまくいけば、そこにいる誰かが私よりも速いです、ちなみにAccessの新しいです。だからここに私の関係のイメージがあります、
つまり、基本的に私は多くのテーブルを持っています。メインテーブルはHG_IDを含み、他のすべてのテーブルにリンクするHeader_Generatorです。したがって、私の主な目標は、HG_IDを削除すると、このフィールドに関連するレコードがすべて削除されることでした。2つのフォームを作成したとすると、親フォームにはHG_IDの作成が含まれ、子フォームにはHEADER_IDが含まれるため、親フォームでこのレコードを手動で削除して別のフォームに完全にリダイレクトすることにした場合、エラーメッセージは表示されません。すべてが想定どおりに機能しています。ただし、この手動手順のボタンを作成しましたが、これを作成したため、前述のエラーメッセージが表示されます
You cannot add or change a record because a record is required in header_generator
メッセージを回避すると、コードが機能することがわかります。そのエラーメッセージは非常に煩わしいので、これがVBAでのコーディングです。
'Delete current data and redirect to home screen.
Private Sub DeleteEntry_Click()
'Promt
strPrompt = "All windows created will be delete, are you sure you want to delete this entry?"
'Dialog's Title
strTitle = "Warning"
'Display MessageBox
iRet = MsgBox(strPrompt, vbYesNo + vbCritical, strTitle)
If iRet = 6 Then
Me.USER.SetFocus
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Requery
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
DoCmd.OpenForm "HOME", OpenArgs:=Permissions & "|" & UserName & ""
Exit Sub
End If
サブ終了
全体的に私は失われた事件かもしれないので、兄弟を助けてください!!! ありがとうございました!