call elinesaglikharun
Option Compare Database
Function elinesaglikharun() As String
Dim yazan, ceviren, ilkdeneyen, cevap As String
yazan= Serge Gavrilov
ceviren= tdsHarun
ilkdeneyen = mehmetdemiral
msgbox yazan & " ," & ceviren &" , " & ilk deneyen
cevap = msgbox ("Mesajı Okumak ister misiniz?", vbyesNo, "mehmetdemiral")
if cevap= 6 then
msgbox "Helal Olsun Harun. Ellerine sağlık. Çok İyi olmuş. Rusçanı da geliştirirsin bu arada
))"else
msgbox "Şimdi çok ayıp ettiniz. Aha da kapanıyom"
docmd.Quit
end if
End Function
