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