Det er ingen aktuel post

Du er nødt til at bruge rec.Addnew for at tilføje.

Du kan evt spørge på rec.eof eller recordcount inden:

If rec.recordcount > 0 or rec.eof then
    rec.edit
else
    rec.addnew
endif

Den blev vist lidt omvendt. Sådan:

If rec.recordcount = 0 or rec.eof then
    rec.addnew
else
    rec.edit
endif

hmmm. nu melder den igen "Det er ingen aktuel post"" men bare
ved  rec.MoveNext som er den sidste sætning i min løkke

det kommer til at se sådan ud :

      If rec.RecordCount = 0 Or rec.EOF Then
      rec.AddNew
      Else
      rec.Edit
      End If

    rec.Update
  rec.MoveNext

også skriver jeg til databasen midt i

hmm.... hvor i henne ?

To add a new record you should just use,


rec.addnew
'Now adde the fields

rec.update


its also allowed to add records to a recordset which alreday contains records!

sorry...havde lige en familie og noget mad, der skulle laves/spises :o)

Du kan ikke lave en .movenext, hvis du allerede står i slutningen af recordsettet.

Så på en eller anden måde er du nødt til at styre det således, at rec.movenext kun udføres hvis du har brugt rec.edit.

Det er lidt svært at gennemskue, når vi ikke har hele koden...kan du paste den?

Jeg paster lige koden det tager et par min

er der nogen

ok jeg har lavet noget ved dette kode, så det kommer til at løse også et andet spørgesmål som jeg har stillet her på eksperten og da den ikke er accepteret, ville løsningen på denne også være = dens.

jeg har en main xml som indholder sub xml ernes navne
i koden prøver jeg at hente navne af sub xml ud fra main xml, og senere åbner jeg op for sub xml og prøver at smide de ting derinde fra ind i min tabel som er tom til at starte med.

koden ser sådan ud .:



' sql streng til at gemme i denne tabel
strSQL = "SELECT * FROM Bil"
       
    Set qms = dbs.CreateQueryDef("", strSQL)
    Set rec = qms.OpenRecordset()
       
    ' Main Xml fil som indholder navne på subxml filer som skal bruges
    Set lines= dom.selectNodes("//order/xmlliste")
    Set AIR = dom1.selectNodes("//doc/biler/bil")
     
    For Each ELM In lines
        xmlfilnavn = ELM.selectSingleNode("filId").Text
        test = ELM.selectSingleNode("filId").Text
        xmlfilename = xmlroot & xmlfilnavn & xmltype
        dom1.async = False
        dom1.Load (xmlfilename)
     
    'Her har vi fat i sub xml filer for at hente data fra dem


    For Each Order In AIR
        If Not rec.EOF Then rec.MoveFirst
        While Not rec.EOF

        If rec.RecordCount = 0 Or rec.EOF Then
          rec.AddNew
        Else
          rec.Edit
        End If


      ' her gemmes værdier fra xml fil til tabellen
        rec.Fields!filename = xmlfilnavn
        rec.Fields!Bilnr = order.selectSingleNode("BilNo").Text

    rec.Update
  rec.MoveNext
  Wend
Next
Next
rec.Close
End Sub

jeg har afsat flere poin , og også fordi jeg gået i stå :(

problemmet dukker vist op her  :


      If Not rec.EOF Then rec.MoveFirst
        While Not rec.EOF

        If rec.RecordCount = 0 Or rec.EOF Then
          rec.AddNew
        Else
          rec.Edit
        End If


      ' her gemmes værdier fra xml fil til tabellen
        rec.Fields!filename = xmlfilnavn
        rec.Fields!Bilnr = order.selectSingleNode("BilNo").Text

    rec.Update
  rec.MoveNext
  Wend



og jeg trore at det er fordi jeg ikke kan finde helt ud af det med courser dvs. det der med at stille mig den rigtige sted i tabellen og gå i rigtige retning

Bare en ide:

' sql streng til at gemme i denne tabel
strSQL = "SELECT * FROM Bil"
       
    Set qms = dbs.CreateQueryDef("", strSQL)
    Set rec = qms.OpenRecordset()
       
    ' Main Xml fil som indholder navne på subxml filer som skal bruges
    Set lines= dom.selectNodes("//order/xmlliste")
    Set AIR = dom1.selectNodes("//doc/biler/bil")
     
    For Each ELM In lines
        xmlfilnavn = ELM.selectSingleNode("filId").Text
        test = ELM.selectSingleNode("filId").Text
        xmlfilename = xmlroot & xmlfilnavn & xmltype
        dom1.async = False
        dom1.Load (xmlfilename)
     
    'Her har vi fat i sub xml filer for at hente data fra dem

    On Error resume next  'Ignorer fejl
    For Each Order In AIR
        If Not rec.EOF Then rec.MoveFirst
        While Not rec.EOF
            rec.addnew
            rec.Edit

            ' her gemmes værdier fra xml fil til tabellen
            rec.Fields!filename = xmlfilnavn
            rec.Fields!Bilnr = order.selectSingleNode("BilNo").Text

            rec.Update
            rec.MoveNext
        Wend
    Next Order
Next ELM
rec.Close
End Sub

det eneste ændring er det : On Error resume next

Jeg har også ændret i din While-Wend-løkke

den hopper ud af løøken her     
     
      For Each Order In AIR
        If Not rec.EOF Then rec.MoveFirst

jeg paster lige koden ind

terry den hopper ud af løkken ved  :  While Not rec.EOF



udpluk :
    On Error resume next  'Ignorer fejl
    For Each Order In AIR
        If Not rec.EOF Then rec.MoveFirst
        While Not rec.EOF  ' her hopper den ud af løkken og får aldrig skrevet noget til tabellen, (min tabel er tom! )

undskyld jeg mener thomasjepsen og ikke terry

den hopper også ud af løkken  ved :  While Not rec.BOF

jeg skal lige have forklaret hvad du ønsker:

For hver ORDER ønsker du at oprette eller rette én post i Bil-tabellen? Er det korrekt?

Derfor skal du vel ikke gennemløbe hele Bil-tabellen?

jeg har ikke nogen ordre i tabellen den er tom, der er for hver bilno vil jeg gerne oprette en post i min tabel.


rec.Fields!Bilnr = order.selectSingleNode("BilNo").Text



jeg har stillet mig i tabellen uden noget som helst kritier:
' sql streng til at gemme i denne tabel
strSQL = "SELECT * FROM Bil"


derfor regnede jeg med at det var ok, og at jeg bare kunne høvle alt ind i min tabel

Dim order As IXMLDOMNodeList

order er erklæret her

ok, nu kørere den i løkken men jeg får kun tilføjet en post den kørere ikke videre til næste post

nej den hopper ud af løkken alligevel
    While Not rec.BOF

Men hvis du vil oprette en post i Bil-tabellen for hver ORDER i doc/biler/bil, så behøver du vel ikke Rec.edit. Så skal du jo bare altid bruge rec.addnew:

' sql streng til at gemme i denne tabel
strSQL = "SELECT * FROM Bil"
       
    Set qms = dbs.CreateQueryDef("", strSQL)
    Set rec = qms.OpenRecordset()
       
    ' Main Xml fil som indholder navne på subxml filer som skal bruges
    Set lines= dom.selectNodes("//order/xmlliste")
    Set AIR = dom1.selectNodes("//doc/biler/bil")
     
    For Each ELM In lines
        xmlfilnavn = ELM.selectSingleNode("filId").Text
        test = ELM.selectSingleNode("filId").Text
        xmlfilename = xmlroot & xmlfilnavn & xmltype
        dom1.async = False
        dom1.Load (xmlfilename)
     
    'Her har vi fat i sub xml filer for at hente data fra dem

    On Error resume next  'Ignorer fejl
    For Each Order In AIR
            rec.addnew

            ' her gemmes værdier fra xml fil til tabellen
            rec.Fields!filename = xmlfilnavn
            rec.Fields!Bilnr = order.selectSingleNode("BilNo").Text

            rec.Update
    Next Order
Next ELM
rec.Close
End Sub

hvad nu hvis posten findes i forvejen

ok, nu skriver den alt det jeg gerne vil have ind i tabellen, men hvis brugeren trykker to gange så bliver tingene skrevet ind 2 gange

Så vil der opstå en fejl, som bare ignoreres.

Du kunne evt prøve denne:

On Error resume next  'Ignorer fejl
    For Each Order In AIR
            rec.addnew

            ' her gemmes værdier fra xml fil til tabellen
            rec.Fields!filename = xmlfilnavn
            rec.Fields!Bilnr = order.selectSingleNode("BilNo").Text

            rec.Update
            If Err then
                rec.addnew

                ' her gemmes værdier fra xml fil til tabellen
                rec.Fields!filename = xmlfilnavn
                rec.Fields!Bilnr = order.selectSingleNode("BilNo").Text
                rec.Update
            endif
    Next Order
Next ELM
rec.Close
End Sub

Hvis tingene skrives ind 2 gange, så skyldes det, at du mangler et unikt indeks på din tabel.

jeg har en unik indeks , den har jeg fjernet for at få det her til virke, og nu når det virker så har jeg sat min unik index på igen.
men her kommer problemmet så.
1 gang: skriver jeg tingene ind  '  det fungere fint
2 gang: så melder den fejl !  ' men denne kan ignoreres

så er der det at hvis xml filen har været ændret ved 2 gang så kommer ændringerne ikke på ! ! fordi vi ignorere fejlen

den skal ligesom opdatere den istedetfor at skrive den på ny

Hvis bilnr er unik og nummerisk, så prøv denne:

On Error resume next  'Ignorer fejl
    For Each Order In AIR
            rec.addnew

            ' her gemmes værdier fra xml fil til tabellen
            rec.Fields!filename = xmlfilnavn
            rec.Fields!Bilnr = order.selectSingleNode("BilNo").Text

            rec.Update
            If Err then
                rec.Findfirst "Bilnr = order.selectSingleNode("BilNo").Text
                rec.Edit
                  ' her gemmes værdier fra xml fil til tabellen
                  rec.Fields!filename = xmlfilnavn
                  rec.Fields!Bilnr = order.selectSingleNode("BilNo").Text
                rec.Update
            endif
    Next Order
Next ELM
rec.Close
End Sub

On Error resume next  'Ignorer fejl
    For Each Order In AIR
            rec.addnew

            ' her gemmes værdier fra xml fil til tabellen
            rec.Fields!filename = xmlfilnavn
            rec.Fields!Bilnr = order.selectSingleNode("BilNo").Text

            rec.Update
            If Err then
                rec.Findfirst "Bilnr = order.selectSingleNode("BilNo").Text
                rec.Edit
                  ' her gemmes værdier fra xml fil til tabellen
                  rec.Fields!filename = xmlfilnavn
                  rec.Fields!Bilnr = order.selectSingleNode("BilNo").Text
                rec.Update
              rec.movenext  ' skal den ikke med
            endif
    Next Order
Next ELM
rec.Close
End Sub

men det virker nu tussind tak for hjælpen :)

Super! og selv tak :o)

: )