fejl ved if sætning

Jeg har ikke testet det, men prøv at sætte flere paranteser.

If ( (rms1.Fields!BIL) And (rms1.Fields!person) ) <> ( (rms.Fields!BIL) And (rms.Fields!person) ) then
msgbox "test"
end if


Nu kender jeg ikke Access så godt, men vær sikker på at måden at bruge ! er korrekt, og ikke hedder : "rms1.Fields!=person" eller "rms1.Fields<>person".

Held og lykke

If (rms1.Fields!BIL <> (rms.Fields!BIL ) And rms1.Fields!person) <> rms.Fields!person) then
msgbox "test"
end if

OOPs!
If (rms1.Fields!BIL <> rms.Fields!BIL ) And (rms1.Fields!person <> rms.Fields!person) then
msgbox "test"
end if

You have to test each field on its own!

Or concatenate BOTH fields and then test!

If (rms1.Fields!BIL & rms1.Fields!person) <> (rms.Fields!BIL & rms.Fields!person) then
msgbox "test"
end if

and there may be a problem with how you are referencing the fields

I would use

rms!BIL

or

rms("BIL")

Jeg har fundet et andet løsning i mellem tiden. men det er en hage ved det som i måske vil hjælpe med :)

rms.MoveFirst
rms1.MoveFirst
Do Until rms1.EOF
If ((rms1.Fields!BIl <> rms.Fields!BIl) And (rms.Fields!Person <> rms1.Fields!Person)) Then
    AddNew
    rms.Fields!BIl = rms1.Fields!BIl
    rms.Fields!Person = rms1.Fields!Person
    rms.Update
End If
    rms.MoveNext
    rms1.MoveNext
Loop

hagen ved det her er vi på et eller andet tidspunkt løber tør for rms recordsetet
også går det hele ned.
er der nogen der kunne have en ide til det her :)

rms recordsetet har altid mindre inhold end rms1 recordsetet.
men når jeg samligner og har sagt rms1.eof så melder den fejl på et tidspunkt i loopen fordi der ikke er flere rms records

Jeg har fundet et andet løsning i mellem tiden???

Does this mean you have NOT made use of the suggestions given?

ja, jeg har søgt efter en løsing i mellemtiden , men det er jo ikke den fulde løsning jeg sider med, så hvis jeg kan få jeres til at virke ville jeg hellere bruge det

men jeres vil hellere ikke virke pga.
Kommentar: yuksel
17/08-2005 13:29:37

Kommentar: yuksel
17/08-2005 13:31:19

so you are saying that

If ((rms1.Fields!BIl <> rms.Fields!BIl) And (rms.Fields!Person <> rms1.Fields!Person)) Then

is not taken from my answer to your ORIGINAL question which I gave 17/08-2005 12:30:53?

jeg har lavet min løsning inden jeg så jeres løsning, ellers vil jeg da havde brugt jeres forslag, men jeg stadige åben for at bruge jeres hvis vi kan løse rms og rms1 problemmet

Hey det er det samme løsning jeg er kommet frem til, men pyt med .
den første forslag som står her gælder og det er jo din

men det er lige rms1 og rms problemmet som skal løses.

terry hvad nu hvis rms.fields!Bil ikke eksister ?

If (rms1.Fields!BIL <> rms.Fields!BIL ) And (rms1.Fields!person <> rms.Fields!person) then
msgbox "test"
end if

I have a feeling that you are trying to solve the problem you have here http://www.eksperten.dk/spm/640769?

If you can explain in detail what the FULL problem is then it might be easier to give and answer. When we are only asked to helkp with part of the problem it does make things more difficult!

So although you have received an answer to the ORIGINAL question you placed here´, you do NOT have a solution to the prolem you are trying to solve!

Ja , det har du ret i, orginal spørgesmålet er besvaret.
derfor vil jeg gerne invitere jer til : http://www.eksperten.dk/spm/640769?
da det er det samme koder der bruges.