Hallo zusammen,
ich habe ein Problem. Vielleicht kann ja jemand weiterhelfen?
Ich habe eine Checkbox mittels welcher Zeilen gelöscht werden. (Das Zeilenlöschen an sich funktioniert schonmal.) Wenn man ein Häkchen setzt, soll aber noch abgefragt werden, ob die Aktion (also das Löschen) wirklich ausgeführt werden soll.
Bei der Antwort "nein" funktioniert das Ganze. Wenn ich aber in der Abfrage mit "ja" antworte, geschieht nichts.
Hier mein Quelltext:
Private Sub CheckBox1_Click()
CheckBox1.Locked = True
Dim i As Long
Dim Temp As Long, A As Assignment
Dim myTask As Task
MsgBox ("Are you sure deleting this task?"), vbYesNo, "Authentication"
If vbNo Then
CheckBox1.Value = False
Exit Sub
Else
For i = 1 To ActiveProject.Tasks.Count
Set myTask = ActiveProject.Tasks(i)
If (myTask.UniqueID = 218) Then
myTask.Delete
Exit Sub
End If
Next i
End If
End Sub
Sieht jemand den Fehler? Weiß jemand weiter?
Vorab lieben Dank!
Viele Grüße
j_ey_see |