---

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.

---

Hvad mener du med at du vil ændre kolonnebredden ??

Er det i en rapport eller hvorhenne snakker vi om i Access.

---

I tabellen....

---

Hvorfor vil du ændre kolonnebredden i tabellen ??

Hvad er formålet ??

---

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

---

Desværre kunne jeg ikke få det til at virke. Her er en stump af koden:

Dim tdfNew As TableDef

Set tdfNew = dbsSerienumre.CreateTableDef("tblSTAMDATAB")

With tdfNew
.Fields.Append .CreateField("Betegnelse", dbText)
.Fields("Betegnelse").AllowZeroLength = True
.Fields("Betegnelse").Properties("ColumnWidth") = 3700
End With

Fejl medd. er noget i retning af "Egenskaben findes ikke i denne samling.."

Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.