/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Tjooooooo
Fra : Kurt


Dato : 04-09-01 16:11

Hvad menes med hwnd, og har du et program eksempel??



 
 
Ole Lønborg (04-09-2001)
Kommentar
Fra : Ole Lønborg


Dato : 04-09-01 16:50

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

Kurt (04-09-2001)
Kommentar
Fra : Kurt


Dato : 04-09-01 19:31

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



Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste