Access VBA Oprette en tekstboks i rapport fra kildekoden

Du kan bruge metoden Application.CreateReportControl() til at oprette en tekstboks. Du kan derefter formatere tekstboksen.

Kan du give et eksempel der indeholder ovenstående detaljer?

Her har du en lille metode der kan gøre tricket:

Public Sub CreateTextBox(strReportName As String)
    Dim txt As TextBox
   
    ' Åbner rapporten i Design View da man
    ' ellers ikke kan oprette tekstboksen
    DoCmd.OpenReport strReportName, acViewDesign
   
    ' Opretter tekstboksen
    Set txt = CreateReportControl(strReportName, _
        acTextBox, acDetail, , , 1, 1)
   
    ' Formater tekstboksen
    txt.Name = "MyTextBoxName"
    txt.ControlSource = "=Date()"
   
    ' Lukker rapporten igen
    DoCmd.Close acReport, strReportName, acSaveYes
   
    ' Åbner rapporten i Preview
    DoCmd.OpenReport strReportName, acViewPreview
End Sub

Nu har jeg prøvet at smide den kode ind i min rapport, men der kommer ikke nogen tekstboks frem... ?

Har oprette samme spørgsmål, dog med flere point.