i try to make update from excel user form to access database but it does not work..
Dim dbConnection As ADODB.Connection
Dim recordSet As ADODB.recordSet
Dim strSQL As String
Set dbConnection = New ADODB.Connection
Set recordSet = New ADODB.recordSet
Material = Me.Material.Value
Unit = Me.Unit.Value
UnitPrice = Me.UnitPrice.Value
Curr = Me.Curr.Value
Supplier = Me.Supplier.Value
Origin = Me.Origin.Value
ID = Me.ListBox2.Column(6)
dbConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=\Database\MechAndElecDatabase.accdb"
dbConnection.CursorLocation = adUseClient
strSQL = "SELECT FROM [MechAndElecMalzeme] WHERE ([ID] = '" & ID & "')"
dbConnection.Execute (strSQL)
dbConnection.Close
Set dbConnection = Nothing
MsgBox "Record updated.."
Bookmarks