Can't update fields in form

Linda V · Joined: 04 Oct 2007 Posts: 1

The following code displays the form, but does not allow me to change the
value of any of the fields in the form. Can someone please tell me why,
because I sure can't figure it out. The form works fine in Access.

Notes:
The database is not marked read only.
I am the only user accessing the database (it is not locked by someone else).

Public Sub UDSloc()

Dim strDatabasePath As String
strDatabasePath = "C:\database\test.MDB"

Dim appAccess As access.Application
Set appAccess = CreateObject("Access.Application")

appAccess.OpenCurrentDatabase strDatabasePath
appAccess.Visible = True
appAccess.DoCmd.OpenForm "Test"

Set appAccess = Nothing

End Sub

Thanks for your help!

Archived from group: microsoft>public>vb>ole>automation

Anand.V.V.N · Joined: 04 Oct 2007 Posts: 3

Hi Linda,
I am not sure if this would be right the answer but may be you should open
the table also to update the fields? The code looks fine though, but do chec
kif the table needs to be opened.
Hope its helpful
Anand.V.V.N
--
"Who will guard the guards?"

"Linda V" wrote:

> The following code displays the form, but does not allow me to change the
> value of any of the fields in the form. Can someone please tell me why,
> because I sure can't figure it out. The form works fine in Access.
>
> Notes:
> The database is not marked read only.
> I am the only user accessing the database (it is not locked by someone else).
>
> Public Sub UDSloc()
>
> Dim strDatabasePath As String
> strDatabasePath = "C:\database\test.MDB"
>
> Dim appAccess As access.Application
> Set appAccess = CreateObject("Access.Application")
>
> appAccess.OpenCurrentDatabase strDatabasePath
> appAccess.Visible = True
> appAccess.DoCmd.OpenForm "Test"
>
> Set appAccess = Nothing
>
> End Sub
>
> Thanks for your help!