Feldvalidatoren wurden für alle Desktop- sowie Mobilansichten eingerichtet.

This commit is contained in:
ja
2021-09-27 11:53:19 +02:00
parent 2c32a35715
commit d372e32904
13 changed files with 16848 additions and 53 deletions

View File

@@ -160,7 +160,7 @@ Partial Class Kundenbereich_Default
Try
Kdnrtext = Session.Item("CustomerID").ToString
Catch A As UnauthorizedAccessException When Kdnrtext = Nothing
MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID augetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
End Try
dt = Nothing
If txt_Absender.Text IsNot "" Then
@@ -437,6 +437,11 @@ Partial Class Kundenbereich_Default
End Sub
Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs)
Dim TB As TextBox = sender
If TB.Text = "" Then
TB.Attributes.Add("Border", "2px solid red")
Else
TB.Attributes.Add("Border", "None")
End If
End Sub
End Class