Private Sub Komut7_Click()
Dim sorgu, tablo As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
tablo = "Select * from OGRENCI"
rs.Open tablo, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Debug.Print sorgu
rs.MoveFirst
Do Until rs.EOF
sorgu = "UPDATE OGRENCI SET OGRENCI.GUZERGAH ='" & Me.Metin3 & "' , OGRENCI.PLAKA ='" & Me.Metin4 & "' , OGRENCI.SECIM ='" & Me.Metin19 & "' " & _
" WHERE OGRENCI.TC='" & rs.Fields("TC") & "'"
    If rs.Fields("SECIM") = True Then
        DoCmd.SetWarnings False
            Debug.Print sorgu
            CurrentDb.Execute sorgu
        DoCmd.SetWarnings True
    End If
   rs.MoveNext
Loop
Me.Requery
Me.OGRENCIONUR.Requery
End Sub

bu şekilde bir kodum var ama kod içine değişirmek istiyormusunuz evet ise değiştirsin hayır ise işlem yapmasın demek istiyorum ama baya bi denedim beceremedim ne yapabilirim acaba