Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

Dim GEskiKimlik As Integer

Dim GEskiAlan As String

Dim db As Database

Dim rs As DAO.Recordset

Dim rstRecords As Recordset



GEskiKimlik = Me.Kimlik1

GEskiAlan = Me.alan1



Set db = CurrentDb

Set rstRecords = CurrentDb.OpenRecordset("SELECT TOP 1 Kimlik1, revizyon, Val(Mid([revizyon],2,Len([revizyon]))) AS GSayi FROM Tablo2 GROUP BY Kimlik1, revizyon, Val(Mid([revizyon],2,Len([revizyon]))) ORDER BY Val(Mid([revizyon],2,Len([revizyon]))) DESC;")



rstRecords.MoveFirst



GSonSayi = rstRecords!GSayi

GSonVeri = "R" & GSonSayi + 1



DoCmd.GoToRecord , , acNewRec



Me.alan1 = GEskiAlan



DoCmd.RunCommand acCmdSaveRecord



DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO Tablo2 ( alan2, Kimlik1, revizyon ) SELECT Tablo2.alan2, " & Me.Kimlik1 & ", '" & GSonVeri & "' FROM Tablo2 WHERE (((Kimlik1)= " & GEskiKimlik & "));"

DoCmd.SetWarnings True





rstRecords.Close



db.Close



Set rstRecords = Nothing

Set db = Nothing