Search code examples
vbadatabasems-accesscombobox

Getting #Name? error in combobox - MS Access

I'm trying to set the default value of a few items on my form so I don't have to keep updating them as I scan items to a table. I have 3 comboboxes in my form and the other two are working fine (keeping the same value after record entry) but the cbx for "Equipment" is consistently giving me this error. I've tried updating field names by going from "Type" to "Equipment Type" and now to "Equipment" and that has not fixed it. I'll try to give good context below, but please let me know if there is more information you need. Thanks! --Forgot to mention that the table for equipment types has one field: "EQType" and it is set as the primary key.

VBA to set default values in comboboxes

Private Sub Serial_Number_AfterUpdate()

[Equipment].DefaultValue = [Equipment]
[ToTech].DefaultValue = [ToTech]
[FromTech].DefaultValue = [FromTech]

End Sub

Field names of the table I'm updating:

  • Serial Number (Textbox)
    • Control source: Serial Number
  • Equipment (Combobox)
    • Control source: Equipment
    • Row Source: SELECT EQType FROM EquipmentTypes;
  • From Tech (Combobox)
    • Row Source: SELECT Roster.TechID FROM Roster;
  • To Tech (Combobox)
    • Row Source: SELECT Roster.TechID FROM Roster;
  • Date Added (Textbox) --Default Value set to "=Date()"

Information about form:

Split form, named "Transfers", Record Source = Transfers table

Solution

  • DefaultValue is text, so you probably miss to quote the value:

    Private Sub Serial_Number_AfterUpdate()

    Me![Equipment].DefaultValue = "'" & Me![Equipment].Value & "'"
    Me![ToTech].DefaultValue = Me![ToTech].Value
    Me![FromTech].DefaultValue = Me![FromTech].Value

End Sub