Toon posts:

[Access] Database openen vanuit database

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik ben met logboeken bezig. Nu heb ik er verschillende, maar ik wil vanuit 1 "hoofd-database" door een visualbasic code een andere database openen, waarbij de eerste database gesloten wordt.

Hoe doe ik dit?

  • BtM909
  • Registratie: Juni 2000
  • Niet online

BtM909

Watch out Guys...

Eerste hit bij [google=access open another database in vba]

code:
1
SendKeys "^oDRIVELETTER:\directoryname\mydatabase.mdb~"


Het sluiten van je db kan je waarschijnlijk zelf wel opzoeken ;)

[ Voor 22% gewijzigd door BtM909 op 09-04-2003 13:39 ]

Ace of Base vs Charli XCX - All That She Boom Claps (RMT) | Clean Bandit vs Galantis - I'd Rather Be You (RMT)
You've moved up on my notch-list. You have 1 notch
I have a black belt in Kung Flu.


Verwijderd

Topicstarter
Bedankt voor de snelle hulp, maar het werkt niet.

Wanneer ik op een knop druk om dit vba-commando uit te voeren begint m'n knop te knipperen en m'n muis kan niet meer bewegen. Na CTRL-ALT-DELETE te drukken lukt het weer om terug te komen...

Ik heb het ook al geprobeerd met het commando SHELL, maar dan geeft hij errorcode 5 :(

Iemand nog een idee??

  • Witte
  • Registratie: Februari 2000
  • Laatst online: 11-09 21:57
Kun je niet in je hoofddatabase met gekoppelde tabellen werken?
(je maakt een aantal logboekdatabases, en in een hoofddatabase koppel je de tabellen).

Houdoe


  • BtM909
  • Registratie: Juni 2000
  • Niet online

BtM909

Watch out Guys...

Verwijderd schreef op 09 april 2003 @ 16:05:
Bedankt voor de snelle hulp, maar het werkt niet.

Wanneer ik op een knop druk om dit vba-commando uit te voeren begint m'n knop te knipperen en m'n muis kan niet meer bewegen. Na CTRL-ALT-DELETE te drukken lukt het weer om terug te komen...

Ik heb het ook al geprobeerd met het commando SHELL, maar dan geeft hij errorcode 5 :(

Iemand nog een idee??
Laat eens de volledige code zien?

Ace of Base vs Charli XCX - All That She Boom Claps (RMT) | Clean Bandit vs Galantis - I'd Rather Be You (RMT)
You've moved up on my notch-list. You have 1 notch
I have a black belt in Kung Flu.


Verwijderd

Topicstarter
Met de Sendkeys heb ik deze code:

- SendKeys "^oF:\Dokumenten Laboratorium\S.B.H\Elektronisch logboek\Logboe~1.mdb~"

Ik heb het ook nog geprobeerd met Shell:
- Dim RetVal
- RetVal = Shell("F:\Dokumenten Laboratorium\S.B.H\Elektronisch logboek\Logboe~1.mdb", vbNormalFocus)

Verwijderd

Topicstarter
Beste mensen,

sluit deze topic maar en bedankt voor jullie hulp maar ik heb het licht gezien.

Ik had de code van Sendkeys staan onder een knop op een formulier die ingesteld stond als een pop-up formulier en daarbij werkt het kennelijk niet.

:D :D :D :D :D :D :D :D :D :D
Pagina: 1