van access 2003/2007 naar access 2010

[GerwinEderveen]

Private Sub button_mrp_Click()
On Error Resume Next
RunCommand acCmdImport
End Sub

Private Sub button_step2_Click()
On Error Resume Next
RunCommand acCmdImport
End Sub

Private Sub button_step3_Click()
On Error Resume Next
RunCommand acCmdImport
End Sub

Weet iemand waarom deze code niet werkt in 2010 en wel in 2003/2007? Het bedrijf waarvoor ik een database heb gemaakt gaat over 2 maanden over op 2010. Dit is nodig om nieuwe data in de database te krijgen. Elke week wordt namelijk de database geladen.

 

[gast0224]

Wat gebeurd er als je op de knoppen drukt? Gebeurd er iets? Gebeurd er niets? Krijg je een foutmelding, zo ja welke?

 

[GerwinEderveen]

er gebeurt dan helemaal niets. Terwijl in 2003/2007 er dan pop-up komt zodat je een tabel kunt importeren(van excel naar access).

 

[OctaFish]

Probeer dit eens:

Private Sub button_mrp_Click()
    On Error GoTo ErrHandler
    DoCmd.RunCommand acCmdImport
ExitHandle:
    Exit Sub
ErrHandler:
    Select Case Err.Number
        Case 2501
            'Do nothing as cancel selected by user
            Resume ExitHandle
        Case Else
            MsgBox Err.Number & vbCrLf & Err.Description
            Resume ExitHandle
    End Select
End Sub

En check de eventuele foutmelding.

 

[OctaFish]

Ik vermoed overigens dat het commando is vervangen; ik vind alleen nog deze varianten:

acCmdHyperlinkDisplayText 329
acCmdImportAttachAccess 544
acCmdImportAttachdBase 552
acCmdImportAttachExcel 545
acCmdImportAttachHTML 550
acCmdImportAttachODBC 549
acCmdImportAttachOutlook 551
acCmdImportAttachSharePointList 547
acCmdImportAttachText 546
acCmdImportAttachXML 548

 

[OctaFish]

Hier heb je een bestand met alle Runcommand opdrachten.

 

[GerwinEderveen]

Dit is de foutmelding met de nieuwe code...

 

[OctaFish]

Probeer het, gezien mijn lijstje, eens met: acCmdImportAttachExcel

 

[GerwinEderveen]

beetje door elkaar heen gegaan maar dat idee had ik al en het werkt! bedankt!