(29/05/2023, 17:17)mehmetdemiral yazdı:

(24/05/2023, 17:17)prestij06 yazdı: Merhaba arkadaşlar. Ekteki projede Klasör No yazan yer şahıs sayısına göre otomatik sayı veriyor. Önce sırayla daha sonra hangi sayıda az şahıs varsa ona göre otomatik sayı veriyor. Ben bunu 10'a kadar versin şeklinde sınırladım. Yani 10 dan sonra tekrar 1'den başlıyor. Değiştirilmesi için sağ alt köşeye Klasör No butonu koydum ama kod bölümüne girmeden sınırı değiştiremiyorum. Klasör No butonuna basıp belirlediğimiz bir sayıya kadar sınır koymak istiyorum. Örneğin Klasör no tuşuna basınca açılan kutuya 5 yazalım. Otomatik sayı 5 e geldikten sonra yeni kayıt tekrar 1 den başlasın. Yardımcı olursanız sevinirim. Teşekkürler.

Her durumda, o alana tıklasam da Klasör no butonuna bassam da hata dönüyor. Tam olarak ne hyapmak istediğinizi anlayamadım. Tane tane aşama aşama işleyişi anlatır mısınız?

hocam kısacası aşağıda yazdığım kodda "For guncelle = 1 To 5" kısmındaki 5 sayısını Klasör No butonuna basarak istediğim sayıyla değiştirmek istiyorum. O sayıyı güncellemek için kodun içine girmeden buton yardımıyla değişsin. Yardımcı olursanız sevinirim.

Dim x As Integer

For guncelle = 1 To 5
If DCount("*", "[denetim]", "isnull([bitisnedeni]) and [klasorno]=" & guncelle) = 0 Then
If IsNull(klasorno) Then klasorno = guncelle
Exit Sub
End If
Next
If IsNull(klasorno) Then klasorno = Dlookup ("[klasorno]", "[SqlEnDusuk]")