Error accessing file?

[GCM]

I have a database which was created from another parent database by
combining some fields into one field for clerification purposes. When I
create a for with the following command I get this error:

Error accessing file. Network connection may have been lost.

Following is the function I use. Eveything else works fine. This function
worked on the parent database. The form data is linked to the proper table:

-------------------------------------------------
Private Sub Search_Click()
On Error GoTo Err_Search_Clic k
Screen.Previous Control.SetFocu s
DoCmd.DoMenuIte m acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Search_Cli ck:
Exit Sub

Err_Search_Clic k:
MsgBox Err.Description
Resume Exit_Search_Cli ck

End Sub
--------------------------------------------------

Thanks in advance...
gcm

[ManningFan]

First, take off this line:
Screen.Previous Control.SetFocu s

Then, do a repair/compact on the database and try it again. If it
works, try adding that line back into the sub.

GCM wrote:

I have a database which was created from another parent database by
combining some fields into one field for clerification purposes. When I
create a for with the following command I get this error:

Error accessing file. Network connection may have been lost.

Following is the function I use. Eveything else works fine. This function
worked on the parent database. The form data is linked to the proper table:

-------------------------------------------------
Private Sub Search_Click()
On Error GoTo Err_Search_Clic k
Screen.Previous Control.SetFocu s
DoCmd.DoMenuIte m acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Search_Cli ck:
Exit Sub

Err_Search_Clic k:
MsgBox Err.Description
Resume Exit_Search_Cli ck

End Sub
--------------------------------------------------

Thanks in advance...
gcm

[GCM]

ManningFan,

Thanks for the suggestion, but that didnt work either. When I deleted the
line from the command, nothing would work. Icouldn't save the form or
compact the database. I appreciate your efforts very much.

Thanks,
gcm

"ManningFan " <ma********@gma il.comwrote in message
news:11******** **************@ i42g2000cwa.goo glegroups.com.. .

First, take off this line:
Screen.Previous Control.SetFocu s

Then, do a repair/compact on the database and try it again. If it
works, try adding that line back into the sub.

GCM wrote:

>I have a database which was created from another parent database by
combining some fields into one field for clerification purposes. When I
create a for with the following command I get this error:

Error accessing file. Network connection may have been lost.

Following is the function I use. Eveything else works fine. This function
worked on the parent database. The form data is linked to the proper
table:

-------------------------------------------------
Private Sub Search_Click()
On Error GoTo Err_Search_Clic k
Screen.Previous Control.SetFocu s
DoCmd.DoMenuIte m acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Search_Cl ick:
Exit Sub

Err_Search_Cli ck:
MsgBox Err.Description
Resume Exit_Search_Cli ck

End Sub
--------------------------------------------------

Thanks in advance...
gcm