Thanks a lot Mike
I've used this one as query1
Left([Forename],1)+Mid([Forename],InStr([Forename]," "),2)
for some reason it updates initials for everyone with a second name.
I used this as query2 Where initial is Null
Left([Forename],1)
It worked thanks very much.:D