nKB

nKB

シンプルにいこうよ

Access VBAメモ

VBAのメモ

ボタンにVBAを割り当てる

デザインビューでボタンを右クリック→イベントのビルド

サブフォームを更新する

Forms("<フォーム名>").Controls("<サブフォーム名>").Form.Requery

フォームの非連結のテキストボックスに入力した値をテーブルに反映させる

Private Sub テーブル更新()

Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("<テーブル名>", dbOpenTable)
With Rst
.AddNew
.Fields("<フィールド名>") = Me!<テキストボックス名>
.Fields("<フィールド名>") = Me!<テキストボックス名>
.Fields("<フィールド名>") = Me!<テキストボックス名>
.Fields("<フィールド名>") = Me!<テキストボックス名>
.Fields("<フィールド名>") = Me!<テキストボックス名>
.Update
End With

Rst.Close
Set Rst = Nothing

End Sub

テキストボックスの値を初期化する

'初期化<テキストボックス名>.Value = Null

広告を非表示にする