Blankstil felter

Me.TheField = ""

Where you change TheField to th ecorredt field name

Det kommer an på om de andre felter er bundet til felter i en
tabel eller ikke.
I mange tilfælde er det mest praktisk, at der slet ingen underliggende
tabel er for formularen.
Data kan kan hentes ind i formularen fra Combo-boxen.
Bredden af felter, som ikke ønskes vist i Combo-boxen sættes til
nul og data til felter i formulen hentes ved hjælp af Column(x).

Jeg har en lidt hjemmelavet løsning:

De controlementer der er bundet skal du også angive kontrolelementkilden i deres mærke (Tag).

her er så den kode jeg bruger:

    Dim rs As Recordset
    Set rs = Me.RecordsetClone
    Dim ctl As Control
    rs.FindFirst "[dato] = #" & Me.Kombinationsboks3 & "#"
    If rs.NoMatch Then
      On Error Resume Next
        For Each ctl In Me.Controls
          If ctl.Tag = ctl.ControlSource Then
            ctl.ControlSource = ""
          End If
        Next ctl
        On Error GoTo 0
        MsgBox "U-nr eksisterer ikke"
    Else
      On Error Resume Next
        For Each ctl In Me.Controls
          ctl.ControlSource = ctl.Tag
        Next ctl
      On Error GoTo 0
      Me.Bookmark = rs.Bookmark
    End If
    rs.Close

hvis der findes en post sættes kilden til det der er skrevet i Tag ellers ""

Niels

Din metode virker perfekt Niels. Tak!