Kimlik formunuza bir düğme ekleyin ve bu düğmenin tıklandığında olayına;

Private Sub Komut0_Click()

Forms!Ana!Dogumyeri.Value = Me.Dogumyeri

Forms!Ana!Dosyası.Value = Me.Dosyası

Forms!Ana!Sayısı.Value = Me.Sayısı

End Sub

yazarak deneyin.