PcSchool.Club

パソコンを分かりやすく解説することを目指す無料のスキルアップサイトです

岐阜のパソコン教室「パソコンスクール・テルン」

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

2020年5月26日

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

 

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

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

多少、プログラミングでJavaやC#、PHPなどの言語を知っている方向けの講座です。
1から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