AccessTr.neT

Tam Versiyon: Form üzerinden çeşitli formlar açmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayın arkadaşlar form üzerinde formdaki verilerle eşleşen ilgili formu açmak ve burada yapılacak tahsis işlmeminden sonra ilgili alanları tekrar bu forma aktarılması konusunda yardımcı olursanız sevinirim.

Ayrıntılar ekteki örnek programda var.
Sert No Tahsis Butonuna aşağıdaki kodu yaz.


Kod:
Private Sub Komut23_Click()
On Error GoTo Err_Komut23_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim accesstrnet As String
    
    accesstrnet = Left([KULLANICI_KODU], 1)
    
    stDocName = "AYDIN_" & "" & accesstrnet
    stLinkCriteria = "[k_kodu]=" & "'" & Me![KULLANICI KODU] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Komut23_Click:
    Exit Sub

Err_Komut23_Click:
    MsgBox Err.Description
    Resume Exit_Komut23_Click
    
End Sub

koddaki accesstrnet ile KULLANICI_KODU'ndaki TTT'yi T olarak alıp
Kod:
stDocName = "AYDIN_" & "" & accesstrnet
kodu ile AYDIN_T formunu açtırır.
Sayın umuttk
4 günden beri sorunuzla ilgili bir yanıt yazmadığınız için size uyarı puanı veriyorum. Ayrıca sorunuz cevaplanmış konulara taşındı.