combobx a sırayla numara yazma

[burhancavus61]

combobx içerisine sırayla numara yazmak istiyorum
örneğin 1-2-3-4 gibi
ama 1-2-3- ten sonra 7 yazmasını nasıl engellerim

combobox içeriği boşsa 1 den başlayacak ve artarak sıra numarası vereceğim amacım boş numara atlamasını engellemek

 

[Ömer]

Merhaba,

Sorunuz anlaşılmıyor. Daha detaylı açıklama yapar mısınız.

 

[burhancavus61]

haklısınız konuyu eksik anlattım ve kodları eklemeyi atladım hocam

aşağıdaki kodlarla combobox a veri çekiyorum ve gelen veriler sıralı
benim amacım gelen sıralı verilerin dışında rakam yazdığımda en fazla rakamın 1 fazlasını yazmak.
combobox ta gelen veriler 1-2-3-4 gibiyse ben en fazla 5 yazabilmeliyim. combobox ile hem veri çağırıyorum hem veri kaydediyorum
eğer comboboxta veri yoksa kayda 1 den başlamam gerek. amacım rakamların sıralı saklanması

Private Sub ComboBox10_DropButtonClick()
Dim Baglan As New Connection
Dim rs As New Recordset

Baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\Administrator\Desktop\A_F_Fark\master.accdb;"
sorgu = "select distinct hakedisno from hakedis where iknno='" & Me.ComboBox2.Text & "'"
rs.Open sorgu, Baglan, adOpenKeyset, adLockPessimistic

With AnaForm.ComboBox10
.Column = rs.GetRows
End With

rs.Close
Baglan.Close
End Sub