Frakılı satırdaki hataları yönlendirmek

[vivident]

Merhaba

İşlemlerim gereği koddaki bazı satırlarda normal olarak type mismatch hatası alıyorum, benim istediğim hata aldığım satırı, kodun başka bir modifli haline yönlendirmek

Örneğin ;

if xxxxx = error then
xxxxx_v2
end if

if zzzzz = error then
zzzzz_v2
end if

______________________________

Ekte paylaştığım dosyada
Filtre1 : A1 seçiniz
Filter3 : OT seciniz
Filtre2 : boş olduğu için hata verecek

Bu kod hatalı ise ;
UserForm1.ComboBox3.Column = baglan.Execute("select distinct [Hat] from [N1Listem] Where [Hat] <> ''" & a & c & d).getrows

Bu kodu kullan demek istiyorum
UserForm1.ComboBox3.Column = baglan.Execute("select distinct [Hat] from [N1Listem] where 1=1" & a & c & d).getrows

 

[askm]

Dosyanıza bakma imkanım olmadı ama On error goto hata1, on error goto hata2 şeklinde yazarak deneyin. Gitmesini istediğiniz yere de Hata1: ve Hata2: şeklinde yazın.

 

[vivident]

On Error GoTo hata1
UserForm1.ComboBox3.Column = baglan.Execute("select distinct [Hat]  from [N1Listem] Where [Hat] <> ''" & a & c & d).getrows 'Filitre için yazıldı
hata1:
UserForm1.ComboBox3.Column = baglan.Execute("select distinct [Hat]  from [N1Listem] where 1=1" & a & c & d).getrows 'Filitre için yazıldı


On Error GoTo hata2
UserForm1.ComboBox4.Column = baglan.Execute("select distinct [Uet]  from [N1Listem] Where [Uet] <> ''" & a & b & d).getrows 'Filitre için yazıldı
hata2:
UserForm1.ComboBox4.Column = baglan.Execute("select distinct [Uet]  from [N1Listem] where 1=1" & a & b & d).getrows 'Filitre için yazıldı

Olmadı, hata vermeye devam ediyor