pkjoeller <pkjoeller.news@kandu.dk> wrote:
> Jeg har oprettet en Access2000-database med VBA, men kan ikke
> finde koden for at ændre kolonnebredden i tabellen. Nogen forslag?
>
> På forhånd tak.
Hej pkjoeller
Prøv at se om du ikke kan bruge nedenstående stump kode
Public Sub changeColSize(strTable As String, strField As String,
sinWidth As Single)
On Error GoTo errHandler
Dim db As Database
Dim tbl As TableDef
Dim fld As Field
Set db = CurrentDb
Set tbl = db.TableDefs(strTable)
Set fld = tbl.Fields(strField)
fld.Properties("ColumnWidth") = sinWidth
errHandler:
End Sub
Håber du kan bruge det til noget
--
Mikkel Bundgaard
Student at IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum