AccessVBA　VBAを使ってフォームからテーブルにデータを追加する|無料のオンラインパソコン教室

AccessVBA　VBAを使ってフォームからテーブルにデータを追加する

2021年5月27日

パソコンスクール・テルン Acess VBA講座

AccessVBA　VBAを使ってフォームからテーブルにデータを追加する

フォームで入力した内容をテーブルに追加する

多少、プログラミングでJavaやC＃、PHPなどの言語を知っている方向けの講座です。
１からAccessの機能を覚えるのは大変ですが、プログラミングさえできれば、少しのAccessの知識さえあれば、
簡単にシステム開発が出来てしまいます。

（補習動画のテキストは有料会員のみのサービスになります。こちらよりご購入ください）


●マクロソース

Option Compare Database

Private Sub Form_Load()

maxcnt = DCount("no", "取引先")

ラベル6.Caption = maxcnt & "件"


End Sub

Private Sub コマンド4_Click()

    If IsNull(テキスト0.Value) Then
        MsgBox "ナンバーが未入力です"
        Exit Sub
    End If
    


    Dim t As DAO.Recordset
    
    Set t = CurrentDb.OpenRecordset("取引先", dbOpenTable)
    
    With t
        .AddNew
        .Fields("no") = Val(Me!テキスト0.Value) 'val数値に変換する
        .Fields("名前") = Me!テキスト2.Value
        
    End With
    
    t.Update
    
    t.Close
    Set t = Nothing
    
    テキスト0.Value = ""
    テキスト2.Value = ""
    
    MsgBox "データを登録しました"
    
    maxcnt = DCount("no", "取引先")
    ラベル6.Caption = maxcnt & "件"

    
End Sub