"on error resume next" kodunun hemen altına
dim a as string
dim b as integer
dim c as string
a = Metin22
b = Metin24
c = Kullanici
DoCmd.GoToRecord , , acNewRec
kodunun hemen altına
Metin22 = a
Metin24 = b
Kullanici = c