Değerler yerine değişkenler tanımlayın. Tanımladığınız değişkene butona basarak değer gönderebilirsiniz. Bu değeri de anlık olarak değişkeni okutarak kodun içinde kullanabilirsiniz.

mesela a adında bir değişken tanımladık. Ve bunu da formun güncellendiğinde olayına yerleştirdik.

dim a as string

Form üzerinde deger adında bir metin kutusuna a değişken değerini gönderdik ki butona basınca oraya gönderilen dosya üst sınırı görülsün. Bunun için bir olay yordamı kullanbilirsiniz.

me.deger = a

şimdi de kodunuzu buna göre düzenleyelim


Dim x As Integer
For x = 1 To deger
If DCount("*", "[denetim]", "isnull([bitisnedeni]) and [klasorno]=" & x) = 0 Then
If IsNull(klasorno) Then klasorno = x

Exit Sub
End If
Next

If IsNull(klasorno) Then klasorno = Dlookup ("[klasorno]", "[SqlEnDusuk]")

Klasör üst sınırı tanımlama butonuna da şu kodları yerleştirin

Private Sub klasorgnc_btn_Click()
a = InputBox("Sayıyı Giriniz")
Me.deger = a
Me.deger.Requery
End Sub

burda görüldüğü gibi metin kutusunda görülsün diye a değişkenini metin kutusuna bu butondan gönderdim. Açılan pencereye yazdığınız değer a değişkenine atanır ve eğer doğru şekilde güncellendiyse formda da görülür.

Bu arada formun ilk açılışına deger= 5 olarak varsayılan değeri gönderdim. Böylece üst sınır ellenmezse 5 olarak çalışıyor.

Bu işlemi ben aynen denedim. Tek bir yeri yapamadım, zaman da kalmadı. Değerler diyelim 1 den 5 e kadar ilerledi. Sonra üst değeri değiştirip mesela 7 yazdığımda otomatik olarak 5 ten devam edip mevcut kaydın üstüne onu 7'ye tamamlıyor. Bu otomatik verilen sayıları elinizle düzeltebiliyorsunuz. Bu for döngüsünde bir hata var anlamına geliyor. Artık orayı da siz halledersiniz. Fikir vermesi açısından örneği de yüklüyorum. KOlay gelsin.