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
Revizyonlu Kopyala Yapıştır Uygulaması
Bu Konudaki Yorumlar |
Revizyonlu Kopyala Yapıştır Uygulaması - Yazar: notrino - 27/08/2018, 21:32
Cvp: Revizyonlu Kopyala Yapıştır Uygulaması - Yazar: ozanakkaya - 28/08/2018, 19:49
Cvp: Revizyonlu Kopyala Yapıştır Uygulaması - Yazar: notrino - 28/08/2018, 20:01
Cvp: Revizyonlu Kopyala Yapıştır Uygulaması - Yazar: ozanakkaya - 29/08/2018, 10:53
Cvp: Revizyonlu Kopyala Yapıştır Uygulaması - Yazar: notrino - 29/08/2018, 11:20
Cvp: Revizyonlu Kopyala Yapıştır Uygulaması - Yazar: ozanakkaya - 29/08/2018, 11:56
Cvp: Revizyonlu Kopyala Yapıştır Uygulaması - Yazar: notrino - 29/08/2018, 12:18
Cvp: Revizyonlu Kopyala Yapıştır Uygulaması - Yazar: ozanakkaya - 29/08/2018, 14:00
Cvp: Revizyonlu Kopyala Yapıştır Uygulaması - Yazar: notrino - 29/08/2018, 15:01
|
Konuyu Okuyanlar: 1 Ziyaretçi