Private Sub cmdtest_Click(Index As Integer)
On Error Resume Next
With rs
.Fields("Location") = Txtlocation.Text
.Fields("DatePurchase") = DTPpurchase
.Fields("Item") = dcomboitem.Text
.Fields("Detail") = Txtitem2.Text
.Fields("IDNumber") = Txtidnumber.Text
.Fields("Price") = Txtprice.Text
.Fields("Status") = Combostatus.Text
.Fields("DateScrap") = DTPScrap
.Fields("Deletedate") = Txtdeldate.Text
Call clear
If MsgBox("are you sure want to update", vbOKCancel + vbExclamation, "update Record") = vbOK Then
.Update
Call display1
End If
End With
end sub
Private Sub display1()
Adodc1.ConnectionString = JetConnection
Adodc1.Refresh
Adodc1.RecordSource = "SELECT *from Inventory where Deletedate is Null"
Adodc1.Refresh
End Sub