Nochmals: Aendern der Verknüpfung FE/BE

20/09/2007 - 17:50 von Franz | Report spam
Hallo zusammen

ich mache das nicht gerne, aber ich möchte nochmals nachfassen. Als
Resultat meines vorigen Postings habe ich nun folgenden Code:

Private Sub countrySelect_AfterUpdate()
'das Land wird über eine Combobox gewàhlt
On Error GoTo MyError

Dim db As DAO.Database
Dim strDaten As String
Dim i As Integer
Dim mytable As String
Set db = CurrentDb()

mytable = "dummy"
'das ist eine leere Tabelle
DoCmd.Hourglass True
DoCmd.Echo False
strDaten = DLookup("Path", "tblcountry", "ID =" & Me![countrySelect])
'Für die verschiedenen Lànder habe ich eine tblcountry gemacht, wo ich
auch den Pfad für die Bilder (Flaggen) festhalte
db.TableDefs(mytable).Connect = ";database=" & strDaten
db.TableDefs(mytable).RefreshLink
DoCmd.OpenTable (mytable)
'zuerst wird die dummy tbl aktaulisiert und dann geöffnet, um die
anderen Verbindungsaktualisierungen zu beschleunigen

Me!ImgFlag.Picture = DLookup("picture", "tblcountry", "ID =" & Me!
[countrySelect])
'Die Flagge wird geàndert

For i = 0 To db.TableDefs.Count - 1
If db.TableDefs(i).Connect <> "" Then
If Mid(db.TableDefs(i).Connect, 11) <> strDaten Then
db.TableDefs(i).Connect = ";database=" & strDaten
db.TableDefs(i).RefreshLink
End If
End If
Next i
'Die Verknüpfungen werden aktualisiert.

DoCmd.Close acTable, (mytable)
DoCmd.Echo True
DoCmd.Hourglass False

Form.Requery

MyExit:
Exit Sub

MyError:
MsgBox "Bei der Installation ist eine Ausnahme aufgetreten. ", 16,
"Ausnahme"
Resume MyExit
End Sub

Trotz allem dauert die Aktualisierung rund 15 Sekunden über das 100 MB
LAN (40 Tabllen). Gibt es eine Möglichkeit, das noch zu beschleunigen?

Danke!

Gruss

Franz
 

Lesen sie die antworten

#1 Mark Doerbandt
20/09/2007 - 18:03 | Warnen spam
Hallo, Franz,

Franz:

Trotz allem dauert die Aktualisierung rund 15 Sekunden über das 100 MB
LAN (40 Tabllen). Gibt es eine Möglichkeit, das noch zu beschleunigen?



richte ein GB-LAn ein! ;-)

Nein, im Ernst: das sind 0,4 Sek. pro Tabelle und ich finde das
ertraeglich. Hast Du damit ein Problem? Wie oft machst Du das denn?

Gruss - Mark

PS: bitte bleibe beim naechsten Mal im Thread.

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen