Input Data Dari Userform Excel VBA Ke DB Access

Userform Input Data

Pembahasan:

• Cara Membuat Input Data Dari Userform Ke Database Access Pada Aplikasi VBA Excel

Microsoft Excel merupakan program yang sangat powerfull dan mudah digunakan oleh banyak orang.

Salah satu kehebatan program ini dapat dikembangkan menjadi aplikasi desktop canggih yang dapat membantu serta mempersingkat pekerjaan dalam menginput, memfilter data dan membuat laporan, 

plus dapat juga dikoneksikan ke ms. access sebagai database, contohnya seperti gambar dibawah ini.

Aplikasi VBA Excel + DB Access

Entry Data Ke Database Access

Setelah aplikasi dibuat dan sudah terhubung ke dbaccess, tentu ingin memasukkan datanya kedalam database.

Berikut ini adalah script penulisan untuk melakukan input/ entry data;

Dim Cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim QryName As String

With rst

QryName = "SELECT * FROM TableName WHERE FieldsName= '" & Me.TxtBoxName.Value & "'"
.Open QryName, Cn, adOpenKeyset, adLockOptimistic

.AddNew

.Fields("FieldsName1").Value =  Me.TxtBoxName1.Value
.Fields("FieldsName2").Value =  Me.TxtBoxName2.Value

.Update
.Close

End With

Sesuaikan "FieldsName1-2" dan "Me.TxtBoxName.Value1-2" dengan kebutuhan masing-masing.