Merhabalar
Listeden isim seçip Yeni izine tıkla ve bu kodu tıkladığın butona ekle


Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "F_IZINYENI"

stLinkCriteria = "[IZINID]=" & Me![LSTIZIN]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "F_IZINYENI"

stLinkCriteria = "[IZINID]=" & Me![LSTIZIN]
DoCmd.OpenForm stDocName, , , stLinkCriteria