oprettelse af records fra vb

While Not rec.EOF
            rec.AddNew
            rec.Fields!Or = Ord

     
        rec.Update
      rec.MoveNext
      Wend

men noget af problemmet kunne være her :
     
If Not rec.EOF Then rec.MoveFirst
While Not rec.EOF

rec.MoveFirst

        While Not rec.EOF
           
'update your fields here
   
    rec.movenext
wend

såden ser hele koden ud :


strSQL = "SELECT * FROM  Biler"
       

    Set qms = dbs.CreateQueryDef("", strSQL)
    Set rec = qms.OpenRecordset()



    Set orderlines = dom.selectNodes("//order/samplet/biler")
    Set testlinies = dom1.selectNodes("//doc/test/person")
     
      For Each AFG In orderlines

        xmlfilnavn = AFG.selectSingleNode("id").Text
        test = AFG.selectSingleNode("id").Text
        xmlfilename = xmlroot & xmlfilnavn & xmltype
        dom1.async = False
        dom1.Load (xmlfilename)
     

 
        For Each personline testlinies
        If Not rec.EOF Then rec.MoveFirst
        rec.MoveFirst
        While Not rec.EOF

            rec.Edit
            rec.Fields!Or = ORD
            rec.Fields!Mak = Me.faxnr
            rec.Fields!test = test
            rec.Fields!Bilno = personline.selectSingleNode("bilno").Text
     
        rec.Update
      rec.MoveNext
      Wend
Next
    Next
   

rec.Close
End Sub

terry den virkede ikke :(

I'll take a look later, away for a while

her er den, glem den forrige



strSQL = "SELECT * FROM  tblbiler"
       

    Set qms = dbs.CreateQueryDef("", strSQL)
    Set rec = qms.OpenRecordset()
       

   

 
  Set førstexmlLinier = dom.selectNodes("//order/sample")
    Set secondXML = dom1.selectNodes("//doc/class")
     
      For Each ALG In førstexmlLinier
        xmlfilnavn = ALG.selectSingleNode("filid").Text
        test = ALG.selectSingleNode("filid").Text
        xmlfilename = xmlroot & xmlfilnavn & xmltype
        dom1.async = False
        dom1.Load (xmlfilename)
     

       
        For Each HYT In secondXML
        If Not rec.EOF Then rec.MoveFirst
        rec.MoveFirst
        While Not rec.EOF

            rec.Edit
            rec.Fields!Or = nummer
            rec.Fields!mK = test
            rec.Fields!bilno = HYT.selectSingleNode("bilno").Text
     
        rec.Update
      rec.MoveNext
      Wend
Next
    Next
   

rec.Close
End Sub

I have NOT checked the rest of the code, only what is relevant to the question.

This part doesnt look right to me

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

            rec.Edit
            rec.Fields!Or = nummer
            rec.Fields!mK = test
            rec.Fields!bilno = HYT.selectSingleNode("bilno").Text
     
        rec.Update
      rec.MoveNext
      Wend
'.....

it should be like this (NOT TESTED)

'>>>>REMOVE If Not rec.EOF Then rec.MoveFirst
        rec.MoveFirst 'This is not normally necessary, we should be at start of recordset, but just to make sure.
        While Not rec.EOF

            rec.Edit
            rec.Fields!Or = nummer
            rec.Fields!mK = test
            rec.Fields!bilno = HYT.selectSingleNode("bilno").Text
     
        rec.Update
        rec.MoveNext

      Wend

your on your own!

closing