Do-while döngüsü / dbase de arama yapmak (vb)

[velociraptor]

Bir koşul doğru olduğu sürece bildirinin devam etmesini sağlar. Örneğin, formumuza bir buton ekleyelim ve şu kodu yapıştıralım

Kod: Tümünü seç

Private Sub Command1_Click()
Dim ad As String
Dim boyut, tekrar As Integer
boyut = 12
tekrar = 0
ad = InputBox("Adınızı Yazın, Çıkmak için sordum.com yazınız")
Do While ad <> "sordum.com"
Form1.FontSize = boyut
Print ad
boyut = boyut + 1
If boyut = 20 Then
Exit Do
End If
ad = InputBox("Adınızı Yazın, Çıkmak için sordum.com yazınız")
Loop

Inputbox'a sordum.com kelimesi girilmediği zaman inputbox a yazılan kelimeforma yazılıyor. her yanlış yazımda font 1 artıyor font 20 oluncaprogram kapanıyor.

ek bilgi: şifre işlemlerinde de kullanılabilir. dbase e kaydedilenşifre doğru girilmediği sürece formun işlme yapması engellenir. onuniçin

Do While ad <> "sordum.com" olan satır

Do While ad <> Data1.Recordset.ad şeklinde değiştirilir

ALINTIDIR