felmeddelandet dyker upp när jag vill köra kill !
bakgrund:
Gjorde ett program som tog upp filen som i funktionen nedan , vilket fungerade utmärkt när det var rätt mycke data som skulle in och bearbetas.

när sedan jag gjorde en fil med betydligt mindre data och som läg i samma form fick jag felmedelnadet,
men det gäller enbart om jag jobbar i samma projekt .

****************
OBS
funcktionen ligger på ett formulär som hela tiden är aktivt !
har testat olika tider men med samma resultat
******************


Public Function COMPAAA(sokv As String, flnra As String)
Dim soss As New Collection
'Dim spejgan() As String
Dim MAN As String
Dim DAG As String
Dim TOA As String
Dim TOTA As String
Dim MAN1 As String
Dim DAG1 As String
Dim TOA1 As String
Dim TOTA1 As String
Dim TOTA2 As Variant
Dim skir As String
Dim txtdata As String
Dim fname, flist
Dim n As Integer
If Dir(sokv & flnra) = "" Then varabjakt = 0

If Dir(sokv & flnra) <> "" Then
If Dir(sokv & flnra) <> "" Then varabjakt = 1

'ska = oTabortd("eurtermin")
filenumber = FreeFile

Open sokv & flnra For Input As #filenumber

Do Until (EOF(filenumber))
Line Input #filenumber, txtdata

spejgan() = Split(txtdata, ":")
Loop
Close #filenumber
Kill (sokv & flnra)
ska = instriom

End If

End Function

Snabbt och kanske fel. Men du kan inte "killa" en fil som körs(en process som är igång)

Läste en gång till "mysko" lägg in ett DoEvents efter Close.

Tyvärr Sven åke så funkade det ej, Kan det bero på hur jag skickar filen ut



alternativt är att lägga in en fördröjning på kill och hur gör jag det ???




Public Function VBINKORN(intab1 As String, utsokv As String, NROO As Integer, ifra As String, sp As Integer)
Dim ska As String
Dim spoj As New Collection

Dim spoj1 As New Collection
Dim spoj2 As New Collection
Dim spoj3 As New Collection
Dim spoj4 As New Collection
Dim spoj5 As New Collection
Dim soi As Table
Dim a1 As Variant
Dim a2 As Variant
Dim a3 As Variant
Dim a4 As Variant
Dim a5 As Variant
Dim a6 As Variant
Dim dqt As Recordset
Dim db As Database
If SIGNALLA(NROO) = 1 Then

Set db = CurrentDb

sql = "select " & intab1 & ".fc_k," & intab1 & ".a1," & intab1 & ".fc," & intab1 & ".ant from " & intab1
Set tok = db.OpenRecordset(sql, dbOpenSnapshot)
While Not tok.EOF

spoj.Add tok(0) & vbCrLf
spoj1.Add tok(1) & vbCrLf
spoj2.Add tok(2) & vbCrLf
spoj3.Add tok(3) & vbCrLf



tok.MoveNext

Wend
Select Case spoj.Count

Case Is > 0
a1 = Replace(spoj(1), vbCrLf, "")
a2 = Replace(spoj1(1), vbCrLf, "")
a3 = Replace(spoj2(1), vbCrLf, "")
a4 = Replace(spoj3(1), vbCrLf, "")

Case Is < 1

a1 = 0
a2 = 0
a3 = 0
a4 = 0

End Select

Open utsokv & intab1 & ifra & ".txt" For Append As #1
Print #1, spejgan(0) & ":" & spejgan(4) & ":" & a1 & ":" & a2 & ":" & a3 & ":" & a4 & ":" & intab1
Close #1




tok.Close

db.Close
invasko(NROO) = 1
SIGNALLA(NROO) = 0

End If
End Function

Löst ! La in sleep

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
' dwMilliseconds = antalet millisekunder som systemet skall pausa

Sleep 20 ' 2000 millisekunder = 2 sekunders fördröjning

la in sleep innan kill

Tack för hjälpen på Pellesoft
Mvh Per Högglund