Run-time error '380'

[teksen]

Run-time error '380'

Could not set the ListIndex propety.Invalid propety value.


Arkadaşlar merhaba,

yukarıdaki hata için genel bir mesaj hazırlamamız mümkünmüdür?

yani bu hata oluştuğunda ekrana bunun yerine benim hazırladığım bir mesaj kutusunun çıkması ve mesela 'bir hata oluştu' deyip bir öncesine geri dönmesi olabilirmi acaba?

şimdiden teşekkür ederim

Herkese iyi çalışmalar.

 

[Ferhat Pazarçevirdi]

Peki, hata oluşmasını engellemek daha akılcı olmaz mı ? ...

 

[teksen]

Tabiki, fakat hazırladığım excel tam randımanlı bir şekilde kullanılmaya başlandığında herhangi bir yerde bu hatayı vermesini istemediğim için bu şekilde bir mesaj kutusu düşünmüştüm.

UserForm üzerindede bazı yerler bazı nesnelerden önce kullanıldığında bu hatayı verebiliyor.

Açıkçası bu da beni tedirgin etti.

Bu yüzden ilk etapta böyle bir yol denemek istedim.

Çünkü acilen kullanılmaya başlanması gerekiyor.

Ben bu arada zaten o hataları bulup düzelticem.

Acaba bunun için genel bir mesaj kutusu çıkartıp bir önceki işlemden şu an içinde olsa devam etmemiz mümkünmüdür?

 

[Ferhat Pazarçevirdi]

Benim kafama yatmadı bu iş, ama yine siz bilirsiniz.

Kodlarınızın yapısını şu şekilde değiştirebilirsiniz. (Karambole yazıyorum düzenlenmesi gerekebilir)

Sub ...... ()
On Error Goto Hata
[COLOR=green].....[/COLOR]
[COLOR=green].....[/COLOR]
[COLOR=green]Diğer kodlarınız[/COLOR]
[COLOR=green].....[/COLOR]
[COLOR=green].....[/COLOR]
Exit Sub
Hata:
if Err.Number=380 then
   Msgbox "Listbox'ın List Index Özelliği set edilemiyor", VbCritical,"UYARI"
[COLOR=green]   .....   [/COLOR]
[COLOR=green]   Bu kısma çağırmak istediğiniz prosedür veya çalıştırmak istediğiniz [/COLOR]
[COLOR=green]   başka bir blok varsa o referans gösterilmeli.   [/COLOR]
[COLOR=green]   (Örn. [B]Call HataProseduru[/B] veya [B]Goto BasaDon[/B] gibi)[/COLOR]
[COLOR=green]   ....[/COLOR]
End if
End Sub

 

[teksen]

Teşekkür ederim Sn.fpc