25-09-2019, 14:03
2 yerde kodlara "krt" eklemeniz gerekiyor
1 - alan1_AfterUpdate olayına
2 - Guncelleme olayına
Not: " If sayac <= 24 Then " kullanmanıza gerek yok zaten sayacınız 24'te bitiyor yani her koşulda doğru
1 - alan1_AfterUpdate olayına
Visual Basic
- Private Sub alan1_AfterUpdate()
- Dim sayac As Long
- For sayac = 1 To 24
- Me.Controls("TXT" & sayac) = DLookup("[krt" & sayac & "]", "[tbl_kriter]", "[Alanlar]='" & Me.alan1 & "'")
- Next sayac
- End Sub
2 - Guncelleme olayına
Visual Basic
- Sub Guncelleme(Sutun As Long)
- CurrentDb.Execute "UPDATE tbl_kriter SET [krt" & Sutun & "]='" & Me.Controls("TXT" & Sutun) & "' WHERE ((([Alanlar])='" & Me.alan1 & "'))"
- Call alan1_AfterUpdate
- End Sub
Not: " If sayac <= 24 Then " kullanmanıza gerek yok zaten sayacınız 24'te bitiyor yani her koşulda doğru