Hallo,

Wenn ich den Text so in Visual Basic eingebe bekomme ich die Fehlermeldung

"Fehler beim Kompielieren: Sub oder Function nicht definiert"

Woran kann das liegen?



Hier mal mein Code wie ich ihn eingegeben habe:


Private Sub Form_Load()
Dim ServerIP As String
ServerIP = "localhost"
Winsock1.Connect ServerIP, 9300
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Eingangstext As String
Winsock1.GetData Eingangstext 'Die Variable "Eingangstext" enthält jetzt das Telegramm

Dim Eingang() As String
Eingang() = Split(Eingangstext, Chr$(9))
'Die Variablen "Eingang(0)", "Eingang(1), "Eingang (...)" enthalten jetzt die einzelnen Felder

'Quittungen überspringen, wenn gewünscht
If Eingang(0) = "FMSTlg" Then
If Eingang(6) = "14" Or Eingang(6) = "15" Then
Exit Sub
End If
End If

'Jetzt werden die Felder in die Tabelle "Eingangstabelle" mit den Feldern

Eingangsdatum
Art
Richtung
Adresse
Status
Eingangsmeldung

schreiben

Set FMS = CurrentDb.OpenRecordset("Eingangstabelle")
FMS.AddNew

If Eingang(0) = "ZVEI" Then
FMS!Eingangsdatum = Now()
FMS!Art = "Z"
FMS!Richtung = "an"
FMS!Adresse = Eingang(1)
End If

If Eingang(0) = "FMSTlg" Then
FMS!Eingangsdatum = Now()
FMS!Art = Eingang(9)
FMS!Adresse = Eingang(1)
If Eingang(8) = "0" Then
FMS!Richtung = "von"
Else
FMS!Richtung = "an"
End If
FMS!Status = Eingang(6)
FMS!Eingangsmeldung = Eingang(13)
End If

FMS.Update
FMS.Close
Set FMS = Nothing


End Sub


MFG
Christian