copy post

Hejsa Juks,

Hvis det er den database du har åben dér hvor du kører koden du vil have det fra disketten ind i skal du lave et recordsset til den tabel du vil have værdien ind i.

Dim rstCBase as recordset

set rstCBase = CurrentDB.OpenRecordset(Navnet på tabellen værdien skal ind i)

så har du oprettet et recordset til den anden tabel.

Dernæst tager du værdien fra a: og smider ind i tabellen på c:

rstCBase.AddNew

rstCBase![FeltNavn som værdien skal ind i] = rsSet![FeltNavn fra a: der indeholder din værdi]

rstCBase.Update

det burde gøre det du er ude efter...

Såfremt du vil have værdien ind i en anden database på C: end den hvorfra du kører denne kode, så skal du selvfølgelig åbne den database på samme måde som du åbner den fra a:, og så bare indsætte dens variabelnavn i stedet for CurrentDB i koden ovenover...

Håber det hjælper dig,

Horus

Min kode skal du selvfølgelig bare føje til det du allerede har lavet...

Det virker ikke den skriver at databasen er i brug.

ub opendb()


Dim opendb As Database
Dim rsSet As Recordset
Dim db As Database
Dim rstCBase As Recordset



    Set opendb = OpenDatabase(\"a:\\NewDB.mdb\", False, False, \";pwd=dina82\")
    Set rsSet = opendb.OpenRecordset(\"TA_Key\")
    rsSet.MoveFirst

Set rstCBase = CurrentDb.OpenRecordset(\"TA_Key\")

\'så har du oprettet et recordset til den anden tabel.

\'Dernæst tager du værdien fra a: og smider ind i tabellen på c:

rstCBase.AddNew

rstCBase![\"KeyID\"] = rsSet![KeyID]

rstCBase.Update

End Sub

JEg glemte hvis lige at sige at hvis den værdi den er ved at tilføje eksitere, skal den enten format a: eller lukke databsen eller helst begge dele.

OK, HVOR henne i koden kommer den fejl der siger at databasen er i brug ???

Du skal nok ikke have \" i om KeyID

Horus

Den stopper i Set rstCbase = currentDB.open ......

også selvom jeg har ændret værdien

Hvad hvis du tilføjer følgende:

Dim dbs as database

set dbs = CurrentDB()

Og så ændre linien \"Set rstCBase = CurrentDb.OpenRecordset(\"TA_Key\")\"

til

set rstCBase = dbs.OpenRecordset(\"TA_Key\", dbOpenDynaset)\"

Som det sidste så prøv at føje følgende 2 linier til lige inden End Sub linie:

Set dbs = nothing
set opendb = nothing

Jeg prøver lige at sende hele koden til dig.
den stopper stadig i set \"dbs =currentdb\"


Sub opendb()


Dim opendb As Database
Dim rsSet As Recordset
Dim dbs As Database
Dim rstCBase As Recordset


   
    Set opendb = OpenDatabase(\"a:\\NewDB.mdb\", False, False, \";pwd=dina82\")
    Set rsSet = opendb.OpenRecordset(\"TA_Key\")
    rsSet.MoveFirst
   
    Set dbs = CurrentDb()
Set rstCBase = dbs.OpenRecordset(\"TA_Key_client\", dbOpenDynaset)
   



\'så har du oprettet et recordset til den anden tabel.

\'Dernæst tager du værdien fra a: og smider ind i tabellen på c:

rstCBase.AddNew

rstCBase![KeyIDcl] = rsSet![KeyID]

rstCBase.Update
Set dbs = Nothing
Set opendb = Nothing
End Sub

Så prøv dette istedet (når du hgar kopieret den nye kode ind, så prøv lige at lukke din database, og sikker dig at den ikke er åben andre steder - åben den så igen og prøv):

Sub opendb()

Dim opendb As Database
Dim rsSet As Recordset
Dim rstCBase As Recordset
Dim varValue as Variant

    Set opendb = OpenDatabase(\"a:\\NewDB.mdb\", False, False, \";pwd=dina82\")
    Set rsSet = opendb.OpenRecordset(\"TA_Key\")
    rsSet.MoveFirst
   
    varValue = rsSet![KeyID]
    rsSet.Close
    Set opendb = nothing

    Set opendb = CurrentDb()
    Set rstCBase = opendb.OpenRecordset(\"TA_Key_client\", dbOpenDynaset)
   
\'så har du oprettet et recordset til den anden tabel.

\'Dernæst tager du værdien fra a: og smider ind i tabellen på c:

rstCBase.AddNew

rstCBase![KeyIDcl] = varValue

rstCBase.Update
rstCBase.Close

Set opendb = Nothing

End Sub

Den bliver ved med at sige at databasen på C: er i brug

hmm, og du har den ikke åbnet andre steder ???? Så ved jeg ikke hvad der er galt... sorry.... jeg vil gerne kigge på den hvis du vil sende den.
(boghold@image.dk)

horus

Jeg har løst problemet , det var et ugyldigt navn på databasen

Accepterer du så ikke lige mit svar ?

horus

Jo og tak for hjælpen?
Håber ikke du brugte alt for meget tid på databasen.

jonas