[VBA] Formdaki Butona Kod atama
#1
Veri Girişi Form sayfasında bulunan Dergi tutar Aktar butonuna yazılan kodları ayrıştırmak istiyorum şöyleki. Butona bastığımızda hem dergi fiyatlarını hemde ödenen metin kutusuna yazılan değerleri aynı anda ÖDEMELER tablosuna atıyor. Öyle değilde şöyle olmasını istiyorum. Dergi Aktar Butonunda sadece dergi fiyatları, Kırmızı renkte olan Yapılan Ödeneme Aktar Butonunada yanında bulunan Ödenen metin kutusuna girilen değerleri Ödemeler tablosuna aktarsın. Ben çok uğraştım butondan ayırt edemedim. Saygılarımla



  Alıntı
Bu mesajı beğenenler:
#2
dosyanızı farklı kaydet kısmından 2002 ve 2003 formatında kaydedip tekrar yüklermisiniz..



  Alıntı
Bu mesajı beğenenler:
#3
Tamam tekrar gönderiyorum.



  Alıntı
Bu mesajı beğenenler:
#4
Şu Şekide Denermisiniz...
SQL
  1. Private Sub Dergi_Tutar_Aktar_Click()
  2. ON Error GOTO Dergi_Tutar_Aktar_Click_HataMesaj
  3. ON Error Resume NEXT
  4. IF (IsNull(Me.kisi_id)) THEN
  5. Beep
  6. MsgBox "kisi Seçili, Aktif Değil"
  7. Exit Sub
  8. END IF
  9.  
  10. Dim SQL AS String
  11. DoCmd.SetWarnings = FALSE
  12. SQL = "INSERT INTO ödemeler ([kisi_id], [Semerkand Tutarı], [Aile Tutarı], [Mostar Tutarı], [Tek Dergi Tutarı])" & _
  13. " values(" & Me.kisi_id & " , " & Me.semerkand_fiyatı.VALUE & " , " & Me.Aile_fiyatı.VALUE & " , " & Me.Mostar_fiyatı.VALUE & " , " & Me.Tek_Dergi_fiyatı.VALUE & ")"
  14. CurrentDb.EXECUTE SQL
  15. DoCmd.SetWarnings = TRUE
  16. Me.Requery
  17. '---Hata Kontrol---
  18. Str_Exit:
  19. Exit Sub
  20. Dergi_Tutar_Aktar_Click_HataMesaj:
  21. MsgBox "Hata oluştu" & Err.Number & " - " & Err.Description
  22. Resume Str_Exit
  23. End Sub





  Alıntı
Bu mesajı beğenenler:
#5
istediğniz kodları ayrıştırdım, her iki butona ayrı ayrı kod ekledim, ikiside sorunsuz çalışıyor. dosya ekte...


Eklenti Dosyaları
.rar   Dergi (2)_o_can.rar (Boyut: 73,83 KB / İndirilme: 71)



  Alıntı
Bu mesajı beğenenler:
#6
Sayın Onur_Can Hocam yapmış olduğunuz proğram benim istediğim gibi ama hata veriyor.
Şöyleki Dergi parasını kişiye bir kez girdiğimde ikinci kez tekrar borçlandıramıyorum. yani bir önceki kaydın aynısını değişik zamanda tekrar kayıt etmiyor.
Birde Ödeme yaptığında hata veriyor. Butona bastığımda ya 0 satır ekleniyor diyor, bazen 4 satır veya 10 satır birden ilave ediyor.
Yanlız dikkatimi çeken ödeme kısmına para miktarı girdiğimde Formun alt form kısmında bulunan ödeme sütununa kaç tane satır varsa hepsine aynı değer oluyor. Saygılarımla



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [RAPOR] Formdaki Aynı Rrsmı Baskı ön ızleme ıle Rapora Aktarma MHMTKY 2 415 11-09-2024, 13:09
Son Mesaj: dsezgin
  Ana Forma Bağlı Alt Formdaki Verilerin Ana Formda Toplamını Almak ozan028 5 496 09-09-2024, 17:14
Son Mesaj: ozan028
  Butona Tıklayınca Hücredeki Veri Görünsün ankaram 2 363 30-11-2023, 15:00
Son Mesaj: ankaram
  Kısayol atama işlemi nasıl yapılır? algoritma 24 16.028 21-06-2023, 09:14
Son Mesaj: ates2014
  Formdaki Veriyi Rapora Aktaramadım ankaram 2 394 18-02-2023, 21:51
Son Mesaj: ankaram
  Aktif Formdaki Raporu Yazdırma ankaram 3 442 27-01-2023, 00:46
Son Mesaj: BeyTor
  Alt Formdaki Alanların kursun 3 345 10-01-2023, 20:28
Son Mesaj: BeyTor
  Alt Formdaki Alanların Yazı Boyutunu Küçültme Nasıl Yapabiliriz? kursun 2 451 09-01-2023, 20:46
Son Mesaj: kursun

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):