Microsoft Access 掲示板

たびたびお世話になっています。

メインフォームは非連結です。

このような感じです。
コードは、

Option Compare Database

Private Sub btn_クリア_Click()
    Me!cmb_分類 = ""
    Me!txb_コード = ""
    Me!txb_品名 = ""
    Me!cmb_単位 = ""
    Me!txb_巾 = ""
    Me!txb_長さ = ""
    Me!txb_登録日 = ""
    Me!txb_更新日 = ""
    Me!txb_単価 = ""
    Me!txb_改訂前単価 = ""

End Sub

Private Sub btn_登録_Click()
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Q_追加T_原材料テーブル"
    DoCmd.SetWarnings True

    Me!cmb_分類 = Null
    Me!txb_コード = Null
    Me!txb_品名 = Null
    Me!cmb_単位 = Null
    Me!txb_巾 = Null
    Me!txb_長さ = Null
    Me!txb_登録日 = Null
    Me!txb_更新日 = Null
    Me!txb_単価 = Null
    Me!txb_改訂前単価 = Null
    DoCmd.GoToControl "cmb_分類"
    Me.sub_原材料.Form.Requery
End Sub

Private Sub btn_閉じる_Click()
    DoCmd.Close acForm, Me.Name
End Sub

Private Sub Form_AfterUpdate()

End Sub

Private Sub Form_Open(Cancel As Integer)
    DoCmd.SelectObject acForm, Me.Name
    DoCmd.MoveSize , , 13000, 9200

End Sub

このようになっているのですが、これで大丈夫でしょうか。
よろしくお願いします。