Need to update the table with new values

[sabavno]

Hi

i have a simple question
i need a sql statement that will replace all '950' to '1' and all '957' to 2 in my Model column of the BlackBerry table.
Please advise the code

Thanks

 

[Rolliee]

I would just open the recordset and pass thru changing where necessary.

rollie@bwsys.net

 

[sabavno]

How?

 

[datatech7F]

UPDATE BlackBerry SET Model = '1' where Model = '950';

then...

UPDATE BlackBerry SET Model = '2' where Model = '957';

I don't believe it can be done in one SQL statement, unless you wanted to go VBA...

Set dbsThis=currentdb
Set rstBerry = dbsThis.OpenRecordset("BlackBerry&quot
With rstBerry
Do Until .EOF
Select Case .Fields("Model&quot
Case Is '950'
.Edit
.Fields("Model&quot=1
.Update
Case Is '957'
.Edit
.Fields("Model&quot=2
.Update
End Select
.Movenext
Loop
End With