rec.eof

if both fields are in the same recordset then you dont reacj EOF until ALL records have been read X = 3 Y = NULL

what problem do you get?

reacj = reach

Det der sker er meget normalt, men problemmet er :

at jeg sætter mig på bestemte X værdier og udfra dem henter jeg deres Y værdier.
men jeg skal dog stope ved  den sidste y værdi. men hvordan jeg stopper der ved jeg ikke :(

jeg har prøvet med :
if isnull(y) then
exit function
else
.....
end if

´ved overstående kode melder den.....
der er ingen aktuel post

can we see the rest of the code?

Problemmet er at min recordset ser sådan ud:

X  Y
--------
1    2
3    3
4    5
2   
2    3
3
4    4
5
67  1
8
9    3
9
6
4


og jeg ved ikke hvordan jeg kan stoppe ved den sidste Y værdi ?

det er ikke fordi jeg ikke vil visse resten af koden men, det kræver ligesom at jeg smider hele koden her, og den er meget lang.(det er interpollering af tald)
og er delt op 1 procedure og 2 funktioner.

men der er mere denne del er vigtigt-
Kommentar: phi-del
02/01-2006 14:47:54

skal jeg smide den op ?

So you actually want to continue until EOF becaus ethe last record could also have a valid "Y"


            If Not IsNull(rec("Y")) Then
            'Only do something if "Y" is NOT NULL
            Debug.Print "X = " & rec("X") & " Y = " & rec("Y")
            End If

Kommentar: phi-del
02/01-2006 14:47:54

på de tomme felter Y interpolere jeg fint. men ved den sidste y post slutter mulligheden for interpollering. og der vil jeg nemlige stoppe.
jeg kan ikke rigtigt bruge if isnull() og stoppe ved den, da jeg ved det statement smider ting ind.
men den sidste i y vil jeg gerne stoppe

jeg smider en af functionerne op. og det er denne function som fejlen forkommer i sidste linie. men fejlen forkommer kun ved sidste post i tabellen. ellers fungere den fint.


Function FindDeltaY(y1, y2, x, i)
Dim rec As Recordset
Dim qry As QueryDef
Dim strsql As String
Dim dbs As Database

Set dbs = CurrentDb

strsql = "SELECT * FROM Tabel "
Set qry = dbs.CreateQueryDef("", strsql)
Set rec = qry.OpenRecordset()

rec.MoveFirst
While Not rec.Fields!PFX = x
    rec.MoveNext
Wend

While IsNull(rec.Fields("MP" & i))
    rec.MovePrevious
Wend

y1 = rec.Fields("MP" & i)
 

rec.MoveFirst
While Not rec.Fields!PFX = x
    rec.MoveNext
Wend

While IsNull(rec.Fields("MP" & i))
    rec.MoveNext
Wend

y2 = rec.Fields("MP" & i)

rec.Close
Set qms = Nothing
End Function

when I dont know what you want to do (other than stop) then its not easy to make any suggestions.

If you have reached EOF and the last Y is = NULL then you rcode will (should) stop if your loop is correct (Do UNTIL .EOF)

You could maybe also test for EOF

IF .EOF and isNull(rec("Y")) THen Exit function


But if you need to run some more code (clean up your variables etc.)
then you could  a Go To

har løst det takker for hjælpen

selv tak og god weekend