Skip to main content

AccessTr.neT


Revizyonlu Kopyala Yapıştır Uygulaması

Revizyonlu Kopyala Yapıştır Uygulaması

#6
Kodları aşağıdaki ile değiştirerek deneyiniz

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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Revizyonlu Kopyala Yapıştır Uygulaması - Yazar: ozanakkaya - 29/08/2018, 11:56