change field name on a combo box

[Jeffrey Tan]

So i have a few forms that are named similarly:

Maintenence-users
Maintenence-files
Maintenence-printers

i have a combo box that shows these forms and a button that opens up the form i selected.

i do not want the words "Maintenence" to show up in the combo box and i do not want to rename the forms themselves..

any way to keep the original name, but display names in combobox differently?

Thanks!

[NeoPa]

Sure. Strip the "Maintenance-" part from the name when populating the ComboBox and add it in the code that opens the form. Does that make sense?

[Rabbit]

Or, you could use a two column combo box. One for display purposes, and another that is hidden that is the value.

[nico5038]

I would probably use a Maintenance Main form and have a tabbed control labelled with the "users", etc.
On each tab a subform can hold the data.

Idea ?

Nic;o)

[Jeffrey Tan]

@NeoPa
how would i do that?

the combo box pulls the systemobjs from this sql

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Name) Like "*Maintenence*") AND ((MSysObjects.Type)=-32768))
ORDER BY MSysObjects.Name;

the button does this

Private Sub Command3_Click()
On Error GoTo Err_Command3_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    Combo1.SetFocus
    stDocName = Combo1.Text
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Command3_Click:
    Exit Sub
 
Err_Command3_Click:
    MsgBox Err.Description
    Resume Exit_Command3_Click
 
End Sub

see the part with Combo1.SetFocus and stDocName = Combo1.Text?

@Rabbit
that sounds like a plan? can you show me how i can do that based on the previous reply above?

Thanks a bunch!

[Jeffrey Tan]

nvm. still the same one. sorry about that.

@Rabbit: I think i'll try your way. do you have any sample code i can test? thanks

[NeoPa]

Your SQL would be :

SELECT   Mid([Name],13)
FROM     [MSysObjects]
WHERE    (([Name] Like "Maintenence_*")
  AND     ([Type] = -32768))
ORDER BY [Name]

Your Button code would be :

Private Sub Command3_Click()
On Error GoTo Err_Command3_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    Combo1.SetFocus
    stDocName = "Maintenance_" & Combo1.Text
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Command3_Click:
    Exit Sub
 
Err_Command3_Click:
    MsgBox Err.Description
    Resume Exit_Command3_Click
 
End Sub

[Jeffrey Tan]

@NeoPa:

Thanks! Worked perfectly :D

[NeoPa]

Always a pleasure Jeffrey :-)