Run Time Error Hatası

[gamzede]

Daha önceden Korhan Aydın Beyin personel kayıt programı adlı konu anlatımını kullanarak yaptığım görev kayıt formu hata veriyor ama hatanın sebebini bir türlü anlayamadım dosya ekte...

 

[Ömer]

Merhaba,

Görev kayıt formunda 5 adet CommandButton var fakat siz diziye 6 adet buton ismi yazdınız. Kırmızı ile işaretlediğimi silerseniz hata almazsınız.

Sanırım bunu da denemek için yazdınız.

Buton_Adı = Array("ksksjsjks", "SORUMLU EKLE", "KAYDET", "KAYIT DEĞİŞTİR", "KAYIT SİL", "ÇIKIŞ")

.

 

[gamzede]

hayır o butonda var o butonu yanlışlıkla ekledim ve sildiğimde hata verdiği için adına saçma sapan bişey yazıp alt köşeye gizledim sanırım baya iyi gizlemişim

 

[Ömer]

Ben ilgili formda 5 den fazla CommandButton göremedim,

İlgili forum seçili iken, View / Tab Order menüsü girerseniz formadaki butonları görebilirsiniz.

.

 

[gamzede]

buton sağ alt köşede ama herhangi bir görevi yok

 

[Ömer]

Bahsettiğiniz buton CommandButton1 adlı butondur. Yani o butonla birlikte toplam 5 CommandButton olmaktadır.

Dikkatli incelemenizi rica ederim.

.

 

[gamzede]

pardon afadersiniz siz kırmızıyla o butonu işaretleyince ben görmediniz sandım görevli ekle yazanı silince düzeldi teşekkür ederim. Acaba birşey daha sorabilir miyim?

 

[Ömer]

Tabi buyrun.

.

 

[gamzede]

açıklama, sorumlu, veriliş tarihi, bitiş tarihi ve proje no alanlarının dışındaki alanları doldurmak mecburi olmasın istiyorum onlardan

MsgBox "Lütfen -VERİLİŞ TARİHİ- bilgisini giriniz !", vbExclamation, "Eksik Bilgi Girişi"
TextBox2.SetFocus

bu kısımları sildim ama bu kezde uyarı vermiyo kayıt da yapmıyo ne yapmam gerek?

 

[Ömer]

açıklama, sorumlu, veriliş tarihi, bitiş tarihi ve proje no alanlarının

Bu alanların textbox numaralarını yazarmısınız.

.

 

[gamzede]

kusura bakmayın geç cevap veriyorum mesai saati bitince çıkmak zorunda kaldım.

textbox10
combobox1
textbox2
textbox3
textbox12

 

[Ömer]

açıklama, sorumlu, veriliş tarihi, bitiş tarihi ve proje no alanlarının

Bu alanların textbox numaralarını yazarmısınız.

.

Kodlarda Textbox12 şartından sonra yazdığınız,

If ComboBox5.Text = "" Then

Exit Sub
End If
If TextBox13.Text = "" Then

Exit Sub
End If

If TextBox14.Text = "" Then

Exit Sub
End If
If TextBox4.Text = "" Then

Exit Sub
End If
If TextBox5.Text = "" Then

Exit Sub
End If
If TextBox6.Text = "" Then

Exit Sub
End If

If TextBox7.Text = " " Then

Exit Sub
End If

If ComboBox3.Text = "" Then

Exit Sub
End If

If TextBox8.Text = "" Then

Exit Sub
End If

If TextBox11.Text = " " Then

Exit Sub
End If

bölümlerini silin.

.

 

[gamzede]

Teşekkür ederim oldu

 

[gamzede]

Dün evdeki çalışmamda yaptığımda hiç bir problem yoktu fakat staj yerimde yaptığım zaman güncelle butonu hata vermeye başladı bunu nasıl düzeltebilirim?