Hej!
Håller på med ett fraktsedelsprogram.
I en kombinationsruta kan användaren välja ett objektnummer. När kombinationsrutan har uppdaterats ska diverse leveransfakta skrivas till textrutor. Använder följande kod:

Objektnr_AfterUpdate()
Me!Leveransnamn = Me![Objektnr].Column(1)
Me!Leveransreferens = Me![Objektnr].Column(2)
…

Me!Speditörsnr = Me![Objektnr].Column(10)

End Sub

I de fall som t ex leveransreferens saknas får jag följande felmeddelande:
Körfel nr ’3315’. Fältet Fraktsedel.Leveransreferens får inte vara tomt.

Någon som har förslag på hur jag ska komma tillrätta med problemet att det ibland saknas leveransfakta när text ska skrivas till textrutorna. Funderade på någon slags If-sats. Men det blir många If satser för ibland kan det vara 9 st fält som saknar leveransfakta.

<code>
Objektnr_AfterUpdate()
Me("Leveransnamn") = Objektnr.Column(1)
If Len(Objektnr.Column(2)
) > 0 Then
Me("Leveransreferens") = Objektnr.Column(2)
Else
Me("Leveransreferens") = Null
End If
Me("Speditörsnr") = Objektnr.Column(10)

End Sub
</code>

Motfråga: varför binder du inte formuläret till tabellen och använder kombinationsrutan som en uppslagsruta?

Kod som genereras om du använder guiden i access:

Set rs = Me.Recordset.Clone
rs.FindFirst "[idnr] = " & Str(Nz(Me![objektnr], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark