call Teşekkürler Harun ve Mehmet Hocam
Option Compare Database

Function elinesaglikharun() As String
Dim yazan, ceviren, ilkdeneyen, mehmetdemiral cevap As String
yazan= Serge Gavrilov
ceviren= tdsHarun
ilkdeneyen = Mehmet abi
msgbox yazan & "," & ceviren &" , " & ilk deneyen ‘bu notu yazan emturker
cevap = msgbox ("Mesaja karşılık verildi?", vbyesNo, "emturker")
if cevap= 6 then
msgbox "Helal Olsun Harun ve Mehmet abi Ellerinize sağlık. Çok İyi olmuş.))"
else
msgbox "Tekrar Özür"
docmd.Quit
end if

End Function

ortalık şenlenmiş, hepinizin eline sağlık.

Compile error
ikisi de

Arkadaşlar ben denedim, Form ve Raporların tasarım halini aynen alıyor ama tek bir harf kod alamıyor. Yani asıl emek sarfedilen kısım halen güvende. Ama piyasadaki diğer kırıcıların kodları alıp alamadığını bilmiyorum. Daha doğrusu hiç denemedim.

paylaşım için teşekkürler hocam

Emeğinize sağlık