Hepimiz bir şekilde mesaj kutularını kullanıyoruz. Ama genelde hep bu kutuları kullanıcıyı uyarmak veya bazı değerleri ekrana çıkartmak için kullanıyoruz. Oysa ben bu derste sizlere msgbox'ın programcılar tarafından çok kullanılan ve bilinen, ama access'cilerin çok bilmediği ya da kullanmadığı bir kullanımını anlatacağım. O da yol göstericilik özelliği...
Diyelim ki bir program hazırladınız ve programda bir onay kutusu var. Onay kutusuna basıldığında bir eylem yapılacak. Mesela a ile b toplanacak. Ama mesaj kutusu eylemini başka bir komut düğmesine yazacağımız için onclick eylemi olmayacak. Mesela;
if onay1 = 1 then
c = a + b
else
end if
Şimdi burada kodları yazdık. Onay1 1 durumunda iken diye yazdığıız için doğal olarak eylem çalışmayacaktır. Bu arada işin kilit noktası
if onay1 = 1 then
şartıdır. Burada bize onay1 onay kutusunun döndürdüğü değerden emin olmalıyız. İşte burada şöyle bir satır koyacağız
msgbox onay1
Böylece eylem gerçekleştiğinde onay1'in döndürdüğü değeri görebileceğiz. Meğer onay1 işaretli iken -1 değeri döndürüyormuş
) O halde hemen kodu düzeltmeliyiz.if onay1 = -1 then
c = a + b
else
end if
Aynı şekilde onay1'in işareti kaldırıldığında hangi değerin döndüğünü de görebiliriz. Tahmin edeceğiniz gibi o da 0(sıfır) olacaktır..
Yine değişkenlere değer atamada da ben bu yöntemi çok kullanırım. Diyelim bir değişken tanımladık ve bu değişkene bir eylem sonunda (yine bir if...then deyimi ile) değer atadık. (Bakalım atadık mı?) Ama işler bir türlü umduğumuz gibi olmuyor. Bir türlü şartlı eylem gerçekleşmiyor. Acaba nerde hata yaptık? diye düşündüğünüzde ilk iş hemen değişkeni msgbox'a okutmaktır.
dim memo as string (string özellikli memo adında bir değişken atadık)
if onay1 = -1 then
memo= "naber"
else
end if
şimdi acaba onay1 işaretlendiğinde memo adlı değişkene "naber" değeri atandı mı? Bunu nasıl anlayacağız?. Bunu da siz yanıtlayın...Nereye msgbox koyalım ve nasıl yazalım? Yanıtları buraya alalım...
Not: Lütfen modlar ve adminler yanıtlamasın.
