Elite Veteran
Beiträge: 942
  
Ort: Wien | Hallo!
Iemhoff:
On Error Resume Next
DoCmd.DeleteObject acTable, "tbl_AlleAdressen" 'delete tbl_AlleAdressen
DoCmd.CopyObject , "tbl_AlleAdressenDummy", acTable, "tbl_AlleAdressen" 'will not work copy from one to another one (a clear table with ID= primaire and auto, some field are number and another Date typ
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ 'resd a backup file
"tbl_AlleAdressen", Text282.value, True, "A1:Z9999"
Text282.BackColor = vbGreen
'''' ID Primaire Schlüssel und Autowert
db.Execute "ALTER TABLE tbl_AlleAdressen ALTER COLUMN ID autowert" 'test : make the field ID primaire with auto value Funktioniert nicht.
Exit_Befehl273_Click:
Exit Sub
Err_Befehl273_Click:
Text282.BackColor = vbRed
MsgBox Err.Description
Resume Exit_Befehl273_Click
End Sub
Was ist falsch
Was ich will ist , wenn eine tabelle (tbl_AlleAdressen) kaputt geht diese durch ein backup Datei (ecxel) wieder herzustellen.
Oder ist es möglich eine tbl_AlleAdressen zu exportieren und nachher wieder zurück zu lesen?
Falsch ist auf jeden Fall, dass du ein bestehendes Feld nachträglich zum Autowert machen willst. Das geht grundsätzlich nicht.
"On Error Resume Next" ist meistens auch nicht so gut.
1. Warum und inwiefern geht denn die Tabelle kaputt?
2. Was soll das CopyObject tun und was genau funktioniert dabei nicht, mit welcher Fehlermeldung und -nummer?
3. Was genau ist das Problem mit dem TransferSpreadsheet? "Nur" das Autowert-Erzeugen?
Je nachdem, könnte die Lösung z.B. sein, eine Kopie der Tabelle, die nur die Struktur enthält (samt Autowert) auf "tbl_AlleAdressen" umzubenennen und dann die Daten aus Excel anzufügen. Hängt aber von 1.-3. ab.
-----
Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |
Backup zurück holen