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
Me.alan1 = GEskiAlan
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Tablo2 ( Kimlik1, revizyon, ALAN2 ) SELECT Kimlik1, 'R' & Val(Mid([revizyon],2,Len([revizyon])))+1 AS revizyo, ALAN2 FROM Tablo2 GROUP BY Kimlik2, Kimlik1, 'R' & Val(Mid([revizyon],2,Len([revizyon])))+1, ALAN2, Val(Mid([revizyon],2,Len([revizyon]))), revizyon HAVING (((revizyon) = '" & "R" & GSonSayi & "')) ORDER BY Kimlik2, Val(Mid([revizyon],2,Len([revizyon]))) DESC;"
DoCmd.SetWarnings True
Me.Tablo2_alt_formu.Requery
rstRecords.Close
db.Close
Set rstRecords = Nothing
Set db = Nothing
Kodları aşağıdaki ile değiştirerek deneyiniz