Funktionsaufruf InStr Fehler.

Tech-Archive recommends: Fix windows errors by optimizing your registry

Hallo,

ich weiß leider nicht mehr weiter. Ich verstehe nicht, wo der Fehler
in dem code ist.

Also das ganze ist VB-Code der aufgrund einer Aktion innerhalb einer
Access 97 Datenbank aufgerufen wird. Ziel ist es, die in einem
Textfeld gespeicherte e-Mail Adresse zu extrahieren. Die Adresse ist
vom Typ Hyperlink und dementsprechend mit '#' separiert.

Mein Problem ist nun, dass er beim Aufruf von InStr immer den
folgenden Fehler zurück gibt:
"Microsoft Access" -- "Unzulässiger Prozeduraufruf oder ungültiges
Argument"

Hat jemand eine Erklärung dafür oder eine anderen/besseren Weg die e-
Mail Adresse zu extrahieren?

Schon einmal vielen Dank im voraus.

Gruß
Asterix der Gallier =)


Private Sub sende_E_Mail_Click()
On Error GoTo Err_sende_E_Mail_Click

Dim eMail As Variant
Dim search As Variant
Dim s As Integer
Dim e As Integer

search = "#"
eMail = Me![eMail] 'enthält etwas wie:
"meinname#meinname@xxxxxxxxx#"
s = 0
s = InStr(s, eMail, search, vbTextCompare) ' <-- An dieser Stelle
steigt er aus
e = InStr(s + 1, eMail, search, vbTextCompare)
eMail = Mid(eMail, s, e - s)
Debug.Print eMail

Exit_sende_E_Mail_Click:
Exit Sub

Err_sende_E_Mail_Click:
MsgBox Err.Description
Resume Exit_sende_E_Mail_Click

End Sub

.

Relevant Pages