I have created a General Information Table, that Users can maintain.
The table has two columns, with similar information contained as shown below
Expand|Select|Wrap|Line Numbers
- ATTRIBUTENAME ATTRIBUTEVALUE
- DepartmentName RECOVERY
- DepartmentHead Linda Lost
- DepartmentEmail Email@Department
- DepartmentAddress 10 Collins Street, Melbourne
Expand|Select|Wrap|Line Numbers
- SELECT tblGeneralInformation.Attributename
- FROM tblGeneralInformation
- WHERE (((tblGeneralInformation.attributevalue)='DepartmentName'));
But how do I write this in vba?? Can anyone help me fill in the ? below.
Thanks
Expand|Select|Wrap|Line Numbers
- Private Sub Report_Open(Cancel As Integer)
- lblDepartmentName.Caption = ?
- End Sub