Importeren doe ik nu handmatig ivm het sleutelveld, de importspecificatie's worden opgeslagen (waar?) maar kan dit niet in vba (geconventeerd worden)?
en/of
Hoe kan ik in vba
Een veld "Code" een primaire sleutel maken (tbl_code)
De tabel weer linken met een ander tabel veld "Code_prim" (tbl_Code2)
Tabel Code en Code2 zijn gerelateerd (velden Code en Code_prim) Private Sub Knop0_Click()
On Error GoTo Err_Knop0_Click
DoCmd.Rename "tblcode_oud", acTable, "tblcode"
DoCmd.TransferSpreadsheet acImport, 8, "Code", _
"C:\Code.xls", True, ""
Exit_Knop0_Click:
Exit Sub
Err_Knop0_Click:
If Err.Number = 3709 Then 'sleutel niet gevonden ?
DoCmd.Rename "tblcode", acTable, "tblcode_oud"
MsgBox "Sleutel niet gevonden", vbInformation, "Info"
Else
If Err.Number = 3211 Then 'Tabel vergrendeld (in gebruik)
MsgBox "Tabel is in gebruik!"
Else
MsgBox Err.Description & Err.Number
End If
End If
Resume Exit_Knop0_Click
End Sub