I'm using code in a form open event to connect to back end table


Private Sub Form_Load()
Dim tbl As TableDef
For Each tbl In CurrentDb.TableDefs
If (tbl.Attributes And dbSystemObject) = 0 _
Then tbl.Connect = ";DATABASE=" & CurrentProject.path &
"\JHP_be.mdb": tbl.RefreshLink
Next

I used this before without a problem but I keep getting errors this time

I cant help wonder whether the code is OK (always was before) and I'm just
not running it early enough

Is there anyway I can run this code upon start up (not wait until the form
opens on start up)

Knowing the errors would definitely help people...

If the form is bound, then yes, the Load event it too late: try the Open
event instead. Your best bet, though, might be to have an unbound form as
your Startup form, and put the code in it (either Open or Load should work)

--
Doug Steele, Microsoft Access MVP
http://www.AccessMVP.com/djsteele
Co-author: "Access 2010 Solutions", published by Wiley
(no e-mails, please!)



"Chris K" <(E-Mail Removed)> wrote in message
news:ESfao.110007$qO1.71499@hurricane...
> I'm using code in a form open event to connect to back end table
>
>
> Private Sub Form_Load()
> Dim tbl As TableDef
> For Each tbl In CurrentDb.TableDefs
> If (tbl.Attributes And dbSystemObject) = 0 _
> Then tbl.Connect = ";DATABASE=" & CurrentProject.path &
> "\JHP_be.mdb": tbl.RefreshLink
> Next
>
> I used this before without a problem but I keep getting errors this time
>
> I cant help wonder whether the code is OK (always was before) and I'm just
> not running it early enough
>
> Is there anyway I can run this code upon start up (not wait until the form
> opens on start up)

The error varies "JHPmain (form recordsource) does not exist" - sometimes
"Disk Error"

Tried it in Form Open and still errors

I found my old database with same routine in Form Load and it connects all
five table without issue

I dont get it

"Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_gmail.com> wrote in message
news:i4c8fd$n70$(E-Mail Removed)...
> Knowing the errors would definitely help people...
>
> If the form is bound, then yes, the Load event it too late: try the Open
> event instead. Your best bet, though, might be to have an unbound form as
> your Startup form, and put the code in it (either Open or Load should
> work)
>
> --
> Doug Steele, Microsoft Access MVP
> http://www.AccessMVP.com/djsteele
> Co-author: "Access 2010 Solutions", published by Wiley
> (no e-mails, please!)
>
>
>
> "Chris K" <(E-Mail Removed)> wrote in message
> news:ESfao.110007$qO1.71499@hurricane...
>> I'm using code in a form open event to connect to back end table
>>
>>
>> Private Sub Form_Load()
>> Dim tbl As TableDef
>> For Each tbl In CurrentDb.TableDefs
>> If (tbl.Attributes And dbSystemObject) = 0 _
>> Then tbl.Connect = ";DATABASE=" & CurrentProject.path &
>> "\JHP_be.mdb": tbl.RefreshLink
>> Next
>>
>> I used this before without a problem but I keep getting errors this time
>>
>> I cant help wonder whether the code is OK (always was before) and I'm
>> just not running it early enough
>>
>> Is there anyway I can run this code upon start up (not wait until the
>> form opens on start up)
>

Perhaps you should show the code you're using then.

--
Doug Steele, Microsoft Access MVP
http://www.AccessMVP.com/djsteele
Co-author: "Access 2010 Solutions", published by Wiley
(no e-mails, please!)



"Chris K" <(E-Mail Removed)> wrote in message
news:t0jao.13129$2b4.9491@hurricane...
> The error varies "JHPmain (form recordsource) does not exist" - sometimes
> "Disk Error"
>
> Tried it in Form Open and still errors
>
> I found my old database with same routine in Form Load and it connects all
> five table without issue
>
> I dont get it
>
> "Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_gmail.com> wrote in message
> news:i4c8fd$n70$(E-Mail Removed)...
>> Knowing the errors would definitely help people...
>>
>> If the form is bound, then yes, the Load event it too late: try the Open
>> event instead. Your best bet, though, might be to have an unbound form as
>> your Startup form, and put the code in it (either Open or Load should
>> work)
>>
>> --
>> Doug Steele, Microsoft Access MVP
>> http://www.AccessMVP.com/djsteele
>> Co-author: "Access 2010 Solutions", published by Wiley
>> (no e-mails, please!)
>>
>>
>>
>> "Chris K" <(E-Mail Removed)> wrote in message
>> news:ESfao.110007$qO1.71499@hurricane...
>>> I'm using code in a form open event to connect to back end table
>>>
>>>
>>> Private Sub Form_Load()
>>> Dim tbl As TableDef
>>> For Each tbl In CurrentDb.TableDefs
>>> If (tbl.Attributes And dbSystemObject) = 0 _
>>> Then tbl.Connect = ";DATABASE=" & CurrentProject.path &
>>> "\JHP_be.mdb": tbl.RefreshLink
>>> Next
>>>
>>> I used this before without a problem but I keep getting errors this time
>>>
>>> I cant help wonder whether the code is OK (always was before) and I'm
>>> just not running it early enough
>>>
>>> Is there anyway I can run this code upon start up (not wait until the
>>> form opens on start up)
>>

I posted the code below but here it is again:

Private Sub Form_Load()

Dim tbl As TableDef
For Each tbl In CurrentDb.TableDefs
If (tbl.Attributes And dbSystemObject) = 0 _
Then tbl.Connect = ";DATABASE=" & CurrentProject.path &
"\JHP_be.mdb": tbl.RefreshLink
Next

RecordSource = "JHPmain"

etc
etc


"Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_gmail.com> wrote in message
news:i4f9jk$qif$(E-Mail Removed)...
> Perhaps you should show the code you're using then.
>
> --
> Doug Steele, Microsoft Access MVP
> http://www.AccessMVP.com/djsteele
> Co-author: "Access 2010 Solutions", published by Wiley
> (no e-mails, please!)
>
>
>
> "Chris K" <(E-Mail Removed)> wrote in message
> news:t0jao.13129$2b4.9491@hurricane...
>> The error varies "JHPmain (form recordsource) does not exist" - sometimes
>> "Disk Error"
>>
>> Tried it in Form Open and still errors
>>
>> I found my old database with same routine in Form Load and it connects
>> all five table without issue
>>
>> I dont get it
>>
>> "Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_gmail.com> wrote in message
>> news:i4c8fd$n70$(E-Mail Removed)...
>>> Knowing the errors would definitely help people...
>>>
>>> If the form is bound, then yes, the Load event it too late: try the Open
>>> event instead. Your best bet, though, might be to have an unbound form
>>> as your Startup form, and put the code in it (either Open or Load should
>>> work)
>>>
>>> --
>>> Doug Steele, Microsoft Access MVP
>>> http://www.AccessMVP.com/djsteele
>>> Co-author: "Access 2010 Solutions", published by Wiley
>>> (no e-mails, please!)
>>>
>>>
>>>
>>> "Chris K" <(E-Mail Removed)> wrote in message
>>> news:ESfao.110007$qO1.71499@hurricane...
>>>> I'm using code in a form open event to connect to back end table
>>>>
>>>>
>>>> Private Sub Form_Load()
>>>> Dim tbl As TableDef
>>>> For Each tbl In CurrentDb.TableDefs
>>>> If (tbl.Attributes And dbSystemObject) = 0 _
>>>> Then tbl.Connect = ";DATABASE=" & CurrentProject.path &
>>>> "\JHP_be.mdb": tbl.RefreshLink
>>>> Next
>>>>
>>>> I used this before without a problem but I keep getting errors this
>>>> time
>>>>
>>>> I cant help wonder whether the code is OK (always was before) and I'm
>>>> just not running it early enough
>>>>
>>>> Is there anyway I can run this code upon start up (not wait until the
>>>> form opens on start up)
>>>
>

I copy/pasted the whole form/code and deleted the original and seems to be
working fine now - must got corrupted somehow

"Chris K" <(E-Mail Removed)> wrote in message
news:WSOao.41303$7E.16706@hurricane...
> I posted the code below but here it is again:
>
> Private Sub Form_Load()
>
> Dim tbl As TableDef
> For Each tbl In CurrentDb.TableDefs
> If (tbl.Attributes And dbSystemObject) = 0 _
> Then tbl.Connect = ";DATABASE=" & CurrentProject.path &
> "\JHP_be.mdb": tbl.RefreshLink
> Next
>
> RecordSource = "JHPmain"
>
> etc
> etc
>
>
> "Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_gmail.com> wrote in message
> news:i4f9jk$qif$(E-Mail Removed)...
>> Perhaps you should show the code you're using then.
>>
>> --
>> Doug Steele, Microsoft Access MVP
>> http://www.AccessMVP.com/djsteele
>> Co-author: "Access 2010 Solutions", published by Wiley
>> (no e-mails, please!)
>>
>>
>>
>> "Chris K" <(E-Mail Removed)> wrote in message
>> news:t0jao.13129$2b4.9491@hurricane...
>>> The error varies "JHPmain (form recordsource) does not exist" -
>>> sometimes "Disk Error"
>>>
>>> Tried it in Form Open and still errors
>>>
>>> I found my old database with same routine in Form Load and it connects
>>> all five table without issue
>>>
>>> I dont get it
>>>
>>> "Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_gmail.com> wrote in message
>>> news:i4c8fd$n70$(E-Mail Removed)...
>>>> Knowing the errors would definitely help people...
>>>>
>>>> If the form is bound, then yes, the Load event it too late: try the
>>>> Open event instead. Your best bet, though, might be to have an unbound
>>>> form as your Startup form, and put the code in it (either Open or Load
>>>> should work)
>>>>
>>>> --
>>>> Doug Steele, Microsoft Access MVP
>>>> http://www.AccessMVP.com/djsteele
>>>> Co-author: "Access 2010 Solutions", published by Wiley
>>>> (no e-mails, please!)
>>>>
>>>>
>>>>
>>>> "Chris K" <(E-Mail Removed)> wrote in message
>>>> news:ESfao.110007$qO1.71499@hurricane...
>>>>> I'm using code in a form open event to connect to back end table
>>>>>
>>>>>
>>>>> Private Sub Form_Load()
>>>>> Dim tbl As TableDef
>>>>> For Each tbl In CurrentDb.TableDefs
>>>>> If (tbl.Attributes And dbSystemObject) = 0 _
>>>>> Then tbl.Connect = ";DATABASE=" & CurrentProject.path &
>>>>> "\JHP_be.mdb": tbl.RefreshLink
>>>>> Next
>>>>>
>>>>> I used this before without a problem but I keep getting errors this
>>>>> time
>>>>>
>>>>> I cant help wonder whether the code is OK (always was before) and I'm
>>>>> just not running it early enough
>>>>>
>>>>> Is there anyway I can run this code upon start up (not wait until the
>>>>> form opens on start up)
>>>>
>>