Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
27/08/2018 21:32
Konu Sahibi
notrino
Yorumlar
8
Okunma
538
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
notrino

notrino

Aktif Üye*
79958
 170
 602
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 27/01/2019,17:30
Merhaba Ozan Bey,

Evet bu şekilde çalışıyor. Ancak son cümlemde bahsetmiş olduğum "Ana formda yeni kayıt açma işlemini klasik gezinti düğmesi ile oluşturduğumda" ve verileri girdiğimde, butondaki kodlar yeni kayıt için çalışmıyor. Mesela Kimlik=2, Alan1=B yapın ve içine üç adet veri girin;

R0....fizik
R0....kimya
R0...biyoloji olsun.

Butona bastığınızda artık burada hiçbir değişiklik olmuyor. Yani herhangi bir kopyala yapıştır işlemi yok. Daha da kötüsü, butona her basış bir önceki kayıt için yani Kimlik=1, Alan1=A nın altındaki alt form için yeni kayıtlar oluşturmaya devam ediyor. Halbuki artık üst form, klasik gezinti düğmesi ile  artık yeni bir kayda geçti ve dolayısıyla onun altındaki alt form için bu kodlar çalışmalı, diğer eski kayıtlarla ilişiği kalmamalı. Yani her ana form yeni kaydı için (dolayısıyla alt form yeni kaydı için-(tablo ilişkisinden ötürü)), bu kodların eski kayıttaki verilerden bağımsız bir şekilde sadece seçili kayıt için işliyor olması gerekiyor. Bilmiyorum doğru izah edebildim mi...




ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
notrino

notrino

Aktif Üye*
79958
 170
 602
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 27/01/2019,17:30
(29/08/2018 14:00)ozanakkaya Adlı Kullanıcıdan Alıntı:

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Yapıştır Ve Filtrele serdem48 7 311 30/04/2019, 16:45
Son Yorum: halily
Çözüldü Veritabanı Uygulaması Açılmıyor mehmetbatili 4 231 23/04/2019, 20:29
Son Yorum: halily
Çözüldü Excel Kargo Takip Uygulamasi Yardim ecan81 2 461 04/02/2019, 10:46
Son Yorum: ecan81
Çözüldü Web'e Aktarma Uygulaması notrino 2 246 23/01/2019, 17:20
Son Yorum: notrino
Çözüldü Kopyala Yapıştır Bora34 8 518 07/01/2019, 17:03
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.