Runtime importeren

[LauravT]

Hallo,..

Ik heb een bestandje gemaakt dat dient te werken met een DB die steeds wijzigt.
Dit werkt in de volledige versie perfect.

Echter bij runtime geeft ie een foutmelding bij het importeren van gegevens (deze opdracht zit onder een knop op een formulier)!

Weet iemand hier een oplossing voor?!

Groetjes,..

 

[OctaFish]

Dan zouden we de db moeten zien, denk ik. Of in ieder geval de code die je uitvoert met de knop.

 

[LauravT]

Dit is de code onder de knop,..

Public Sub knop25_click()

'Form met taak laten zien
DoCmd.SetWarnings (Warningsoff)

'wachtwoord
ww = InputBox("Voer het wachtwoord in:")
If ww = 2016 Then

'huidige WV leegmaken
DoCmd.RunSQL "DELETE * FROM WV"

'nieuwe WV vanuit Excel ophalen
DoCmd.RunSavedImportExport ("Import-WV")

'klaar!
MsgBox "WV is opgehaald!"

'terug naar start form
DoCmd.OpenForm "Start"

'opslaan en afsluiten
DoCmd.Save

'wachtwoord onjuist
Else
MsgBox "Helaas, het wachtwoord is onjuist!"

End If

End Sub

 

[OctaFish]

En waar loopt hij op stuk?

 

[LauravT]

Op het import gedeelte of op het leegmaken van de tabel,..
In Runtime kan ik het niet zien waar het fout gaat!

 

[OctaFish]

Je gebruikt 2 technieken die ik nooit gebruik. Wellicht heeft het zin om deze varianten te proberen:
Vervang dit

        DoCmd.RunSQL "DELETE * FROM WV"

eens door dit:

        CurrentDb.Execute "DELETE * FROM WV", dbfailonerror

En dit

        'nieuwe WV vanuit Excel ophalen
        DoCmd.RunSavedImportExport ("Import-WV")

door dit.

        DoCmd.TransferText , "importspecs", "importtabel", "c:\import\importbestand", True

Garantie tot aan de deur, dat spreekt .

 

[LauravT]

Thanks!
Het werkt!
Heb alleen de code mbt import laten staan,.. aangezien ik een bepaald tab moet hebben en het blijkbaar daarop niet fout gaat,.. !