+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Dersleri (https://accesstr.net/forum-access-dersleri.html)
+--- Konu Başlığı: msgbox'ın çok yönlü kullanımı (/konu-msgbox-in-cok-yonlu-kullanimi.html)
Sayfalar:
1
2
msgbox'ın çok yönlü kullanımı - mehmetdemiral - 09/12/2008
Arkadaşlar,
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.
Cvp: msgbox'ın çok yönlü kullanımı - Puletin - 09/12/2008
Private Sub onay1_Click()
If onay1 = -1 Then
Me.Metin4 = CLng(Nz(Metin0)) + CLng(Nz(Metin2))
MsgBox "TOPLAM...*" _
& [Metin4] & " *DIR* " _
& vbCr & vbCr & " DOĞRUMUDUR...", vbInformation, "..***..DİKKAT..***.."
Else
Me.Metin4.Value = Null
MsgBox "TOPLAM ALANI...*" _
& [Metin4] & " *BOŞ* " _
& vbCr & vbCr & " DOĞRUMUDUR...", vbInformation, "..***..DİKKAT..***.."
End If
End Sub
Bu Kod İş görürmü ? Yoksa Yanlış mı anladım acaba ?
Cvp: msgbox'ın çok yönlü kullanımı - mehmetdemiral - 09/12/2008
Ne yaptın Puletin ya
)) Çok basit bir soruydu ve sadece tek bir satırı yukardaki koda ekleyip değişkenin msgbox ile gösterilmesini sağlayacaktın)
Cvp: msgbox'ın çok yönlü kullanımı - Puletin - 10/12/2008
Dağıttım herhalde hocam...
if onay1 = -1 then
memo= "naber"
MsgBox memo
else
end if
Soruyu anlamak çözmenin yarısıymış, bunu bir kez daha kanıtlamış oldum herhalde hocam.....
Cvp: msgbox'ın çok yönlü kullanımı - mehmetdemiral - 10/12/2008
)) Evet .. Cevap böyleydi. Sen ne anlamıştın ki)
Cvp: msgbox'ın çok yönlü kullanımı - alwinn - 19/03/2009
sayin mehmet demiral..biraz vb6 programi gormuslugum var benim merak ettigim accessde yazilan vb kodlari hangi versiyonunkilerdir? mesela ben 2003 Access kullaniyorum bunda hangi vb versiyonu kullanilabilinir?