"application defined or object defined error" hatası

[gamzede]

sevgili Korhan Ayhan'ın daha önce yapmış olduğu personel kayıt uygulamasının çok benzeri bir uygulama yaptım fakat bilgileri değiştirirken bir hata ile karşılaşıyorum hatanın nereden kaynaklandığını bir türlü bulamadım staj projemi tamamlamam için bu sorunu çözmek zorundayım lütfen yardımlarınızı eksik etmeyim şimdiden teşekkürler...



Private Sub CommandButton3_Click() 'KAYIT DEGISTIR TUSU (ListBox üzerinde seçilen kayitla ilgili degisiklik yapmak için kullanilmaktadir.)

'1 - ListBox nesnesinde veri olup olmadigini kontrol ediyoruz.

If ListBox1 = Empty Then
MsgBox "Veri kaydi bulunamamistir.", vbExclamation, "Dikkat !"
Exit Sub
End If


'2 - ListBox nesnesinden seçim yapilip yapilmadigini kontrol ediyoruz.

If ListBox1.ListIndex < 0 Then
MsgBox "Lütfen listeden veri seçimi yapiniz.", vbExclamation, "Dikkat !"
Exit Sub
End If


'3 - Yapilacak degisiklik islemi için kullanicidan onay aliyoruz.

If MsgBox("Seçtiginiz kayit üzerinde degisiklik yapilacaktir onayliyor musunuz ?", vbCritical + vbYesNo, "Dikkat !") = vbYes Then


'4 - ListBox nesnesinde kayitlari temizliyoruz.

ListBox1.RowSource = Empty


'5 - Eger kullanici degisiklik islemi için onay vermisse verileri ilgili hücrelere aktariyoruz.

Cells(Satır, "A") = TextBox10.Text
Cells(Satır, "B") = ComboBox1.Text
Cells(Satır, "C") = Format(TextBox2.Text, "dd.mm.yyyy")
Cells(Satır, "D") = Format(TextBox3.Text, "dd.mm.yyyy")
Cells(Satır, "E") = TextBox12.Text
Cells(Satır, "F") = ComboBox5.Text
Cells(Satır, "G") = TextBox13.Text
Cells(Satır, "H") = TextBox4.Text
Cells(Satır, "I") = TextBox5.Text
Cells(Satır, "J") = TextBox6.Text
Cells(Satır, "K") = TextBox7.Text
Cells(Satır, "L") = ComboBox3.Text
Cells(Satır, "M") = TextBox8.Text
Cells(Satır, "N") = TextBox11.Text


'6 - VERI sayfasindaki verileri ListBox nesnesine yüklüyoruz.

With Görev_Kayıt_Formu.ListBox1
.BackColor = vbWhite
.ColumnCount = 14
.ColumnWidths = "70;70;70;70;70;70;70;70;70;70;70;70;70;80"
.ForeColor = vbBlack
If Sheets("VERI").Range("A2") = Empty Then
.RowSource = Empty
Else
.RowSource = "VERI!A2:N" & [VERI!A65536].End(3).Row
End If
End With

MsgBox "Kayit düzeltme islemi tamamlanmistir.", vbInformation, "Kayit Düzeltme Islemi"

Else

MsgBox "Kayit düzeltme islemi iptal edilmistir.", vbInformation, "Islem Iptali"

End If
End Sub

 

[hımmmmmmmm]

slm

satır değerinin olmaması haricinde bir şey göremedim... satır değişkenine değer verip denesene düzelecekmi...

 

[gamzede]

tamam yarın tekrar işe gittiğimde ilk iş bunu deneyeceğim...

 

[halit3]

ListBox1.RowSource = Empty

Yukarıdaki kodun hemen üstüne

[COLOR=red]Satır = ListBox1.ListIndex + 2
[/COLOR]ListBox1.RowSource = Empty

kırmızı yeri eklerseniz düzelecektir.

 

[gamzede]

denedim ama yine aynı hatayı alıyorum aşağıdaki satırlar baştan başlayarak zemin rengi sarıya dönüyor.


Cells(Satır, "A") = TextBox10.Text
Cells(Satır, "B") = ComboBox1.Text
Cells(Satır, "C") = Format(TextBox2.Text, "dd.mm.yyyy")
Cells(Satır, "D") = Format(TextBox3.Text, "dd.mm.yyyy")
Cells(Satır, "E") = TextBox12.Text
Cells(Satır, "F") = ComboBox5.Text
Cells(Satır, "G") = TextBox13.Text
Cells(Satır, "H") = TextBox4.Text
Cells(Satır, "I") = TextBox5.Text
Cells(Satır, "J") = TextBox6.Text
Cells(Satır, "K") = TextBox7.Text
Cells(Satır, "L") = ComboBox3.Text
Cells(Satır, "M") = TextBox8.Text
Cells(Satır, "N") = TextBox11.Text

 

[Korhan Ayhan]

Merhaba,

Uyguladığınız dosyayı eklerseniz hatanın sebebini inceleyebiliriz.

 

[gamzede]

az önce düzeldi nasıl olduğunu anlamadım ama

If Sheets("VERI").Range("A2") = Empty Then
.RowSource = Empty
Else
.RowSource = "VERI!A2:N" & [VERI!A65536].End(3).Row
End If


kod kısmındaki kodları silip yerine kaydet butonun kodlarını yazınca düzeldi

 

[hımmmmmmmm]

slm

burayla bir ilgisi olmaması gerek...

SATIR değerini sıfır yapın veya silin 'application defined or object defined error' hatasını verecektir...

 

[gamzede]

şans eseri yaptım bişey ama şimdi sanırım daha büyük bi sorunla karşı karşıyayım :/

 

[hımmmmmmmm]

slm

o sildiğiniz kısmı buradan tekrar alıp programda tekrar yerine yapıştırın... sonra bir daha bakın.

 

[gamzede]

bu kez düzeldi sanırım hata vermiyor.