Haster ! VB6.0 og udskrift

Kan du ikke prøve at skrive den del af koden du har problemer med...

-Webcrawler

Hej webcrawler:
Selfølgelig, her er min kode, når jeg trykker på
Printkundekort finder jeg den kunde der har tilsvarende kundenr. i \"Text1Kundenrr.Text\",
efterfølgende finder jeg tilhørende kontaktperson.

Dette virker fint, forstået på den måde at jeg får overført det rigtige til min udskritdatabase.

Problemet er når jeg kommer til koden i bunden
\"
        DEXX.Comuskdb1
       
        Udksriftkundekort_1.Show vbModal

får jeg vist det forrige der var i min udskriftdatabase, selvom jeg start med at tømme den..

Jeg forstår ingenting ????
Håber det giver mening
mvh Pallevad


\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

Private Sub Printkundekort_Click()

Dim rsudskrift As DAO.Recordset
Dim fundet As Boolean, flere As Boolean
Dim DEXX As New DEuskdb1

    dbbooking.Execute \"DELETE * FROM udskrift\"
    Set rsudskrift = dbbooking.OpenRecordset(\"udskrift\")
   
        If rskunder.RecordCount > 0 Then
        rskunder.MoveFirst
        While Not rskunder.EOF
            If rskunder!kundeid = Text1Kundenrr.Text Then
            If rskontaktpersoner.RecordCount > 0 Then
            rskontaktpersoner.MoveFirst
            While Not rskontaktpersoner.EOF

                If rskontaktpersoner!kundeid = Val(Text1Kundenrr.Text) Then
                rsudskrift.AddNew
                rsudskrift!felt1 = rskunder!kundeid
                rsudskrift!felt2 = rskunder!Kundenavn
                rsudskrift!felt3 = rskunder!Afdeling
                rsudskrift!felt4 = rskunder!Adressep
                rsudskrift!felt5 = rskunder!PostNr
                rsudskrift!felt6 = rskunder!By
                rsudskrift!felt7 = rskontaktpersoner!Fornavn
                rsudskrift.Update
                End If
               
            rskontaktpersoner.MoveNext
            Wend
            End If
            End If
        rskunder.MoveNext
        Wend
        End If
        If rsudskrift.RecordCount = 0 Then
        rsudskrift.Close
        MsgBox \"Intet til udskrift\"
        Else
        rsudskrift.Close
   
        End If

        DEXX.Comuskdb1
       
        Udksriftkundekort_1.Show vbModal
     
     
End Sub

Problemet blev løst ved at definere en timer

mvh Palle vad