Bakgrund:

Har ca 220 formulär som ligger och försöker plocka in information in i excel datablad .
Det funkar hyfsat, men helt plöttsligt slutar uppdateringen.
Trycker jag på programmet som ska skicka info så drar skickar det på en gång ?????
Är det tickern det är fel på ??
Eller är det excel inkörningen ?????
Har Markerat med *********** vid sektionerna.


Om jag har uppfattat det rätt så är samtliga formulär klara att skicka, vid dessa intervaller men endera blokerar de varandra eller ???, men när jag trycker på dem så skickas datan direkt




*****************
Option Compare Database

Ticker med function
*****************
Private Sub Form_Load()
Me.TimerInterval = 10
End Sub

**************
Sub form_timer()
Dim kalle As Form
Dim ska As String
Dim nuu As Variant

Static assa As Integer
Form.Visible = False
If assa Then
ska = oms.VBINKORN("sv4", "\\smo\euro\", 5, 4, 2)

Else

End If

assa = Not assa
End Sub


*Function
********************


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 Excel As Object *******
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
Set Excel = GetObject(, "Excel.Application")************

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
tok.Close
'dk.Close
db.Close

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, "")
a5 = Time
Case Is < 1

a1 = 0
a2 = 0
a3 = 0
a4 = 0
a5 = Time
End Select

DoEvents




Excel.Worksheets(1).Range("a" & NROO + 190 & "").Value = intab1 *****
Excel.Worksheets(1).Range("b" & NROO + 190 & "").Value = spejgan(0) *****
Excel.Worksheets(1).Range("c" & NROO + 190 & "").Value = Time *****
Excel.Worksheets(1).Range("d" & NROO + 190 & "").Value = a1
Excel.Worksheets(1).Range("e" & NROO + 190 & "").Value = a2
Excel.Worksheets(1).Range("f" & NROO + 190 & "").Value = a4
Excel.Worksheets(1).Range("g" & NROO + 190 & "").Value = a3
Excel.Worksheets(1).Range("h" & NROO + 190 & "").Value = "s4"


Excel.Worksheets(1).Range("a" & NROO + 190 & "").Activate
Excel.Worksheets(1).Range("b" & NROO + 190 & "").Activate
Excel.Worksheets(1).Range("c" & NROO + 190 & "").Activate
Excel.Worksheets(1).Range("d" & NROO + 190 & "").Activate
Excel.Worksheets(1).Range("e" & NROO + 190 & "").Activate
Excel.Worksheets(1).Range("f" & NROO + 190 & "").Activate
Excel.Worksheets(1).Range("g" & NROO + 190 & "").Activate
Excel.Worksheets(1).Range("h" & NROO + 190 & "").Activate



invasko(NROO) = 1
SIGNALLA(NROO) = 0

End If


End Function


Mvh Per H

Hej,

Har det funkat tidigare? Isåfall vad har du ändrat sedan det funkade?

Har du kollat att din timer verkligen körs? Kolla att enabled = true.

Sen har du en lustig variabledeklaration:
Static assa As Integer
du använder variabeln som en boolean men har den deklarerad som en integer.
Jag skulle rekommendera att du deklarer den som en boolean istället.


Lycka till!

// Johan