ıyı de ilk örnekte tablo2 veri yok ki o nedenle docmd burada bu haliyle işe yaramaz,
anladığım kadarıyla yapmaya çalıştığınız form2yi actığınızda for1 deki kimlik1 değerini form2deki kimlik1 değerine atamak
eğer öyleyse kodu aşağıdaki gibi duzenleyebilirsiniz

DoCmd.OpenForm "Form2", acNormal, , "[Kimlik1]=" & Me.Kimlik1.Value

Forms![Form2]![Kimlik1] = Me.Kimlik1

ilk örnek ve son örnek için OpenArgs yöntemi kullanılabilir.

ilk örnek için.
Form1 için

Private Sub Komut14_Click()

DoCmd.OpenForm "Form2", acNormal, "[Kimlik1]=" & Me.Kimlik1.Value, , , , Me.Kimlik1.Value

End Sub

Form2 nin Load ınada alttaki kod ekleyip deneyin.Tabii  OpenArgs boşsa gibi şartlarda eklenebilir.

Private Sub Form_Load()

    Me.Kimlik1.Value = Me.OpenArgs

End Sub

Evet çok teşekkürler..