Your actually showing the dataform twice.

Sub AA()
Application.Goto Reference:="DataTable"
ActiveSheet.ShowDataForm
End Sub

should be sufficient. If your data doesn't start in one of cells A1:B2,
then you need to name your DataTable to DataBase.

I couldn't reproduce any space problem in a date field. It appears the
form uses the specified short date format to display the data.

--
Regards,
Tom Ogilvy
"Leanne" wrote in message
...

Deduced from a blank message?

Bob


"Tom Ogilvy" wrote in message
...
Your actually showing the dataform twice.

Sub AA()
Application.Goto Reference:="DataTable"
ActiveSheet.ShowDataForm
End Sub

should be sufficient. If your data doesn't start in one of cells A1:B2,
then you need to name your DataTable to DataBase.

I couldn't reproduce any space problem in a date field. It appears the
form uses the specified short date format to display the data.

--
Regards,
Tom Ogilvy
"Leanne" wrote in message
...

No, from the second post, but never know what the poster can see.

--
Regards,
Tom Ogilvy

"Bob Phillips" wrote in message
...
Deduced from a blank message?

Bob


"Tom Ogilvy" wrote in message
...
Your actually showing the dataform twice.

Sub AA()
Application.Goto Reference:="DataTable"
ActiveSheet.ShowDataForm
End Sub

should be sufficient. If your data doesn't start in one of cells A1:B2,
then you need to name your DataTable to DataBase.

I couldn't reproduce any space problem in a date field. It appears the
form uses the specified short date format to display the data.

--
Regards,
Tom Ogilvy
"Leanne" wrote in message
...