AccessTr.neT
Vbyes Vb. Lerini Kullanmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vbyes Vb. Lerini Kullanmak (/konu-vbyes-vb-lerini-kullanmak.html)



Vbyes Vb. Lerini Kullanmak - accessman - 05/04/2020

iyi günler çok geç farkettiğim vb ile başlayan integer değerlerini her yerde kullanabilir miyiz
mesela mesaj da dönen sonucu
if sonuc = vbyes 
if sonuc= 6
if sonuc= 22 mod 8
if sonuc = vbCancel * vbAbort

veya
vbInformation = vbYesNo * vbCritical
vbExclamation = vbQuestion + vbAbortRetryIgnore *  vbRetryCancel + vbYes
olarak kullabilceğimiz hiç aklıma gelmemişti
mesela
for i = vbOKOnly to vbQuestion
      msgbox i
next
olarak hiç kullandınız mı


Cvp: Vbyes Vb. Lerini Kullanmak - ozanakkaya - 05/04/2020

(05/04/2020, 07:17)accessman yazdı: olarak kullabilceğimiz hiç aklıma gelmemişti


Siz bu bahsettiğiniz kodların çalışıp çalışmadığını denediniz mi?

for i = vbOKOnly to vbQuestion
      msgbox i
next

Kodunu denediniz mi acaba?


Cvp: Vbyes Vb. Lerini Kullanmak - accessman - 05/04/2020

Hiç denemedim ama kesin çalışır


Cvp: Vbyes Vb. Lerini Kullanmak - ozanakkaya - 05/04/2020

Çalışır, çalışır da 32 yerine vbQuestion yazmanız size ne kazandıracak, ne işinize yarayacak. vbQuestion sabit değerdir, bunun sayısal değeri 32,

for i = vbOKOnly to vbQuestion
      msgbox i
next

kodunu çalıştırırsanız vbOKOnly kodunun sayısal değeri 0 olduğu için 0'dan 32 ye kadar saydırırsınız.

vbExclamation kodunun sayısal değeri 48

vbExclamation = vbQuestion + vbAbortRetryIgnore * vbRetryCancel + vbYes


kodundaki eşittirin sağındaki hesaplamanın sonucu 48. vbExclamation = 99, vbAbortRetryIgnore = 888 şeklindeki kod ile sabite değer atayamazsınız. Bu şekilde hesaplama yaptırdınız diyelim, hesaplamanın sonucu ne işinize yarayacak, "Kesin çalışır" yazmışsınız. Kesin çalıştı. Ne işinize yarayacak????


Cvp: Vbyes Vb. Lerini Kullanmak - accessman - 05/04/2020

O hayal gücünüze göre değişir
Bunun ile olmazları olduracak değiliz elbet ama bir yerlerde belki birilerinin işine yarayabilir