Ben de bundan sonra siteye yazdığım mesajları bile modül şeklinde yazacağım:
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
İnadına, ille de Accesstr.net...