bir çok değişiklik yapmak zorunda kaldım
dilerim işinize yarar
1 - aşağıdaki kodlar formdaki firma ve kullanıcı adını form kapanmadan önce değişkene atamak için

'hy Deneme_____________________________________

Dim tmpAFirma, TmpKullaniciNick

    TmpKullaniciNick = Me.TxKullaniciAdi

    tmpAFirma = Me.TxFirma

'hy Deneme_____________________________________

2 - PTSdeki formu argümanlı açmak için

    .DoCmd.OpenForm "FrmAna", acNormal, , , , , TmpKullaniciNick & ";" & tmpAFirma

3 - PTSdeki formun açılış olayı

Private Sub Form_Load()



If Len(OpenArgs) > 0 Then

    KullaniciKim = Split(OpenArgs, ";")(0)

    FirmaKim = Split(OpenArgs, ";")(1)

End If

 AktifKullanici

 AktifFirma



End Sub

ayrıca formdaki Metin113 değerini de değiştirdim diğer metin kutusu için benzer şeyi siz de yaparsınız

=DLookUp("ErpFirma";"TblKullanici";"Kimlik=" & AktifKullanici())