Hallo
Ich habe eine Prozedur, die mir alle in einer Listbox selektierten Tabellen verlinkt. Die Tabellen kommen alle aus der GLEICHEN DB und sind in einer 'Trusted location' gespeichert
With lstBackend For i = 0 To .ListCount - 1 If .Selected(i) Then Debug.Print "selected to update", "Value: " & .ItemData(i) ctlResult = .ItemData(i) & " attached" & vbCrLf & ctlResult DoCmd.TransferDatabase acLink, "Microsoft Access", PathBackend, acTable, .ItemData(i), .ItemData(i), False End If Next i End With
Die Prozedur funktioniert auch sehr gut. Aber: Bei jeder Tabelle kommt diese Meldung.
Wie kann ich das umgehen? Oder zumindest dass die Meldung nur einmal kommt, da ja alle Tabelle aus der gleich DB sind?
Danke und Gruss Thomas