Åbne en anden access database ved hjælp af kommando knap?

F.eks. ved at sammenkæde tabellerne fra den 'eksterne' database. Så kan de beregnes og manipuleres akkurat som dem du har liggende nu.

jo, men det er en formular den skal vise og ikke en tabel?

Ja, men formularen har jo en tabel som kilde. I stedet for at bruge dem du har liggende i databasen bruger du så en af de sammenkædede

jo men hvordan sammenkæder jeg en formular?? Jeg kan sagtens få den til at åbne min tabel, men det er den tilhørende formular jeg vil se, da den jo er meget mere læse venlig og også indeholder data fra andre tabeller.

Du sammenkæder ikke formularen. Du sammenkæder tabellen.
Du kan kode dig ud af, at ændre postkilden til formularen og derved nøjes med én formular, men du kan også blot importere (og ikke sammenkæde) formularen fra den eksterne database.
Dvs:
1. Sammenkæd tabellen
2. Importer formularen
3. Tjek at postkilden til den importerede formular er den sammenkædede tabel

for 30 points>Use automation to open your Access database and earch for the record in the form

This is a VERY simple example, you WILL need to alter/add to get it do do whatyou want. But once you have the dB open then its not much different to doing it in your own dB

Function OpenAccess()
Dim ObjA As Access.Application


    Set ObjA = CreateObject("Access.application")
   
    With ObjA
        .Visible = True
        .OpenCurrentDatabase "C:\Openme.mdb"
       
        .DoCmd.OpenForm "form1"

        'From here you will need to play around a bit, I  havent tried myslef

        .Forms!Form1.text1 = "Some Shit" '???

End With

Set ObjA = Nothing
End Function

Jeg troede bare at ligesom jeg kunne bruge en kommando knap til at åbne en bestemt wordfil eller excelfil, at så kunne det også gøres med en anden access fil. Det bedste vil være at åbne den anden database og finde den bestemte post i formularen, således at man let kan redigere i felterne hvis det ønskes. Det kan jo sagtens gøres manuelt, men det ville da være oplagt en komandeknap.

terry.... interessent..... hvor skal jeg skrive det henne?? I funktion "ved klik"?

good place to put it :o)


You CAN also open another database, just like you can with a Word or Excel, but after that you would need to do it by hand, (just just like you would with a Word or Excel) but by usng automation you can do it all in code :o)

Der kommer en fejl når prøver: Ambiguous name detectede:OpenAccess

Hvad er det?

Keldo ->
Hvorfor er det vigtigt, at åbne en ny udgave af Access? Hvorfor er det "...det bedste..." i din situation?

2dbornot2db - primært fordi jeg skal kunne lave ændringer i den db jeg åbner. Og hvis det ikke er den orginale, hjælper det jo ikke meget at åbne den. Så skal jeg alligevel gøre det manuelt.

Det kan du da også sagtens med den metode jeg beskriver. Som jeg skrev i indledningen: "...Så kan de beregnes og manipuleres akkurat som dem du har liggende nu."

2dbornot2db - du har nok ret, men det er vigtigt at jeg ikke blander de to db sammen, jeg vil ikke have at nogle af dataerne fra den anden db er tilgængelig i den første db. Hvis jeg ex. sender db til en anden bruger skal den bruger ikke kunne se de andre data. Summa sumarum, det kunne gøres ved at åbne den anden db. Ellers vil jeg hellere gøre det manuelt.

OK, det skrev du bare ikke i starten :-) Så er terry's forslag helt oplagt. Held og lykke med projektet.

14/07-2005 11:39:35 > OpenAccess!

Try changing the funstion name to something else for example

MyOpenAccess

What is wrong with this?

Private Sub Tekst32_Click()
Function menandyou()
Dim ObjA As Access.Application


    Set ObjA = CreateObject("Access.application")
   
    With ObjA
        .Visible = True
        .OpenCurrentDatabase "c:\pma\abonnementssystem.mdb"
       
        .DoCmd.OpenForm "kundedata"

        .Forms!Kundedata.Tids -Abnr = "100 250 100"

End With

Set ObjA = Nothing
End Function
End Function

I get "compile error: Expected End sub"
??

Private Sub Tekst32_Click()
Function menandyou()
Dim ObjA As Access.Application


    Set ObjA = CreateObject("Access.application")
   
    With ObjA
        .Visible = True
        .OpenCurrentDatabase "c:\pma\abonnementssystem.mdb"
       
        .DoCmd.OpenForm "kundedata"

        .Forms!Kundedata.Tids -Abnr = "100 250 100"

End With

Set ObjA = Nothing

End sub
>>>End Function
>>>End Function

this may also ogive an error

.Forms!Kundedata.Tids -Abnr = "100 250 100"

Private Sub Tekst32_Click()
Function menandyou()
Dim ObjA As Access.Application


    Set ObjA = CreateObject("Access.application")
   
    With ObjA
        .Visible = True
        .OpenCurrentDatabase "c:\pma\abonnementsystem.mdb"
       
        .DoCmd.OpenForm "kundedata"

        .Forms!Kundedata.Tids -Abnr = "100 250 100"

End With

Set ObjA = Nothing

End Sub

Same problem....?

Private Sub Tekst32_Click()
'Function menandyou()
Dim ObjA As Access.Application


    Set ObjA = CreateObject("Access.application")
   
    With ObjA
        .Visible = True
        .OpenCurrentDatabase "c:\pma\abonnementsystem.mdb"
       
        .DoCmd.OpenForm "kundedata"

        .Forms!Kundedata.[Tids -Abnr] = "100 250 100"

End With

Set ObjA = Nothing

End Sub

'Function menandyou()
.... Compile error: Sub or function not defined  ?

you dont need a function if you put the code (which is in a fucntion) in a sub

Private Sub Tekst32_Click()
Dim ObjA As Access.Application


    Set ObjA = CreateObject("Access.application")
   
    With ObjA
        .Visible = True
        .OpenCurrentDatabase "c:\pma\abonnementsystem.mdb"
       
        .DoCmd.OpenForm "kundedata"

        .Forms!Kundedata.Tids -Abnr = "100 250 100"

End With

Set ObjA = Nothing

End Sub

ok, nu virker det, det hjalp da jeg fjernede "funcktion..."

Men du har også ret terry, at
"this may also ogive an error

.Forms!Kundedata.Tids -Abnr = "100 250 100"  giver et problem. I virkerligheden skal "100 250 100" erstattes af det tal som står i min db hvor jeg trykker "klik"

"this may also ogive an error"!!! does it  give an error?

if so, then ".Tids -Abnr" is very likely your problem. If this is a field name then chane it to

[.Tids -Abnr]


if you want to replace "100 250 100" with a value from your dB then




Forms!Kundedata.[Tids -Abnr] = me!NameOfFieldGoesHere

status?

Er på ferie nu, men skriver når jeg er tilbage. tak indtil videre

OK, og god ferie

Hi keldo, hope you had a good holiday?

I which my holidays were as long :o)

hi Terry... sorry. It works now... more or less.

thanks keldo

..more or less!

do you need help with anything?