This is probably closer to what you need (untested):
Code:
Private Sub comBeregn_Click()
Dim strsql As String
Dim stdset As DAO.Recordset
Dim nLength As Long
strsql = "SELECT * FROM 1strecordset"
Set stdset = CurrentDb.OpenRecordset(strsql)
stdset.movelast
stdset.movefirst
With stdset
Do While Not .EOF
nLenght = 0
if !recordset1value >= 0 Then
nLenght = !recordset1value
End If
' if !recordset1value is negative, it will be set to zero. Problem?
If nLength > 200 Then
nLength = nLength - 200
end if
strsql = "INSERT INTO Recordset2 (recordset2value) VALUES (" & nLength & ")"
CurrentDb.Execute (strsql),dbfailonerror
.MoveNext
Loop
.Close
set stdset = nothing
End With
end sub