Typo3 Developer: MS Access Tutorial - 3
How to create a form in MS Access to manage Typo3 fe_users and usergroups.
In MS Access launch the Form Wizard and select the fe_users Link Table as the form's data source.
|
 |
Select the fields you want on your form in the next screen. In this example, we will select the following fields from the fe_users table: uid, username, password, usergroup, name, and company.
|
 |
Select the Columnar layout and standard style.
|
 |
|
 |
Title your form Website Access and finish the Form Wizard.
|
 |
The first thing you will notice about the form is that the usergroup list does not display. If this field's blob data were an image, it would show an image here. We need to add some controls (form objects) and code to manage the usergroups.
|
 |
Switch to the form's Design View.
|
 |
We want our form to be user-friendly, so we are going to present the process as three easy steps. Each step will be contained in a colored box. Delete the usergroup object and its label from the form. Use the rectangle tool from the Toolbox to draw the first shape.
|
 |
Fill the shape with a color.
|
 |
Now use the Text tool from the Toolbox to draw a textbox in the shape. Use the upper-left corner handlebar to drag the label to a position above the textbox.
|
 |
Right-click on the textbox to view the control's properties. Name the textbox UsergroupList. We will display the list of usergroups that the fe_user belongs to in the textbox, edit them, and submit the new list to the Typo3 database with a button called UpdateUsergroups. We don't want someone to accidentally update the Typo3 database when there is nothing in the textbox, so we will disable the UpdateUsergroups button by default. However, we want to enable the button when there is a change in the text contained in the textbox. To do this, set the On Change event to Event Procedure and click the VB Editor button to view the code.
|
 |
Edit the starter function to the following:
Private Sub UsergroupList_Change()
' enables the UpdateUsergroups btn when there is a change in the
' UsergroupList text box
UpdateUsergroups.Enabled = Len(Me!UsergroupList.Text & "") <> 0
End Sub
Click the MS Access toggle icon in the upper-left to return to our form.
|
 |