Hallo Zusammen,
ich habe eine Access Tabelle 'tblPerson' die unter anderem das Feld 'strEmail' enthält. Das Feld habe ich darüber hinaus mit folgender Gültigkeitsregel versehen:
Ist Null Oder ((Wie "*?@?*.?*") Und (Nicht Wie "*[ ,;]*"))
Somit stelle ich sicher das nur gültige E-Mail Adressen eingegeben werden dürfen. Auf Access Basis klappt das auch super.
Wenn ich allerdings via VBA eine E-Mail Adresse einfügen möchte erhalte den Fehler, dass mein Wert gegen die Gültigkeitsregel verstößt. Das es sich um eine E-Mail Adresse handelt ist allerdings sichergestellt. Hat jemand eine Idee woran das liegen könnte?
Hier ist noch mein Code:
With adoCommand
.ActiveConnection = adoConnection
.CommandText = "INSERT INTO tblPerson (idAdresse, strNachname, strVorname, strTelefon, strMobil, strFax, strEmail) VALUES(?, ?, ?, ?, ?, ?, ?);"
.CommandType = adCmdText
.Parameters.Append .CreateParameter(, adInteger, adParamInput, , idAdresse)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 25, strNachname)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 15, strVorname)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 15, strTelefon)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 13, strMobil)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 14, strFax)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 60, strEmail)
.Execute
End With
|