(29/08/2018, 14:00)ozanakkaya yazdı:

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]))) HAVING (((Kimlik1) = " & Me.Kimlik1 & ")) 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, '" & GSonVeri & "', ALAN2 FROM Tablo2 GROUP BY Kimlik1, '" & GSonVeri & "', ALAN2, Kimlik2, Val(Mid([revizyon],2,Len([revizyon]))), revizyon HAVING (((Kimlik1)=" & Me.Kimlik1 & ") AND (([revizyon])='" & "R" & GSonSayi & "')) ORDER BY Kimlik2, '" & GSonSayi & "' DESC;"



DoCmd.SetWarnings True



Me.Tablo2_alt_formu.Requery



rstRecords.Close



db.Close



Set rstRecords = Nothing

Set db = Nothing

Tamamdır Ozan Bey,

Oldu. Teşekkürler.