accessten sql cümlesi ile çekilen veri kümesi

[excellium]

access ten herhangibir sql cümlesi ile veri çağırdıktan sonra, for next döngüsü ile sütun taraması yaparken boş olan satıra geldiğinde hata veriyor.

yardımlarınızı belkiyorum.

örnek:

rs.open "select * from TABLO",1,3
rs.open
    for x = 1 to rs.recordcount
        cells(x+2,1)=rs("ad") 
    next
rs.close

herhangibir ad alanı boşsa hata veriyor.
boş alanları atlayacak bir yöntem var mıdır? ( on error resume next dışında)

 

[modalı]

Sayın excellium,

Bir de şu kodları deneyin:

Sub DataValid()
Dim dbExt As Database
Dim recExt As Recordset
Dim dbName As String
Dim verisay As Integer
Dim y As Integer
 
dbName = "Access uyglamasının adı"
Set dbExt = OpenDatabase(dbName)
Set recExt = dbExt.OpenRecordset("TABLO")
recExt.MoveLast
    verisay = recExt.RecordCount
recExt.MoveFirst
For y = 0 To verisay - 1
            
   
    
    cells(x+2,1)= recExt.Fields("Ad")
        
      
recExt.MoveNext
Next y
 Set recExt = Nothing
 Set dbExt = Nothing
End Sub

İyi çalışmalar

 

[excellium]

benim yazdığım koddan bi farkı yok gibi geldi ama deneyeceğim