17. juni 2004 - 10:49Der er
15 kommentarer og 1 løsning
Bruge [ctrl] [break] til at stoppe program
I mit program er der mulighed for at overføre data til Excel. Da det drejer sig om om til ca. 20.000 poster (og senere flere!), vil jeg gerne give brugerne en mulighed for at stoppe programmet i overførslen, men hvordan? Helst med [ctrl]+[break], men andre genvejstaster er også ok.
Hvis jeg bruger [ctrl]+[break], får jeg beskeden "Code execution has been interupted". Det er fint nok til mig, men hvad når programmet skal afvikles på en Access XP Runtime??? Vil programmet så gå helt i ged?
On Error Goto Err_OverførTilExcel 'din kode 'Docmd.TransferSpreadsheet...... '... Exit Sub Err_OverførTilExcel: Select Case Err Case else msgbox "Fejlkode: " & err & vbnewline & Err.description, vbcritical end select End Sub
rst.Close Set rst = Nothing Set dbs = Nothing Err_OverførTilExcel: Select Case Err Case Else MsgBox "Fejlkode: " & Err & vbNewLine & Err.Description, vbCritical End Select Exit Sub End Sub
Efter linien Set dbs = Nothing springes der til linien Select Case Err!!! :(
ja, det er det jeg siger: Din Exit Sub skal stå FØR error-handleren. Dvs før linien Err_OverførTilExcel:
Således: rst.Close Set rst = Nothing Set dbs = Nothing Exit Sub Err_OverførTilExcel: Select Case Err Case Else MsgBox "Fejlkode: " & Err & vbNewLine & Err.Description, vbCritical End Select End Sub
For ellers ved Access jo ikke, at den ikke skal fortsætte ned til Msgbox'en
Men jeg tror så, at fejlen ikke længere opstår i Access, men i Excel eller i et mellemliggende program. Jeg TROR derfor heller ikke at Runtime'en vil gå ned. Men jeg kan ikke garantere noget... :o(
tak for point - selvom du ikke fik løs problemet :o)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.