Har gjort en lisruta som jag fyllt med mina tabeller...när man trycker på en knapp så ska ett snabbformulär skapas när man valt tabell i listrutan. Har fixat så listrutan har tabellerna och när jag trycker på knappen skapas formuläret men det blir utan fält!?:-)
Vid onclick för knappen har jag skrivit följande
kod:
Private Sub Command135_Click()
Dim frm As Form
Dim ctlLabel As Control
Dim ctlText As Control
Dim intDataX As Integer
Dim intDataY As Integer
Dim intLabelX As Integer
Dim intLabelY As Integer
Dim dbs As Database
Dim fld As Field
Dim tbl As TableDef
Set dbs = CurrentDb()
Set tbl = dbs.TableDefs(cboTAbell)
'Skapa ett nytt formulär
Set frm = CreateForm
frm.RecordSource = cboTAbell
'Ange positionsvärden för den nya kontrollen
intLabelX = 100
intLabelY = 100
intDataX = 1000
intDataY = 100
'Skapa en textruta av standardstorlek i detalj
For Each fld In tbl.Fields
Set ctlText = CreateControl(frm.Name, acTextBox, , "", fld.Name, intDataX, intDataY)
'Skapa en underordnad etikett till textrutan
Set ctlLabel = CreateControl(frm.Name, acLabel, , ctlText.Name, fld.Name, intLabelX, intLabelY)
intLabelX = 100
intLabelY = intLabel + 400
intDataX = 1000
InstDataY = intDataY + 400
Next fld
DoCmd.Restore
End Sub
Den buggar vid: For Each fld In tbl.Fields
Varför?
Tack för hjälp!