Hi, hab es soweit hinbekommen, aber er spuckt mit immer nen Exception Failure aus bei /siehe Grüne Syntax)
Hast du ne Idee?
''''''''Schleife welche REFERENZLISTE behandelt:
If Not Trim(strQuellZeile) = "" Then
strSuchAnfang = CStr(1)
intZeilennummer = 1
Do Until CDbl(strSuchAnfang) >= Len(strQuellZeile)
lngStelleGesuchtesZeichen = InStr(CShort(strSuchAnfang), Trim(strQuellZeile), " ")
If lngStelleGesuchtesZeichen = 0 Then
lngStelleGesuchtesZeichen = Len(Trim(strQuellZeile)) + 1
End If
strgefundenerBefehl = Mid(Trim(strQuellZeile), CInt(strSuchAnfang), lngStelleGesuchtesZeichen - 1)
' Set rs = New ADODB.Recordset
' With rs
' .ActiveConnection = cn
' .CursorLocation = adUseClient
' .LockType = adLockOptimistic
' .Source = "SELECT * FROM Referenzliste WHERE Befehl = '" & strgefundenerBefehl & "'"
' .Open
' End With
' If rs.EOF Then
strZeile = "Zeile"
strZeilenName = strZeile & intZeilennummer
rs = New ADODB.Recordset
With rs
.let_ActiveConnection(cn)
.CursorLocation = ADODB.CursorLocationEnum.adUseClient
.LockType = ADODB.LockTypeEnum.adLockOptimistic
.let_Source("SELECT * FROM Zeilen")
.Open()
If strZeilenName = "Zeile1" Then
.AddNew()
.Fields(strZeilenName).Value = strgefundenerBefehl
Else
'.Fields(strZeilenName).Value = strgefundenerBefehl
End If
.Update()
.Close()