Soru Accses veri tabanındaki sütunu toplu güncellemek

[Bilgemen]

Merhaba Arkadaşlar.
Excel User form üzerinden Accses veri tabanımdaki GercekStok isimli Tabloda Durum isimli sütuna Dolu olan satır sayısı kadar <Bekliyor> Nasıl yazdırabilirm.

İki adet yöndem denedim fakat çalıştıramadım.
Denediğim yöntemler ve Örnek dosya ektedir.

Sub DAOUpdating() '' 1. Denenen Kod
' Kayıt Güncelleme
On Error GoTo Handler
Dim str As String
Dim rs As adodb.Recordset
'Dim rs As DAO.Recorset
 
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call baglanti
'rs.Open "select * from [GercekStok]", baglan, 1, 3
'rs.AddNew
 

 

str = "GercekStok"
Set rs = CurrentDb.OpenRecordset(str)

With rs
If .RecordCount <> 0 Then

    If .Updatable Then
        .Edit
        .Fields!durum = "Bekliyor"
        .Update
   End If
End If
.Close
End With

ExitSub:
Set rs = Nothing
Exit Sub
Handler:
Resume ExitSub
End Sub

2.deneen Kod

Sub DAOUpdatingDiger()

Dim str As String

 
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call baglanti
rs.Open "select * from [GercekStok]", baglan, 1, 3
'rs.Open "select * from GercekStok where Durum, baglan, 1, 2"

 
For i = 1 To rs.RecordCount
rs(durum) = "Bekliyor"
rs.MoveNext
Next

baglan.Close

Set rs = Nothing

End Sub

 

[tukayf]

Çok hakim olmamakla birlikte. Sürekli bekleyenleri çekecekseniz sorgu oluşturduktan sonra Excel e alıp yazdırsanız çözüm olur mu?