Toon posts:

Access automatisch formulier aanmaken met daarachter vbacode

Pagina: 1
Acties:

Verwijderd

Topicstarter
ik wil in access een formulier automatisch laten maken doormiddel van vba code.
dit is dus gelukt en ook zijn er een aantal velden en knoppen aangemaakt.

nu wil ik echter dat er ook code achter die knoppen en velden komt te staan. zodat bijvoorbeeld na het update van een bepaald tekstvak een msgbox verschijnt.

ook zou ik graag weten hoe ik via vba voor het net gegenereerde formulier de eigenschappen van een veld in kan stellen.
ik weet namelijk niet hoe dit veld gaat heten omdat je met de functie "createcontrol" geen naam voor het veld kan meegeven. je kan alleen de gegevensbron meegeven.

Het gaat om Access97

Verwijderd

Topicstarter
Weet Niemand hier een oplossing voor?

Sorry voor de vroege reply in mijn eigen topic. maar ik zou graag voor kerst nog het een en ander afmaken.

  • Lister
  • Registratie: September 2001
  • Laatst online: 15-02-2022
Het via code genereren van code kan via de InsertText methode van het module Object, ik heb onderstaande maar even uit de Access help gekopieerd:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'InsertText Method Example

'The following example inserts a string of text into a standard module:

Function InsertProc(strModuleName) As Boolean
    Dim mdl As Module, strText As String

    On Error GoTo Error_InsertProc
    ' Open module.
    DoCmd.OpenModule strModuleName
    ' Return reference to Module object.
    Set mdl = Modules(strModuleName)
    ' Initialize string variable.
    strText = "Sub DisplayMessage()" & vbCrLf _
        & vbTab & "MsgBox ""Wild!""" & vbCrLf _
        & "End Sub"
    ' Insert text into module.
    mdl.InsertText strText
    InsertProc = True

Exit_InsertProc:
    Exit Function

Error_InsertProc:
    MsgBox Err & ": " & Err.Description
    InsertProc = False
    Resume Exit_InsertProc
End Function

Dit kan ook voor modules die onder een Form hangen, die kan je via Forms!<formname>.Module benaderen.

En als je de syntax "Set ctlText = CreateControl(..." gebruikt dan kan je toch de properties van ctlText uitlezen en gebruiken?