yalnız daha çalışmanızın en başında login olurken 2 hata veriyor
1 -

     KullaniciKim = Me.KullaniciNick

mesela yukarda KullaniciKim değeri sayısal değerken KullaniciNick değeri metinsel tür uyuşmazlığı oluyor
bu atamadaki amacınız ne?
2 - yine yukardaki kod Login formu kapandıktan sonra çalıştırılıyor oysa form kapandığı için KullaniciNick değerini atayamadığı için yine hata veriyor

1. olay bir amaç yok. kullanıcı ile ana form tek datbase de iken o şekil kullanıyordum ve sorun yok. fakat kullaniciları ayrı bir database yapmaya karar verdim. o yüzden orası o şekil kaldı.
2. sorunda olaya tam vakıf olmadığımızdan yaptığımız bir hata.

çalışmanızda login penceresi diğer VTdeki formu OpenArgs ile açabilir ama açıkçası buradan hangi değerler öbür VTye gönderilmeli, öbür tarafta bunun karşılığı ne olmalı anlayamadım

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

mesela yukardaki kod öbür çalışmadaki forma Nick ve Firma adını gönderir
öbür formun yüklenme olayına da bu verileri gerekli yere atamak kalır ama burdan hangi bilgiler gitmeli karşı taraf gelen bu bilgiyi nereye yönlendirmeli bulamadım
aşağıdaki kod diğer açmaya çalıştığınız PTS vt'sindeki formun yüklenme olayı
siz hangi değer nereye aktarılmalıysa ona göre yapabilirsiniz

Private Sub Form_Load()

Debug.Print Len(OpenArgs)

If Len(OpenArgs) > 0 Then

Debug.Print OpenArgs, Split(OpenArgs, ";")(0), Split(OpenArgs, ";")(1)

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

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

End If

 AktifKullanici

 AktifFirma

 'KullaniciKim = Me.TxKullaniciAdi

      'AktifKullanici

 'FirmaKim = Me.TxFirma

       'AktifFirma

  'DoCmd.Maximize

End Sub

ilginiz için teşekkürler.
var olan kodlar daha önce çalıştığım tek VT nında kullandığım kodlardı ve çalışıyorlardı. şimdi kullanıcı VT nını ayırdım ayrı bir VT yaptım. buradan giriş yapan kişiyi bts VT nına yönlendiriyorum bu yönlendirme ile berabe aktif kullanıcı ve firmayı da bts de açılan frmana üzerinde aktif firma ve kullananın adı yazsın istiyorum. burada gerek duyarsam raporlarda bu bilgileri kullanacağım.
- ayrıca giriş yapılan firma ve kullanıcıyı kullanıcılar vt ye kaydediyoruz. buradan bağlı tablo ile bts vt nına alsak oradan aktif olan kullanıcı yada firmayı bulduramazmıyız ? -

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())

[quote="berduş" pid="177264" dateline="1610657091"]

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

bunu yazdığımda hata olarak Girdiğiniz ifade kapalı veya silinmiş bir nesneye başvuruyor diye hata veriyor.