• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
S

sanalx

Yeni Üye
Katılım
26 Kas 2022
Mesajlar
118
Aldığı beğeni
15
Excel V
Office 2021 TR
Konu Sahibi
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çö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
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
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?
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
: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
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
Konu Sahibi
yaptım bu şekilde hata geldi. önce CommandButton4_Click dekini yaptım sonrada CommandButton1_Click dekini
 
Olumlu oy 0 Negatif oyla
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
Konu Sahibi
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
Konu Sahibi
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.
Geri
Üst