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 SubKod:
stDocName = "AYDIN_" & "" & accesstrnet