Performance2 fortsættelse af sp1

are you saying that this question is for Thomas only? Dont think this is allowed!

but if you want to give points for the other question then you only need to place a link to the other
http://www.eksperten.dk/spm/515510

Hej Tolveren->hvis det er en underformular, du skal have opdateret, kan du prøve med følgende:

Me![Underformularnavn].requery
Me![Underformularnavn].Sourceobject = Me![Underformularnavn].Sourceobject
Me![Underformularnavn].Form.Recordsource = Me![Underformularnavn].Form.Recordsource

Vær dog opmærksom på, at det er det rigtige Underformularnavn, du anvender. Det skal være navnet på Underformularrammen og det er ikke nødvendigvis det samme som navnet på selve formularen i databasevinduet!

/Thomas

PS: Du fik søreme ret mht Portugal :o)

Ja, Portugal vinder EM. Ronaldo og Figo er go-e. Jeg tester din nye kode i aften. Tak indtil videre. Jeg er ik dirktør.

glemte lige at sige, at du kun har behov for én af de 3 linier. Hvilken der er den rigtige afhænger af flere ting, som kræver nærmere kendskab til systemet...så bare prøv dig frem.

Jeg har prøvet at indsætte koden:

Me![Underformularnavn].requery

på current. Der sker ikke opdatering efter at jeg har anvendt enter-knappen.

Jeg har prøvet at indsætte koden på "afterupdate". Her fejler koden.

Har du husket at skifte [Underformularnavn] ud med det rigtige (hvad det så end er?)

Ellers prøv en af de 2 andre....

Jeg har udskiftet underformularnavn med navnet på den underliggende forespørgsel til underformularen.

Det er svært at gennemskue, hvad der går galt....du er velkommen til at sende db'en til mig. Så skal jeg kigge på den.
Det er formentlig blot en bagatel, som driller...

Jeg har lagt koden på en knap:

Private Sub Kommandoknap52_Click()
On Error GoTo Err_Kommandoknap52_Click

    Me![Forespørgsel_1].Requery
    Me![Forespørgsel_2].Requery

Exit_Kommandoknap52_Click:
    Exit Sub
Err_Kommandoknap52_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap52_Click   
End Sub
-------------
Det virker OK.
Men:
Private Sub Form_Current()
Dim rs As DAO.Recordset
Dim stDocName As String

    On Error Resume Next
   
        Set rs = Me.RecordsetClone
        rs.MoveLast
        Me!Udskibningsdato_Dato.DefaultValue = "'" & rs!Udskibningsdato_Dato & "'"
        Me!Bmrk.DefaultValue = "'" & rs!Bmrk & "'"
        rs.Close

End Sub
-----------
Hvordan ville du sætte koden ind i ovst på current og få den til at virke
hver gang du taster "Enter".

Umiddelbart ville jeg bare skrive således:

Private Sub Form_Current()
Dim rs As DAO.Recordset
Dim stDocName As String

    On Error Resume Next
   
        Set rs = Me.RecordsetClone
        rs.MoveLast
        Me!Udskibningsdato_Dato.DefaultValue = "'" & rs!Udskibningsdato_Dato & "'"
        Me!Bmrk.DefaultValue = "'" & rs!Bmrk & "'"
        rs.Close
    Me![Forespørgsel_1].Requery
    Me![Forespørgsel_2].Requery
End Sub


Men hvorvidt det sker lige akurat hver gang du taster ENTER afhænger af flere ting. ENTER kan jo lige så godt bare få den til at hoppe til næste felt i samme post. Og så bliver Form_Current ikke aktiveret.