How do you add to the field list?

[rextacular]

I've been trying to add a few boxes to my 'Work Orders by Customer' table. Is this possible?

 

[rextacular]

This is the code I tried to create a new Control Source for an Alt Phone input....

Option Compare Database

Sub CreateNewRegSettingsFromTable()
Beg

    Dim dbLocal As Database
    Dim tblDefaults As Recordset
    Dim strAltPhone As String
    Dim strSetting As String

    On Error GoTo Err_CreateNew

    Set dbLocal = CurrentDb()
    Set tblDefaults = dbLocal.OpenRecordset("tblDefaultSettings")

    ' - - Get the application title to use as a key
    strAltPhone = dbLocal.Properties("AltPhone")

    ' - - Create settings for those defaults where there is no entry
    With tblDefaults

        Do Until .EOF
    
        StstrSetting = GetSetting(AltPhone:=strAltPhone, _
                    Section:="Settings", Key:=!SettingTitle)
                
        If Len(strSetting) = 0 Then

            SaveSetting AltPhone:=strAltPhone, Section:="Settings", _
                            Key:=!SettingTitle, Setting:=!DefaultValue
                    
            End If

            .MoveNext

        Loop

    End With

Exit_CreateNew:

    Exit Sub
    
Err_CreteNew:
    
      MsgBox Err.Description
      Resume Exit_CreateNew
Owner ChrisTucker
Save

End Sub

 

[missinglinq]

You make no mention of doing this by code, so why not simply go into Design View for the table and add them?

The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!