AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

VBA if örneği

1 2
02/03/2015, 01:45

ali_polat

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.
02/03/2015, 09:04

alpeki99

Bir tablodaki kayıt ile diğer bir tablodaki kayıtları karşılaştırıp eşitlik durumunda güncelleme yapmaya mı çalışıyorsunuz?
02/03/2015, 10:08

ali_polat

(02/03/2015, 09:04)alpeki99 yazdı: Bir tablodaki kayıt ile diğer bir tablodaki kayıtları karşılaştırıp eşitlik durumunda güncelleme yapmaya mı çalışıyorsunuz?


Günaydın,
Döngünün bulunduğu yerdeki değeri döngü-1 ile karşılaştırmaya çalışıyorum.
Eğer eşitse kontrol isimli alana yazdırmak istiyorum.
02/03/2015, 13:18

atoz112

sayın ali_polat,


EK'te;
alternatif bir örnek olması adına,
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.
Sorgu1 adlı sorguyu inceleyebilirsiniz.bilginize.

iyi çalışmalar,
saygılar.
02/03/2015, 20:45

ali_polat

İlginiz için teşekkür ederim, oldukça faydalı oldu.
Aslında bunu makroyla yapmak istemiştim. O konuda bir öneriniz var mı?
03/03/2015, 16:43

atoz112

sayın ali_polat,


makro ile kast ettiğiniz eğer kod sayfasında oluşturmak anlamında ise,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

örnekte,form üzerindeki ad alanının Çıkıldığında Olay Yordamı içerisine bir değer girildikten sonra hemen akabinde kontrol alanına gerekli değerin aktarılması sağlanmıştır.

elbette ki,böyle her bir yeni kayıt sonrası yapılabileceği gibi,isteğinize göre bu komutlara bir döngü uygulayıp tüm kayıtların kontrol alanına sonuçları da yazdırabilirsiniz.

burada uygulanmak istenen amaç;sadece,her yeni kayıtta sonucun aldığı değerin gösterilmesi içindir.bilginize.

iyi çalışmalar,
saygılar.
1 2