アクセス・別フォームの新規レコードへの移動

こんにちは
アクセス２０００で

フォームＡでフォームＢの入力をしています。
新規登録ボタンを押すと
フォームＢを保存し
フォームＢの新規レコードに移動したいのですが

どうすればいいのかわかりません。
どなたかお力をお貸しください。。

。

No.1 ベストアンサー 回答者： 30246kiku 回答日時： 2009/01/15 13:11

フォームＢが起動されていれば、保存/移動する例です。

Private Sub 新規登録ボタン_Click()
　　If (CurrentProject.AllForms("フォームＢ").IsLoaded = True) Then
　　　　DoCmd.Save acForm, "フォームＢ"
　　　　DoCmd.GoToRecord acDataForm, "フォームＢ", acNewRec
　　End If
End Sub

この回答へのお礼

お礼が遅くなってしまってすいませんでした
バッチリできました！！ありがとうございますm(_ _)m

お礼日時：2009/01/23 01:15