Hermed min kode:
Public Sub Gemogluk_db()
'her gemmes og slukkes
Set db = Nothing
Set record = Nothing
DoCmd.Quit acQuitSaveAll
End Sub
Public Sub komprimerDB()
DBEngine.CompactDatabase "c:\mydb_udl_msk\access_db\data.mdb", _
"c:\mydb_udl_msk\access_db\datacompacted.mdb"
Kill "c:\mydb_udl_msk\access_db\data.mdb"
Name "c:\mydb_udl_msk\access_db\datacompacted.mdb" As _
"c:\mydb_udl_msk\access_db\data.mdb"
End Sub
Public Sub Aaben_db()
'åben database igen
Dim test
test = Shell("e:\programmer\microsoft office\office\msaccess.exe
C:\mydb_udl_msk\access_db\data.mdb", 6)
End Sub
Public Sub forbindelse()
'her skabes DAO forbindelse igen
' jeg ved bare ikke hvordan
End Sub
Public Sub beep()
' dette er en test for at se om forbindelsen er lagt gang, foretager
' beep i access
DoCmd.RunMacro "beep"
End Sub
Ole Lønborg <ole_nmews@lonborg.dk> skrev i en
nyhedsmeddelelse:3B94F81F.9E133663@lonborg.dk...
> Kurt wrote:
> > Hvad menes med hwnd, og har du et program eksempel??
> Ole Lønborg wrote:
> >
> > Kurt wrote:
> > > Nu skal jeg lukke access ned og op igen fra VBA for at komprimere og
det
> > > kører OK, men efter at access er åbnet går min første kommando i fejl.
Når
> > > denne er kvitteret kan jeg køre igen, dvs der mangler et eller andet
for at
> > > skabe "forbindelse" første gang efter at den er åbnet.
> > >
> > > Er dette en kendt problem stilling, og kan nogen hjælpe??
> > Skal du ikke have et nyt hwnd til Access ?
> > Det vil jeg tro.
> > Det er jo en ny instans af Access der kører efter komprimeringen.
> Jeg går i mit svar ud fra at du, for at kommunikere med Access har
> "trukket" det "Window Handle" (hwnd) der peger på Access.
>
> I virkeligheden ville det være smartere at du viste lidt af den kode du
> bruger til at lukke access ned, komprimere og lukke op.
>
> Hvis du f.eks. bruger noget a'la
> Set mobjAccess = GetObject(, "Access.Application.8")
>
> skal du jo udføre den igen.
>
> /Ole Lønborg