Koşula Bağlı Kayıt Güncelleme

Option Compare Database

Sub güncelle()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("veri")
k = 0
Do Until rst.EOF
rst.Edit
If rst("doğum_yeri").Value = "kiraz" Then rst("doğum_yeri").Value = "Karşıyaka"
rst.Update
rst.MoveNext
Loop
End Sub
-------------------------------------------------------------------
Option Compare Database

Sub güncelle()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("veri")
k = 0
Do Until rst.EOF
rst.Edit
rst("ad").Value = UCase(rst("ad").Value) 'uCASE bÜYÜK HARFLE YAZ LcASE KÜÇÜK HARFLE YAZ
rst.Update
rst.MoveNext
Loop
End Sub