OK here it is ready to go, tested and debugged...<br>
<br>
------------------------ Put this in your On_load event of the form<br>
Private Sub Form_Current()<br>
On Error GoTo Err_TableDefs<br>
Dim dbs As Database<br>
Dim tdfNew As TableDef<br>
Dim tdfLoop As TableDef<br>
Dim prpLoop As Property<br>
Dim ComboRow As String<br>
Set dbs = CurrentDb<br>
' Create new TableDef object, append Field objects<br>
' to its Fields collection, and append TableDef<br>
' object to the TableDefs collection of the<br>
' Database object.<br>
Set tdfNew = dbs.CreateTableDef("NewTableDef"

<br>
tdfNew.Fields.Append tdfNew.CreateField("Date", dbDate)<br>
<br>
dbs.TableDefs.Append tdfNew<br>
<br>
With dbs<br>
Debug.Print .TableDefs.Count & _<br>
" TableDefs in " & .Name<br>
ComboRow = ""<br>
' Enumerate TableDefs collection.<br>
For Each tdfLoop In .TableDefs<br>
<br>
If Left(tdfLoop.Name, 3) = "LOG" Then<br>
'Add to combo box<br>
Debug.Print " " & tdfLoop.Name<br>
ComboRow = ComboRow & Chr$(34) & tdfLoop.Name & """;"<br>
End If<br>
<br>
Next tdfLoop<br>
Me!Combo2.RowSource = Left(ComboRow, Len(ComboRow) - 1)<br>
.Close<br>
End With<br>
<br>
Exit_TableDefs:<br>
Exit Sub<br>
<br>
Err_TableDefs:<br>
Select Case Err.Number<br>
Case 3010<br>
'Table already exists<br>
DoCmd.DeleteObject acTable, "NewTableDef"<br>
Resume Next<br>
Case Else<br>
MsgBox "Error # " & Err.Number & " " & Err.Description, vbInformation, "In sub TableDefs"<br>
Resume Exit_TableDefs<br>
End Select<br>
<br>
End Sub<br>
<br>
<br>
<p> DougP<br><a href=mailto: dposton@universal1.com> dposton@universal1.com</a><br><a href= > </a><br>