Update

[klwu]

Hi all,

I have another problem

When a form is open, I want to change a specific field data to something else (e.g. from 'New' to 'Read'). I wrote the code using UPDATE statement however, when I debug, it keeps giving me error. Could someone guide me please? Thanks

Private Sub Form_Current()
Dim sSql As String
Dim dbs As Database

sSql = "UPDATE T_IMPanel SET MsgStatus = 'Read' WHERE MsgRef = '" & txtMsgRef & "'"
Set dbs = CurrentDb
dbs.Execute sSql
If dbs.RecordsAffected <> 1 Then
    MsgBox "Internal Error", vbOKOnly, "ERROR"
End If

End Sub

 

[maxmangion]

rather than that code you can simply put

Me.Fieldname = "Read"

 

[klwu]

Max,

I tried your code, it doesn't work. I went to check the table, and the field data still remains 'New'. Anyway, I appreciate your help. Thanks

 

[maxmangion]

what is the name of the field which you want to update ? And which event are you using the code in ?

 

[klwu]

Max,

Your code works! I just went to double check my code, and realise I did something silly. ......Thanks for your help

 

[maxmangion]

you're welcome