Merhaba ;
Arkadaşlar burdaki hatayı görebiliyormusunuz?

Bir tik kutucuğu yaptım tiki işaretlediğin zaman uyarı vermesi lazım fakat hataya düşüyor ilk satırda hata olduğunu gösteriyor.


[b]Private Sub SEVK_DURUMU_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.SEVK_DURUMU = True Then
mesaj = MsgBox("Sevk Tarihini Değiştirmek Üzeresiniz Bu İşlemi Gerçekleştirmek İstediğinizden Emin Misiniz?", vbCritical + vbYesNo, "UYARI")
If mesaj = vbYes Then
Me.SEVK_DU