bahsettiğiniz talebinize yönelik olarak;
Private Sub Komut7_Click()
If MsgBox("İslemi DEĞİŞTİRMEK istiyor musunuz?", vbYesNo, "GERİ ALMA UYARISI") = vbYes Then
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
Else
Me.Undo
Exit Sub
End If
End Sub
kod satırlarını deneyiniz.
gerektiği takdirde,
Site Kuralları gereği lütfen içeriğinde farazi gerçek dışı uydurma olacak halde ve sonuçları görebilmek adına da birkaç kayıt barındıracak halde örnek uygulamanızı dahil ediniz.
bilginize...iyi çalışmalar,saygılar.