vba to move from one cell to the other

[mp3er3000]

ID NAME PHONE1 PHONE2
1 KEVIN 911 988
2 TOM 897
3 LISA 485 485

Above is my table, I would like to write a vba script to check if phone1 is blank then move phone2 value to phone1. Can anyone please help me? Thanks
the end result should look like this


ID NAME PHONE1 PHONE2
1 KEVIN 911 988
2 TOM 897
3 LISA 485 485

 

[Eupher]

You can do this with an update query:

UPDATE tblMyTable SET tblMyTable.Phone1 = [tblMyTable].[Phone2], tblMyTable.Phone2 = Null
WHERE tblMyTable.Phone1 Is Null AND tblMyTable.Phone2 Is Not Null;

Or if you want to do it in VBA:

Dim strSQL As String

strSQL = "UPDATE tblMyTable " _
& "SET tblMyTable.Phone1 = [tblMyTable].[Phone2], tblMyTable.Phone2 = Null " _
& "WHERE tblMyTable.Phone1 Is Null AND tblMyTable.Phone2 Is Not Null;"

DoCmd.RunSQL strSQL

HTH,

Ken S.