Call komutu ile Image1_Click makrosu çalışmıyor?

[bistrobellman]

Selam arkadaşlar,
Image1_Click olayında bir koşul sonrası Call Image1_Dbclick makrosunu neden çalıştıramıyorum acaba?

Public, Option EXplict gibi bir şeyler hatırlıyorum bunlar mı lazım neden Image1_DblClick makrosu çalışmaz Call ile yönlendirdiğim halde? kodlar bu şekilde:


Private Sub Image1_Click()
.
.
MsgBox "Veri Dosyaları Kayıt Edilmemiş", vbInformation, "Uyarı": Call Image1_DblClick: Exit Sub
ElseIf MyRng.Offset(0, 23) <> "" Then
.
.
.End Sub

--------------------------------------------------------------------------------
Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
.
.
.
End Sub

 

[bistrobellman]

@leumruk hocam ya da diğerleri yardımcı olabilirler mi acaba?

 

[Mahmut Bayram]

Call ile niye çalıştırıyorsunuz ki direkt
Image1_DblClick içindeki kodları oraya alsanız olmuyor mu?

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir.

[SIZE="2"]Private Sub Image1_Click()
[COLOR="Red"]Dim Cancel As MSForms.ReturnBoolean[/COLOR]
MsgBox "Veri Dosyaları Kayıt Edilmemiş", vbInformation, "Uyarı": Call Image1_DblClick([COLOR="Red"]Cancel[/COLOR]): Exit Sub

End Sub[/SIZE]

 

[systran]

şu şekilde deneyin. kendiniz bir alt yordam oluşturarak (kontrol) click ve dblclick işlemlerinden sonra bu yordamı çağırın.

Private Sub Image1_Click()
.
.
.
[COLOR="Red"]call kontrol()[/COLOR]
end Sub

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
.
.
.
[COLOR="red"]call kontrol()[/COLOR]
End Sub

[COLOR="red"][B]sub kontrol()[/B]
.
.
.
[B]end sub[/B][/COLOR]