Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

VBA if örneği

ali_polat
ali_polat
Access Cevaplanmış Soruları
8
3351

VBA if örneği

Çözüldü #1
ali_polat
Üye
ali_polat
Bul
Üye
Adı Soyadı: Al.... Po....
Konum:
Ofis Versiyonu: Ofis 2010
Son Oturumu: 10/07/2015,10:45
Yorumları: 12
Konuları: 4
Kayıt Tarihi: 01/03/2015
Teşekkür Puanı: 0
Arkadaşlar merhaba,
Access üzerinde bir Vba yazdım. Ancak bir noktada tıkandım.

Kod:
Option Compare Database

Public Sub EditRecordSet()
Dim i As Integer
Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("deneme")
son = rs.RecordCount

For i = 1 To son - 1
If rs.Fields("isim") = "ali" Then

rs.Edit
rs.Fields("kontrol") = "1"
rs.Update

End If
Next i
rs.MoveNext
End Sub
Yukarıdaki kod içinde If rs.Fields("isim") = "ali" yerine;
If rs.Fields("isim") = bir önceki satırsa... demek istiyorum. Yani döngünün bulunduğu yerdeki değer, bir öncekine eşitse demek istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
VBA if örneği - Yazar: ali_polat - 02/03/2015, 01:45
Cvp: VBA if örneği - Yazar: alpeki99 - 02/03/2015, 09:04
Cvp: VBA if örneği - Yazar: ali_polat - 02/03/2015, 10:08
Cvp: VBA if örneği - Yazar: atoz112 - 02/03/2015, 13:18
Cvp: VBA if örneği - Yazar: ali_polat - 02/03/2015, 20:45
Cvp: VBA if örneği - Yazar: atoz112 - 03/03/2015, 16:43
Cvp: VBA if örneği - Yazar: ali_polat - 03/03/2015, 22:55
Cvp: VBA if örneği - Yazar: atoz112 - 03/03/2015, 23:06
Cvp: VBA if örneği - Yazar: ali_polat - 04/03/2015, 11:12
Task