Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
02/11/2009 16:11
Konu Sahibi
HAKKI34
Yorumlar
10
Okunma
2971
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

HAKKI34

Aktif Üye
Aktif Üye
HA.... KA....
 48
 77
 10
 22/01/2009
0
 İstanbul
 
 Ofis 2010
 26/03/2015,10:14
Çözüldü 
Ekteki örnekte iki formu sil yapınca 2. table deki verileri silmiyor..
Yardımcı olursanız sevinirim.. Sil olayında neden 1 tablo silinirken 2. deki silinmiyor...

Şimdiden tşk ediyorum


Forum çoğunlu office 2003 kullanır o yüzden dönüştürüldü. Forum kurallarımızı okuyan herkes de örneklerini önce sıkıştır onar yaparak ( ki sizin örneğinizde 1/3 küçüldü) sonra da sıkıştırarak ekler ( ki sizin örneğinizde 1/40 küçüldü)


Ek Dosyalar
.rar   Bilgisayarci.rar(Dosya Boyutu: 15,73 KB / İndirme Sayısı: 10)

Kullanici Avatari

ayhan2122

accesstr.net , gayet net ;)
Uzman
 41
 681
 26
 30/10/2008
451
 -
 
 Ofis 2003
 26/07/2018,20:20
Çözüldü 
Komut8'in olay yordamına ;

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Komut8_Click()
On Error GoTo Err_Komut25_Click

If MsgBox("Ekrandaki tüm bilgiler silinecek", vbYesNo, "Onaylıyor musunuz ?") = vbYes Then
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.RunSQL "DELETE Tablo2.Kimlik, Tablo2.[No] FROM Tablo2 WHERE (((Tablo2.[No])=[Forms]![Veri]![No]));"
Else
End If

Exit_Komut25_Click:
    Exit Sub

Err_Komut25_Click:
    MsgBox Err.Description
    Resume Exit_Komut25_Click
End Sub


Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.

Kullanici Avatari

HAKKI34

Aktif Üye
Aktif Üye
HA.... KA....
 48
 77
 10
 22/01/2009
0
 İstanbul
 
 Ofis 2010
 26/03/2015,10:14
Çözüldü 
(02/11/2009 16:26)ayhan2122 Adlı Kullanıcıdan Alıntı: Komut8'in olay yordamına ;

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Komut8_Click()
On Error GoTo Err_Komut25_Click

If MsgBox("Ekrandaki tüm bilgiler silinecek", vbYesNo, "Onaylıyor musunuz ?") = vbYes Then
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.RunSQL "DELETE Tablo2.Kimlik, Tablo2.[No] FROM Tablo2 WHERE (((Tablo2.[No])=[Forms]![Veri]![No]));"
Else
End If

Exit_Komut25_Click:
    Exit Sub

Err_Komut25_Click:
    MsgBox Err.Description
    Resume Exit_Komut25_Click
End Sub


Veriyi sıkıştırmadığım için özür dilerim..Bu örnek çalışmadı malesef..1 tablo bilgileri silinirken 2. tablo silinmedi...
Yukarıdaki örneğin çözümününü yaparsanız çok memnun olacağım..
Silme işlemi malesef 1 tablo verilerine de işlerken 2. Tabloda verileri kalıyor..
İlişkilerde her hangi bir sorun yok...Tek sorun silme işleminde neden 2. tablo verilerini silmiyor....Şimdiden tşkler..Acaba silme tersten mi işletilmeli..?
Walla oldu...Tersten düşünmek gerekiyormuş..
Img-grin)

Private Sub Komut8_Click()
On Error GoTo Err_Komut8_Click

If MsgBox("Ekrandaki tüm bilgiler silinecek", vbYesNo, "Onaylıyor musunuz ?") = vbYes Then

DoCmd.RunSQL "DELETE Tablo2.Kimlik, Tablo2.[No] FROM Tablo2 WHERE (((Tablo2.[No])=[Forms]![Veri]![No]));"
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
Else
End If

Exit_Komut8_Click:
Exit Sub

Err_Komut8_Click:
MsgBox Err.Description
Resume Exit_Komut8_Click
End Sub



Kullanici Avatari

Taruz

Aktif Üye
Aktif Üye
 Belirtilmemiş
 104
 4
 04/10/2009
20
 Belirtilmemiş
 
 Belirtilmemiş
 10/06/2014,13:15
Çözüldü 
Merhaba..

Ayhan Bey'in eklediği silme sorgusunu şart satırından sonra ilk başa alınız..

Kod:
............
DoCmd.RunSQL ............
DoCmd.RunCommand .......
DoCmd.RunCommand ..........


Aslında tüm bunlara gerek de yok bence.. İlişkiler penceresinden iki tablo arasındaki bağı tüm seçenekleri işaretleyerek yaparsanız tablo1 deki veri silindiğinde (ya da güncellendiğinde) zaten diğer tablodaki bağlı kayıtlar da silinecektir..



Kullanici Avatari

HAKKI34

Aktif Üye
Aktif Üye
HA.... KA....
 48
 77
 10
 22/01/2009
0
 İstanbul
 
 Ofis 2010
 26/03/2015,10:14
Çözüldü 
Slm.
Bu konuyu örneğim üzerinde yaparsanız çok memnun olurum..
Benim için çok önemli...
Şimdiden tşk ederim..



Kullanici Avatari

mehmetdemiral

.
Uzman
ME.... DE....
 53
 4.890
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 18/09/2018,22:27
Çözüldü 
İstediğiniz örnek ekte. İlk gönderdiğiniz örnek üzerinde sadece tablo ilişkilerini düzenledim.


Ek Dosyalar
.rar   Bilgisayarci .rar(Dosya Boyutu: 18,29 KB / İndirme Sayısı: 17)
İnadına, ille de Accesstr.net...


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Personel İzin Formu suleymanteber 5 3.244 31/08/2018, 14:04
Son Yorum: serdarasu
Çözüldü Word Şablonunda Satır Silme bibib 11 333 03/08/2018, 09:25
Son Yorum: ozanakkaya
Çözüldü Bir Formu Kapatırken Diğer Formun Aynı Anda Açılması mmert06 17 435 11/07/2018, 18:00
Son Yorum: mmert06
Çözüldü Açılan Kutudan Seçim Yapılarak Formu Pasif Yapma. fascioğlu 9 347 04/07/2018, 10:36
Son Yorum: ozanakkaya
Çözüldü Formda Silinecek Veri Yokken Butona Basıldığında Silme Uyarısının Ekrana Gelmesi mmert06 2 186 01/07/2018, 23:55
Son Yorum: mmert06

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