17. oktober 2003 - 10:38Der er
3 kommentarer og 1 løsning
Sætte kolonne bredde til "best fit" i et datasheet
Jeg har en form med mange datafelter på. Når formen bliver vist som datasheet, vil jeg gerne have alle kolonnerne indstillet til "best fit" bredde. Hvordan gør jeg det???
Jeg har selv forsøgt med følgende kode i "On Load" eventen:
>Me.Refresh >Dim contrl As Control >For Each contrl In Me.Controls > Me.contrl.ColumnWidth = -2 'Sæt bredde til Best Fit >Next
Jeg tror problemet med denne kode, er at den også tager labels med, som er på formen.
Jeg prøvede lige at slette alle labels, og kun lade datafelterne stå tilbage, uden held. Access melder fejl på denne linie på metoden "contrl": >Me.contrl.ColumnWidth = -2
Ja. Du skal ikke referere til "me.contrl", kun "contrl" - og så skal du udelade etiketter, altså:
Me.Refresh Dim contrl As Control For Each contrl In Me.Controls If contrl.ControlType <> acLabel Then contrl.ColumnWidth = -2 'Sæt bredde til Best Fit End If Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
