AccessTr.neT

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

sayın dayko,

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.

atoz112 hocam emeğine sağlık kod oldu tşkler