Çözüldü Butonlara tıkladığımda Uyarı Mesajı alıyorum

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
S

sanalx

Bronz Üye
Kullanıcı Bilgileri
Katılım
26 Kas 2022
Mesajlar
118
Aldığı beğeni
15
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
Merhaba Arkadaşlar
Sizlerin de desteği ile program geliştirmeye devam ediyorum. yayında ve yapımda emeği geçen arkadaşlara ayrıca teşekkürlerimi sunuyorum..
geliştirmekte olduğum çek defterinde butonlara tıkladığımda ekteki uyarıyı alıyorum... yardımlarınızı bekliyorum..



Saygılar..
 

Ekli dosyalar

  • Çekler V4.0.xlsm
    136.8 KB · Gösterim: 8
  • hata.jpg
    hata.jpg
    279.7 KB · Gösterim: 12
Çözüm
Caylak
bu problem kodun geri kalanı hakkında, Yani yeni bir soru;
siz textbox ve comboboxlarınızın isimlerini değiştirmişsiniz, fakat kod içerisinde ilgili tbx ların adlarını yenileri ile değiştirmemişsiniz.
Hepsini tek tek düzeltmeniz gerekiyor.
örnek olarak aşağıdaki kodları inceleyin,
cekler sayfasının 2 den 11 e kadar olan sütunlarına;

cek.Cells(kac, 2) = CDate(TextBox13)
cek.Cells(kac, 3) = CDate(TextBox11)
cek.Cells(kac, 4) = CDate(TextBox11) - Date
cek.Cells(kac, 5) = TextBox8
cek.Cells(kac, 6) = TextBox7
cek.Cells(kac, 7) = TextBox10
cek.Cells(kac, 8) = TextBox9
cek.Cells(kac, 9) = ComboBox4
cek.Cells(kac, 10) = TextBox15
cek.Cells(kac, 11) = TextBox14
cek.Cells(kac, 12) = "*"

bu şekilde...
Tarihe göre sırala Oylara göre sırala
Caylak

Caylak

Destek Ekibi
Kullanıcı Bilgileri
Katılım
30 Kas 2022
Mesajlar
496
Çözümler
143
Aldığı beğeni
682
Excel Versiyonu
Office 2013 TR
Merhaba,
Private Sub CommandButton1_Click()
On Error Resume Next
sat = ListView1.SelectedItem.Index
If sat = Empty Then MsgBox "Güncellenecek çek bulunamadı." & vbCrLf & "Listeden bir kayıt seçiniz.", vbInformation, "Bilgi...": Exit Sub
If ComboBox4 = Empty Then GoTo 1
For i = 1 To 10
If Controls("TextBox" & i) = Empty Then GoTo 1
Next i
GoTo 2
1:
MsgBox "Tüm verileri eksiksiz ve doğru biçimde doldurunuz.", vbInformation, "Bilgi...": Exit Sub
Genişletmek için tıkla...

buradaki if ComboBox4=Empty yazanı if ComboBox4="" olarak değiştirip,

Private Sub CommandButton4_Click()

If ComboBox4 = Empty Then GoTo 1
For i = 1 To 10
If Controls("TextBox" & i) = Empty Then GoTo 1
Next i

GoTo 2
1:
MsgBox "Tüm verileri eksiksiz ve doğru biçimde doldurunuz.", vbInformation, "Bilgi...": Exit Sub
Genişletmek için tıkla...

aynı olayı burada da dener misiniz?
 
Olumlu oy 0 Negatif oyla
Caylak

Caylak

Destek Ekibi
Kullanıcı Bilgileri
Katılım
30 Kas 2022
Mesajlar
496
Çözümler
143
Aldığı beğeni
682
Excel Versiyonu
Office 2013 TR
sanalx' Alıntı:
Malesef olmadı.. aynı sorun devam ediyor
Genişletmek için tıkla...
empty yazanları "" olarak değiştirin, for döngüsünde de varmış, şimdi fark ettim.
Sorununuz basitçe şöyle;
Bir hata tanımlaması yapılmış kodlarınızda,
EĞER textboxlar ya da combobox4 boşsa bu hata mesajını ver denmiş,
Muhtemelen ya boş textbox bırakıyorsunuz, ya da Empty komutunu algılayamıyor (ki başıma gelmişti) bu nedenle hata satırına gidiyor.
Bunun yerine Empty kullanmayıp, ilgili yerlerdeki Empty kodunu "" ile değiştirmeyi deneyin
CommandButton1_Click ve CommandButton4_Click kodlarındaki ilgili satırları aşağıdaki ile değiştirip dener misiniz?
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
S

sanalx

Bronz Üye
Kullanıcı Bilgileri
Katılım
26 Kas 2022
Mesajlar
118
Aldığı beğeni
15
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
Empty yazan yerlerin tümünü mü değişeyim "" bu şekilde
 
Olumlu oy 0 Negatif oyla
S

sanalx

Bronz Üye
Kullanıcı Bilgileri
Katılım
26 Kas 2022
Mesajlar
118
Aldığı beğeni
15
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
Tümünüde değiştim olmadı acaba Null mu yapsak
 
Olumlu oy 0 Negatif oyla
Caylak

Caylak

Destek Ekibi
Kullanıcı Bilgileri
Katılım
30 Kas 2022
Mesajlar
496
Çözümler
143
Aldığı beğeni
682
Excel Versiyonu
Office 2013 TR
:D textbox isimlerini sonradan değiştirmişsiniz, şimdi fark ettim, Textbox1 yok, döngü 1 den 10 a kadar yazılmış, dolayısıyla boş duruyor.
ilgili satırları bu şekilde değiştirin, çalışacaktır.
For i = 7 To 16
If i = 12 Then GoTo gec:
If Controls("TextBox" & i).Value = "" Then GoTo 1
gec:
Next i
 
Olumlu oy 0 Negatif oyla
Caylak

Caylak

Destek Ekibi
Kullanıcı Bilgileri
Katılım
30 Kas 2022
Mesajlar
496
Çözümler
143
Aldığı beğeni
682
Excel Versiyonu
Office 2013 TR
Birinci mesajınızda paylaştığınız görselde yalnızca Frame6 içerisindeki Textbox ve combobox öğelerini doldurmuşsunuz. Yani Çek Formu kısmını doldurup diğerlerini boş bırakmışsınız.
Çek formu kısmında Frame6 nın öğeleri; sırasıyla TextBox 9-10-11-13-14-15-16 isminde textboxlarınız ve Textbox7 ve Textbox8 isminde iki adet combobox'ınız var
Frame5 (Çek Sorgulama) kısmında ise sırasıyla TextBox 1-2-3-4-5 isminde textboxlarınız ve TextBox6 isminde bir combobox'ınız var.
Güncelle butonu (CommandButton1) tıklandığında Frame5 içerisindeki öğelerin doluluğu kontrol edilecek sanıyorum. Bu durumda Frame5 içerisindekilere bakılması gerekiyor.
 
Olumlu oy 0 Negatif oyla
S

sanalx

Bronz Üye
Kullanıcı Bilgileri
Katılım
26 Kas 2022
Mesajlar
118
Aldığı beğeni
15
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
yaptım bu şekilde hata geldi. önce CommandButton4_Click dekini yaptım sonrada CommandButton1_Click dekini
 

Ekli dosyalar

  • hata.jpg
    hata.jpg
    163.3 KB · Gösterim: 4
  • hata2.jpg
    hata2.jpg
    214.3 KB · Gösterim: 4
Olumlu oy 0 Negatif oyla
Caylak

Caylak

Destek Ekibi
Kullanıcı Bilgileri
Katılım
30 Kas 2022
Mesajlar
496
Çözümler
143
Aldığı beğeni
682
Excel Versiyonu
Office 2013 TR
bu problem kodun geri kalanı hakkında, Yani yeni bir soru;
siz textbox ve comboboxlarınızın isimlerini değiştirmişsiniz, fakat kod içerisinde ilgili tbx ların adlarını yenileri ile değiştirmemişsiniz.
Hepsini tek tek düzeltmeniz gerekiyor.
örnek olarak aşağıdaki kodları inceleyin,
cekler sayfasının 2 den 11 e kadar olan sütunlarına;

cek.Cells(kac, 2) = CDate(TextBox13)
cek.Cells(kac, 3) = CDate(TextBox11)
cek.Cells(kac, 4) = CDate(TextBox11) - Date
cek.Cells(kac, 5) = TextBox8
cek.Cells(kac, 6) = TextBox7
cek.Cells(kac, 7) = TextBox10
cek.Cells(kac, 8) = TextBox9
cek.Cells(kac, 9) = ComboBox4
cek.Cells(kac, 10) = TextBox15
cek.Cells(kac, 11) = TextBox14
cek.Cells(kac, 12) = "*"

bu şekilde denk geliyorlar. Tamamını incelemek için pek vaktim yok, siz bu şekilde irdeleyin.
Not: Bunlar CommandButton1 için, Diğer commandbutton için de tek tek bakmanız gerekiyor, öncelikle for döngüsünde hangi textboxlar ve comboboxlar kontrol ediliyor? Daha sonra hangi textbox ilgili sayfada hangi sütuna denk gelecek gibi.
 
Olumlu oy 0 Negatif oyla
Çözüm
S

sanalx

Bronz Üye
Kullanıcı Bilgileri
Katılım
26 Kas 2022
Mesajlar
118
Aldığı beğeni
15
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
orjinal programa 3 sütun eklemiştim sadece.. isim değişmiştim evet ama değiştiğim isimlerin karşılığında değiştim, olmayınca önce isimleri geri ekledim yinede olmadı.
 
Olumlu oy 0 Negatif oyla
S

sanalx

Bronz Üye
Kullanıcı Bilgileri
Katılım
26 Kas 2022
Mesajlar
118
Aldığı beğeni
15
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
Kardeş dediklerini uyguladım bir çok aşama kaydettim teşekkürlerimi sunuyorum. verdiğin bilgilerle ufkum açıldı .. bir tek güncelleme butonunu yapamadım . Güncelle butonuna tıkladığımda satırlar alt alta kayıyor. onunla biraz daha uğraşayım çözemezsem yine konu açarım.. Hakkını helal edesin
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Üst