Forum form_Timer bölümünü aşağıdaki eklemeyi yapınca sorun halledildi. Çok ama çok teşekkürler.


Private Sub Form_Timer()
'On Error Resume Next

If basla = 1 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from 20li"
DoCmd.OpenQuery "20lim"
End If

Dim kseti As ADODB.Recordset
Dim Sql As String
sql = "select * from 20li where sno between " & basla & " And " & bitir
Set kseti = New ADODB.Recordset
kseti.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Do While Not kseti.EOF


kseti.MoveNext
Loop

DoEvents
If basla <> 1 Then
Set Me.Recordset = kseti
Else
DoCmd.Close
End If

kseti.Close

If bitir > DCount("sno", "20li") Then
basla = 1
bitir = 20

Else
basla = basla + 20
bitir = bitir + 20
End If

End Sub