VBA to prompt for InputBox of all the Tables in a DB?

[MikeL]

Hello,
Would like an InputBox where the user can pick from one of all the tables in the DB?
Sub GetTableNames() Dim tdf As TableDef For Each tdf In CurrentDb.TableDefs If tdf.Name Like "MSys*" Or tdf.Name = "Accesss System" Then Else result = InputBox("Enter value for " & tdf.Name, "Table Value Input", "Default Value") End If Next tdf End Sub
Thanks in advance,

 

[Micron]

Input boxes don't open with information in them - you have to enter it yourself, then it returns the entered text to your code. Maybe what you want is a listbox list of non-system tables?
Code should be in code tags (use vba button on posting toolbar) and properly indented.

 

[jackd]

Why would user be selecting a table? If it is to show fields/columns, then suggest, as micron did, a form with a listbox. Listbox rowsource could be all non-system tables, and user could select 1(or more tables) and the after update of the listbox could invoke a display of field/column names in the selected table. But, we really need to know more about the "business process" that you feel an inputbox is an appropriate solution.