Discussione:
Come aggiungere una textbox e label a run-time su form continua?
(troppo vecchio per rispondere)
RobertoA
2018-10-14 10:40:18 UTC
Permalink
Usando un form continua vorrei visualizzare tante righe quanti sono i
record contenuti nella tabella ARTICOLI, supponiamo per semplicita'
costruita con 10 campi
Alla tabella in questione, vengono aggiunti successivamente dei campi,
che nella form continua dovrebbero tradursi in colonne aggiuntive
rispetto alla visualizzazione originaria
La domanda e': come fare, da codice vba, per aggiungere sul corpo della
form le textbox corrispondenti ai campi aggiunti rispetto ai 10 originali?
@Alex
2018-10-14 11:31:03 UTC
Permalink
Access non consente la creazione a runtime... quindi buon puoi.
Devi metterne in abbondanza in modalità struttura, renderli NON VISIBILI, è su open leggendo il fields.count cicli ed associ il ControlSource al Ddl.Name...
Puoi chiamarli con nome indicizzato[txtFld0÷n]

Dim fld As DAO.field
Dim idx Ad Integre
Dim lLeft ad Long
Lledt=0

For each fld in me.recordsetclone.fields
With Me.Controls("txtFld" & idx)
.ControlSource=fld.name
.left=lleft
.width=500
.Visible=true
Lleft=.left+.width
End with
Next

Ho semplificato... la parte di allineamento... ma è banale personalizzarla.

@Alex
@Alex
2018-10-14 11:47:25 UTC
Permalink
Access non consente la creazione a runtime... quindi non puoi.
Devi metterne in abbondanza da coprire le esigenze in modalità struttura, renderli NON VISIBILI, è su open leggendo il fields.count cicli ed associ il ControlSource al fld.Name...
Puoi chiamarli con nome indicizzato[txtFld0÷n]

Dim fld As DAO.field
Dim idx Ad Integre
Dim lLeft ad Long
Lleft=0

For each fld in me.recordsetclone.fields
With Me.Controls("txtFld" & idx)
.ControlSource=fld.name
.left=lleft
.width=500
.Visible=true
Lleft=.left+.width
End with
Next

Ho semplificato... la parte di allineamento... ma è banale personalizzarla.

@Alex

Loading...