Bilgemen
Altın Üye
- Katılım
- 7 Şubat 2021
- Mesajlar
- 54
- Excel Vers. ve Dili
- 2021
- Altın Üyelik Bitiş Tarihi
- 03-01-2026
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.
2.deneen Kod
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.
Kod:
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
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
Ekli dosyalar
-
171.9 KB Görüntüleme: 1