Een formulier uit een andere database openen en bewerken

[munchy]

Na het gebruiken van de zoek functie stel ik deze vraag.
Ik wil graag in de ene database via het switchboard een formulier uit een andere database openen.
Na lang zoeken en proberen is me dat gelukt met de volgende code:


Function OpenForeignForm()

Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "c:\filenaam"
appAccess.DoCmd.OpenForm "formuliernaam"
Set appAccess = Nothing

End Function

Het formulier opent eindelijk. Yes ik dacht dat ik het voor mekaar had. Echter als ik iets op het formulier wil aanpasen of naar het laatste record wil gaan om
een record toe te voegen, sluit de database. Dat is niet wat ik wil.
Heeft er iemand een idee hoe ik het wel voor mekaar krijg?

Alvast bedankt,

 

[OctaFish]

Waarom sluit je de application dan ook nadat je het formulier opent?

 

[munchy]

Ik sluit de database niet. Dat doet Access vanzelf. Daar zit net het probleem als ik ook maar ergens op klik in het formulier gooit acces de database of beter gezegd het formulier dicht.

 

[OctaFish]

Wat denk je dat deze regel doet:

Set appAccess = Nothing

 

[andre@home]

http://www.mrexcel.com/forum/microsoft-access/560574-open-form-another-database-form.html

1. You will need

appAccess.Visible = True

after the CreateObject line.


2. If you set appAccess = Nothing before disconnecting from it then it will also be a flash as it won't stay open.

Put
appAccess.UserControl = True

before the
Set appAccess = Nothing

 

[munchy]

Het werkt!!
Helemaal geweldig.
Bedankt voor het meedenken.