Listede Bulunmayanları Tespit Etme

[saslan33]

Arkadaşlar Kolay Gelsin
Ekte Basit Bir Örnek Gönderdim Bana Yardımcı Olursanız Sevinirim

 

[adnanyurdakul]

Selam

Sayın Saslan
Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset
Dim sql As String
Dim sql1 As String
Dim i, k, l As Integer
l = 1
Set db = CurrentDb
Set rs1 = db.OpenRecordset("SELECT form5 FROM tablonunAdı GROUP BY form5 ORDER BY int(form5)")'form5 alan adıdıdr kendi alan adın ile değiştir bendeki form5 alanı metin idi senin lanın satı ise int ve cint ifadeleri kaldırın
Set rs = db.OpenRecordset("SELECT Min(cint(form5)) AS EnAz, Max(cint(form5)) AS encok FROM tablonunAdı ORDER BY Max(cint(form5))")
If Int(rs!enaz) > 1 Then
Etiket97 = 1
Exit Sub
End If
Dim s() As String
ReDim s(0)

For i = 1 To Int(rs!Encok)
If Int(rs1!Form5) = l Then
l = l + 1
rs1.MoveNext
Else
l = l + 1
s(UBound(s)) = l - 1
ReDim Preserve s(UBound(s) + 1)

End If
Next
'Metin6 = Join(s, ",")
Etiket97.Visible = True
Etiket97.Caption = Join(s, ",") & " " & "Numaralarından Birini FORM5 Numarası Olarak Verebilirsin" 'etikete yazdırıyoruz
rs.Close
rs1.Close
db.Close

 

[saslan33]

Sayın Yurdakul örnek özerine uygulayabilirseniz çok sevinirim

 

[adnanyurdakul]

iyi çalışmalar

örnek ekte olmayan numaraları bul düğmesi

 

[saslan33]

Teşekkürler

 

[adnanyurdakul]

sayın saslan kendi tablonuz ve formunuz ile istediğinize uygun çözüm ekte kolaylıklar diliyorum