tablomdaki kayıtları gruplandırmak istiyorum

[buyuke]

Herkese Merhaba,
dün de sorduğum bir soru vardı ama pek anlaşılır yazamamışım sanırım. O yüzden tekrar yazmaya karar verdim.
Elimde bir tablo var, grup alanı aslında boş. Benim amacım tablomdaki kayıtları,ileride yapacağım sorgularda kullanmak üzere gruplamak. Bunun için grup alanını ilk kayıdıma 1, ikinci kayıdıma 2, üçüncü kayıdıma tekrar 1 ve bu şekilde devam ederek yapmak istiyorum.

Ancak nasıl yapabileceğimi bir türlü bulamadım. Örnek tablomuda ekte yolluyorum.
Herkese yardımları için teşekkür ederim.

NUM_PRA anti salssr tmb risk grup
20004058110411 3377,19 461,92 5 RR 1
20004001491514 2735,93 239,1 5 RR 2
20003159880714 2590,12 270,87 5 RR 1
20000828621513 2491,29 166,05 5 RR 2
20003948704112 2467,28 182,62 5 RR 1
20002585369112 2022,69 506,4 5 RR
20003819538911 1944,4 294 5 RR
20002731325012 1801,38 139,65 5 RR
20003819432212 1750,04 349,48 5 RR

 

[modalı]

Sayın buyuke,

Aşağıdaki kodları çalıştırırsanız istediğiniz gerçekleşecek sanırım.

Private Sub Komut0_Click()
  Dim cnn As ADODB.Connection
  Dim rst1 As New ADODB.Recordset
  Dim strSQLStart As String
  Dim kayıt As Long
  Dim x As Integer
  
  Set cnn = CurrentProject.Connection
  
  rst1.Open "tbl_sms", cnn, adOpenKeyset, adLockOptimistic
  
  
  kayıt = rst1.RecordCount
  
  
  For x = 1 To kayıt
    Dim rst2 As New ADODB.Recordset
   
    If (Int(x / 2)) * 2 = x Then
        rst1("grup") = 2
      
    Else
        rst1("grup") = 1
    End If
    rst1.MoveNext
 Next x
    Set rst1 = Nothing
    Set cnn = Nothing
    
End Sub

İyi çalışmalar

 

[buyuke]

çalıştıramadım

Yazdığınız kodu module ekledim .ama nasıl çalıştıracağımı bilmiyorum..
Yardımcı olabilirmisiniz
İlginiz için Teşekkürler

 

[modalı]

Sayın buyuke,

İstediğiniz uygulamayı ekledim.

İyi çalışmalar