Yazdığınız koddaki hata ile ilgili olarak?
Private Sub secenek_1002_urun_yok_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If siparis_iptal_edildi = -1 Then
MsgBox " Bu ürünün siparişi iptal edildiği için seçim yapamazsınız.", vbCritical, "CUKLA YARDIM"
sube_1002_urun_var_yok.Value = False
End If
End Sub
Şeklindeki koddan mı bahsediyoruz?