Vertragskontakt inaktivieren
[Visual Basic] Private Sub KontaktLöschenToolStripMenuItem_Click( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles _
KontaktLöschenToolStripMenuItem.Click
[Visual Basic] Private Sub KontaktLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KontaktLöschenToolStripMenuItem.Click
Try
If msg.Show_MessageYesNo(265) = MsgBoxResult.Yes Then
Me.Vertragselement.Vertragskontakt.Delete_Vertragskontakt(Me.C1Kontakte.Columns("Vertragskontaktnr").Value)
evh.Kontakte_Geloescht()
End If
Catch
End Try
End Sub
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition