Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] sekme denetimi ve buton iliskisi

[FORM] sekme denetimi ve buton iliskisi
moskovic
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 16.01.2010
Toplam 215 konu açtı.
Toplam 703 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 1
#1
23-04-2012, 20:46
MERHABALAR,
EKTE SUNMUS OLDUGUM ORNEKTE FRM_MAKBUZ ISIMLI FORMDA SEKME DENETIMINDE 2 ADET LISTE VAR (Liste33, Liste46)

YINE AYNI FORMDA SIL ISMINDE BUTON VAR BU BUTONA TIKLADIGIMIZDA LISTE33 DE SECILI OLAN KAYIT SILINIYOR.

AYNI BUTON ILE LISTE 46 DAKI SECILI VERIYI NASIL SILEBILIRIZ ?


Eklenti Dosyaları
.rar   Pilotvet.rar (Boyut: 717,05 KB / İndirilme: 81)



  Bul
  Alıntı
Bu mesajı beğenenler:
adnanyurdakul
Access Uzmanları

*
Kayıt Tarihi: 09.02.2009
Toplam 45 konu açtı.
Toplam 2.185 yorum yaptı.
Toplam 24 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 3
#2
23-04-2012, 21:22
sayın moskovic sil düğme komutunu aşağıdaki şekilde düzenleyin ve liste 46 için istediğiniz kodu yazın
Visual Basic
  1. Private Sub Komut35_Click()
  2. Select Case TabCtl43
  3.  
  4. Case 0
  5. 'liste46 için kodlarınızı buraya yazın
  6. Case 1
  7.  
  8.  
  9. Dim kriter
  10. kriter = Me.Liste33
  11. If MsgBox("Listede seçili olan MAKBUZ, Kayıtlardan " & "(" & Liste33.Column(2) & " " & Liste33.Column(4) & ") " & _
  12. "silinecek. Emin misiniz?", vbYesNo, "PILOTSOFT") = vbYes Then
  13. CurrentDb.Execute "delete from TBL_MAKBUZ where MAKBUZ_SIRA= " & kriter
  14. Me.Liste33.Requery
  15.  
  16. Me.Metin47 = ""
  17. Me.Metin47 = Nz(DSum("FIYAT", "SRG_MAKBUZ", "MAKBUZ_NO='" & [MAKBUZ_NO] & "'"), 0)
  18. End If
  19.  
  20. End Select
  21. End Sub


Teşekküre gerek yok, Taş atın yeter!!!



  Bul
  Alıntı
Bu mesajı beğenenler:
moskovic
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 16.01.2010
Toplam 215 konu açtı.
Toplam 703 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 1
#3
24-04-2012, 10:16
hocam yine ayni uygulamada son musteri sekmesine tikladigimda liste33 de yer alan fiyatlarin toplamini metin47 ye yazsin

hepsi sekmesine tiklandiginda liste46 da yer alan fiyatlarin toplamini metin 47 ye yazsin bunun icin soyle bir kod yazdim ama olmadi sorun nedir acaba ?

Visual Basic
  1. Select Case TabCtl43
  2.  
  3. Case 0
  4.  
  5. Me.Metin47 = ""
  6. Me.Metin47 = Nz(DSum("FIYAT", "SRG_MAKBUZ", "MAKBUZ_NO='" & [MAKBUZ_NO] & "'"), 0)
  7. End If
  8.  
  9. Case 1
  10.  
  11.  
  12. Me.Metin47 = ""
  13. Me.Metin47 = Nz(DSum("FIYAT", "SRG_MAKBUZ", "MAKBUZ_NO='" & [MAKBUZ_NO] & "'"), 0)
  14. End If
  15.  
  16.  
  17. End Select





  Bul
  Alıntı
Bu mesajı beğenenler:
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 56 / 56
#4
24-04-2012, 16:27
Merhaba..

Sekme değiştiğinde olayında bu şekilde kullanın..:

Visual Basic
  1. Private Sub TabCtl43_Change()
  2. Select Case TabCtl43
  3. Case 0
  4. Metin47 = Nz(DSum("FIYAT", "SRG_MAKBUZ", "MAKBUZ_NO='" & [MAKBUZ_NO] & "'"), 0)
  5. Case 1
  6. Metin47 = Nz(DSum("FIYAT", "SRG_MAKBUZ"), 0)
  7. End Select
  8. End Sub


Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Ana Form Ve Alt Formdaki Checkbox'lı Alanlardaki Verileri Buton Ile Null Yapmak. M_Kemal_Askeri 3 60 Dün, 03:57
Son Mesaj: dsezgin
  [FORM] Formla Alt Form Ilişkisi Pasham 6 542 30-05-2024, 13:57
Son Mesaj: Pasham
  Buton Adlarının Tablodan Gelmesi alikagan 17 1.710 29-10-2023, 01:09
Son Mesaj: dsezgin
access-sql-18 [VBA] Buton Ile Referans Ekleme BeyTor 2 422 18-09-2023, 03:17
Son Mesaj: BeyTor
  Buton Ve/veya Mouse Makro Yazımı Hk. adnnfrm 1 427 31-01-2023, 22:54
Son Mesaj: BeyTor
  [FORM] Tabloda Boş Alanlara Buton Ile Kayıt Ekleme SümeyyeK 8 707 09-12-2022, 11:11
Son Mesaj: SümeyyeK
  Buton Ile Kısayol Program çalıştırmak zorrosx5 2 518 10-05-2022, 02:58
Son Mesaj: zorrosx5
  Buton Ile Sorgu Tasarımınaki Ilgili Alana "yinelenenleri Bul " Komutu tarkanaykın 5 600 06-03-2022, 10:33
Son Mesaj: tarkanaykın

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi