Merhabalar. :hey:
İki tablo arasında aynı sütunları güncelleştirmek istedim. Güncelleştirme sorgusu güncelleştirilecek tabloda olupta diğer tabloda olmayan kayıtlara dokunmuyordu (diğer kayıtlardaki değerlerinde "0" olması gerekiyor)Bende bu işi vb ile yapmayı düşünüp yukarıdaki kodları yazdım ama bu seferde access ten çıkılmıyor kapattığım zaman boş access yeniden açılıyor ctrl+alt+del ile çıkabiliyorum. Acaba Srunu nerede veya bu işlemin daha kısa bir yolu yokmu ? İlginize şimdiden Teşekkürler. :dua:
Kod:
Dim VT As Database
Dim TEczane As Recordset
Dim PEczane As Recordset
Dim Sira, Miktar
Set VT = CurrentDb()
Set TEczane = VT.OpenRecordset("ECZANETUTAR")
Set PEczane = VT.OpenRecordset("PERSONEL")
PEczane.Index = "SNo"
TEczane.Index = "SNo"
PEczane.MoveFirst
TEczane.MoveFirst
Do Until PEczane.EOF
PEczane.Edit
PEczane!ECZANE = 0
PEczane.Update
PEczane.MoveNext
Loop
Do Until TEczane.EOF
PEczane.Seek "=", TEczane
Set PEczane = VT.OpenRecordset("PERSONEL")
Sira = TEczane!SNo
Miktar = TEczane!TUTAR
PEczane.Index = "SNo"
PEczane.GetRows (Sira)
PEczane.MovePrevious
PEczane.Edit
PEczane!ECZANE = Miktar
PEczane.Update
TEczane.MoveNext
Loop
VT.Close