Member
Beiträge: 21
| Private Sub Befehl273_Click() ' Recall
On Error GoTo Err_Befehl273_Click
Dim stDocName As String
Dim stDocTooAlleAdressen As String
Dim stDocTooSD_Data As String
Dim stDocTooVerteiler As String
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?
|
