CurrentDb.Execute "insert into Tablo2 (ad,soyad,tc,KULLANICI)" _
& " select '" & Me.ad & "' , '" & Me.soyad & "','" & Me.tc & "','" & environ("username") & "'"

Kayit girme esnasinda kullaniciID yeni olusturulacak sutuna yazdirabilir ve silme komutunda kullaniciID kosul olarak belirtebilirsiniz.
Misal:
...
...
*****silme kodu****
currentdb.execute "delete * from Tablo2 Where ((KULLANICI)='" & environ("username") & "')"

End Sub

hocam yardımlarınız için teşekkür ederim sorun çözüldü. Nasıl oldu anlamadım ama işyerindeki pc de kodları arkakaya yazınca sırasıyla çalıştı.