Skærmopdatering i en form

har du prøvet den sædvanlige med bookmark og Recordset/recordsetclone?

Hej Thomas - min function ser sådan ud

Function indset()
    Dim BrId As Long
    BrId = Me.BryderId
    Dim rs As Recordset
 
    DoCmd.SetWarnings False
    If Me.ActiveControl = 1 Then
        DoCmd.RunSQL "delete * from stævneInvitation Where BryderId = " & _
            Me!BryderId & " AND StævneId = " & Me.ActiveControl.Tag
    Else
      DoCmd.RunSQL "INSERT INTO stævneInvitation ( BryderId, StævneId ) VALUES (" & _
            Me!BryderId & " , " & Me.ActiveControl.Tag & ")"
    End If
    DoCmd.Requery
   
    Set rs = Me.RecordsetClone
   
    rs.FindFirst "bryderid  = " & BrId
    Me.Bookmark = rs.Bookmark
    DoCmd.SetWarnings True
   
End Function

Hvis jeg aktivere koden på den sidste post bladre hele det fine grid væk og man kan kun se den sidste linje (post)

Uden findfirst ..... går jeg til første linje og kan ikke se den akrydsning jeg lige har foretaget ):

Du gir vel ikke op på alle mine underlige spørgsmål... :)

hmm....nææ....det gør jeg...da...ikke...;o)


Er antallet af kolonner dynamisk? Hvis ikke, har du så angivet kolonneoverskrifter i egenskberne for krydstabulleringen?

Ja antallet er dynamisk
Kollone overskrifterne er stævneid, hvilket jeg gemmer i afkrydsningsfelterne's Tag egenskab.
Ettiketerne til kollonerne hentes vha. en dlookup

Niels

Jeg har desuden skævet til dit eks. med rapporten med dynamisk antal kollone overskrifter :)

ja, jeg skulle lige til at foreslå det. Dlookup er ikke optimalt ;o)

fejlen skyldes ikke, at du har noget kode på form_current, som bruges til at styre overskrifter eller lign?

Ellers er jeg rimelig blank :o(

i følge debuggeren er det kun den ene function der gennemløbes.

Jeg lader spørgsmålet stå til de morgenfriske.

Ja så lukker jeg dette spørgsmål.