Oprettet tor. d. 19. juli 2012 kl. 16:07:47
200 point uddelt | 15 kommentarer
Access Re-link Excel
Jeg har linket et regneark (NyLinkSti, fanen "Priser") til en tabel (Datatabel) og ønsker at ændre det til et andet regneark.og bruger følgende:
CurrentDb.TableDefs("Datatabel").Connect = "Excel 8;Database = " & NyLinkSti & "\Priser$"
CurrentDb.TableDefs("Datatabel").RefreshLink
Den kører igennem uden fejl, men ændre ikke linket.
Jeg bruger Office 2010
Hvad skal jeg gøre ?
Skrevet tor. d. 19. juli 2012 kl. 18:36:25| #1
terry (253.032 point)
try deleting the linked table first and then create new
Skrevet tor. d. 19. juli 2012 kl. 19:14:21| #2
Afvist svar
anders-kaas (12.390 point)
If I do that, links to other table will not work
Skrevet tor. d. 19. juli 2012 kl. 19:48:42| #3
terry (253.032 point)
?
What other table?
If you delete first and then create new which one do you mean is other table?
What other table?
If you delete first and then create new which one do you mean is other table?
Skrevet tor. d. 19. juli 2012 kl. 20:35:34| #4
anders-kaas (12.390 point)
I have an query
If I remove the table an replace it with an other with the same name ofcause, I will get an dialogbox, asking for input in the first field in the table when I open it, and the table is emty
If I remove the table an replace it with an other with the same name ofcause, I will get an dialogbox, asking for input in the first field in the table when I open it, and the table is emty
Skrevet tor. d. 19. juli 2012 kl. 21:13:24| #5
terry (253.032 point)
Doesnt the second table contain same column names?
Skrevet tor. d. 19. juli 2012 kl. 21:14:39| #6
terry (253.032 point)
You also have another question http://www.eksperten.dk/ (...) which you need to looke at :o)
Skrevet tor. d. 19. juli 2012 kl. 21:20:17| #7
anders-kaas (12.390 point)
Yes it is the same just with different data
Skrevet fre. d. 20. juli 2012 kl. 18:47:12| #8
terry (253.032 point)
Hi Anders If I get time over the weekend then I'll see if I can put some code together for which which hopefully works.
Skrevet lør. d. 21. juli 2012 kl. 15:18:12| #9
anders-kaas (12.390 point)
Like that :-)
If You need my files you can mail my at Anders@kaas.at and I will send them to you.
If You need my files you can mail my at Anders@kaas.at and I will send them to you.
Skrevet søn. d. 22. juli 2012 kl. 09:18:30| #10
Skrevet søn. d. 22. juli 2012 kl. 10:58:30| #11
terry (253.032 point)
do you get prompted to first convert to 2002 - 2003 format?
You have to do that first before youare allowed to make an MDE
You have to do that first before youare allowed to make an MDE
Skrevet søn. d. 22. juli 2012 kl. 11:26:50| #12
Afvist svar
terry (253.032 point)
I have actually found out what the problem is.
In code view try compiling the database (debug + compile ...)
You get an error in module moduler! You need to alter this code so that you dont get an error then you will be able to make your MDE. :o)
In code view try compiling the database (debug + compile ...)
You get an error in module moduler! You need to alter this code so that you dont get an error then you will be able to make your MDE. :o)
Skrevet tor. d. 16. august 2012 kl. 15:34:20| #13
terry (253.032 point)
did this solve the problem Anders?
Skrevet man. d. 27. august 2012 kl. 20:40:04| #14
Accepteret svar!200 point tildelt
anders-kaas (12.390 point)
Thanks the solution was perfect
Thank you for a lot of work :-)
Function RecreateLink(sTableName, sFileName) As Boolean
On Error GoTo Err_Handler
Dim sConnect As String
Dim sTable As String
With CurrentDb
On Error Resume Next
With .TableDefs(sTableName)
sConnect = .Connect
sTable = .SourceTableName
End With
.TableDefs.Delete sTableName
On Error GoTo Err_Handler
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel8, sTableName, sFileName, False, "Ark2!A1:G25"
End With
RecreateLink = True
Exit Function
Thank you for a lot of work :-)
Function RecreateLink(sTableName, sFileName) As Boolean
On Error GoTo Err_Handler
Dim sConnect As String
Dim sTable As String
With CurrentDb
On Error Resume Next
With .TableDefs(sTableName)
sConnect = .Connect
sTable = .SourceTableName
End With
.TableDefs.Delete sTableName
On Error GoTo Err_Handler
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel8, sTableName, sFileName, False, "Ark2!A1:G25"
End With
RecreateLink = True
Exit Function
Skrevet man. d. 27. august 2012 kl. 21:08:24| #15
Log ind
Seneste spørgsmål
Distinct kun på én værdi (MS access / ASP)
Oprettet den 18. maj 2013 kl. 09.14
LME giver 200 point for svar | Giv et svar »
overføre samtlige tabelnavne i Databasen til en tabel
Oprettet den 17. maj 2013 kl. 09.37
PERJR giver 30 point for svar | Giv et svar »
Kriterier på baggrund af beregnede data -> fejl
Oprettet den 15. maj 2013 kl. 15.46
petersen7913 giver 60 point for svar | Giv et svar »
Seneste guides
Seneste nyheder
Tips & Tricks fra PC World
Her er seks Google Labs-funktioner, som du skal slå til med det samme
Gmail Labs giver dig adgang til en masse smarte funktioner, som Googles ingeniører leger med i øjeblikket.
Anmeldelser fra PC World
Test: Samsung Galaxy S4 er et hit - trods gøglertricks
Kan Samsung beholde førertrøjen i det store Android-race? Galaxy S4 er smækfyldt med innovative funktioner, men også med en del gøgl. Er det for meget? Få vores dom over Samsungs nye topmodel.
Seneste blogindlæg
Tvangslukke spørgsmål: Hvad er den bedste løsning?
Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...
Nyheder fra PC World
Tre smarte trick som gør Windows 8 bedre
Boot direkte til skrivebordet, få en strategisk godt placeret luk-knap og slip for at logge ind. Her er tre tips til Windows 8, som gør det nemmere at blive venner med styresystemet.
Nyheder fra Computerworld
Galleri: Her er Googles nyeste værktøj og legetøj
Google har i denne uge afholdt udviklerkonferencen I/O i San Francisco. Se her hvad søgegiganten kunne præsentere af nyskabelser.
IT Kurser
Samarbejdspartnere
Udgiver · © 2013 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger