obulldog27
Programmer
I am trying to update a spaceno record in my database called spaceno in table called info. The datatype is a number inputted in a textbox called spaceno1.text.
here is the code I am trying but cant get it to work
------------------------------------------------------
Adodc1.RecordSource = "SELECT info.spaceno FROM info where info.spaceno like '" & spaceno1.Text & "%';"
Adodc1.Refresh
With Adodc1
OriginalRecord = Adodc1.Recordset.Bookmark
.Recordset.MoveFirst
While Not .Recordset.EOF
.Recordset!spaceno = spaceno1.Text
.Recordset.Update
.Recordset.MoveNext
If .Recordset.EOF And .Recordset.BOF Then
.Recordset.Bookmark = OriginalRecord
Exit Sub
End If
Wend
End With
Adodc1.Refresh
End If