Office: (Office 2007) 2007 Runtime + Tabellenverknüpfungsmanager

GrafFoto · 6. Oktober 2009

Hallo Leute.

Ich habe folgendes Problem mit der Runtime.

Ich habe eine Access2007 Anwendung, die mit einer weiteren DB verknüpft ist.

Das Programm möchte ich via Runtime weitergeben. Bei den Endnutzern sitzt die verknüpfte DB aber jeweils in einem anderen Ordner.

Deshalb habe ich ein Makro erstellt das den Tabellenverknüpfungsmanager aufruft. Dieses Makro kann ich über einen Button aufrufen. Klappt prima.

Aber wenn ich nun eine Runtimeversion erstelle (die ansonsten einwandfrei läuft) und diese installiere, lässt sich der Tabellenverknüpfungsmanager nicht mehr aufrufen. Ich kriege nur eine Fehlermeldung 'Access funktioniert nicht mehr' und dann pfeift das Programm ab.

Kennt das jemand? Und hat vielleicht sogar ne Lösung parat?

:)

Atrus2711 · 8. Oktober 2009

Runtime ist halt eingeschränkt. Vermutlich wirst du das per VBA lösen müssen.

www.donkarl.com?FAQ3.1

Schema:
(oPathHandler ist nur ein Helfer, der guckt, ob die Dateien/Pfade da sind. Die entscheidenden Zeilen sind rot*Smilie
Code:

Private Sub btnSave_Click()
Dim oPathHandler As clsPathHandler
Dim tbl As DAO.TableDef
Dim strRelinkerrors As String
Dim lngTablesCount As Long
Dim lngProgressCount As Long

Set oPathHandler = New clsPathHandler

With oPathHandler
.prpDrainpath = Nz(Me.txtBackendpfad)
If Not .Exists Then
MsgBox "Der Pfad existiert nicht!", vbCritical, "Diva"
Else
If Dir(.prpDrainpath & "Diva_Backend.mdb", vbNormal) = "" Then
MsgBox "Der Pfad enthält keine Diva-Datenpooldatei!", vbCritical, "Diva"
Else
'Backend umstellen
On Error Resume Next
lngTablesCount = CurrentDb.TableDefs.Count
For Each tbl In CurrentDb.TableDefs
If tbl.Connect "" Then
tbl.Connect = ";DATABASE=" & .prpDrainpath & "Diva_Backend.mdb"
tbl.RefreshLink
If Err 0 Then
strRelinkerrors = strRelinkerrors & " ** " & tbl.Name & ": " & Err.Description
Err.Clear
End If
Else
'keine Backendtabelle
End If
lngProgressCount = lngProgressCount + 1
Me.txtProgress = Format(lngProgressCount / lngTablesCount, "0%") & " fertig..."
Me.Repaint
Next tbl
Set tbl = Nothing
On Error GoTo 0
If Len("" & strRelinkerrors) > 0 Then
MsgBox "Beim Neuverknüpfen des Datenpools sind folgende Fehler aufgetreten: " & strRelinkerrors
Me.txtProgress = "Datenpool ist ungültig!"
Else
MsgBox "Neuverknüpfen des Datenpools erfolgreich abgeschlossen", vbInformation, "Diva"
Me.txtProgress = "Datenpool ist gültig!"
End If
End If
End If
End With
Set oPathHandler = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

raist10 · 8. Oktober 2009

Das hat nix mit kennen zu tun, sondern ergibt sich aus der Thematik Runtime ... die hat keinerlei Access-Funktionen die man so im normalen Betrieb aufrufen. Assistenten und Co jibbet dort nicht.

Aber Du kannst das Ganze per VBA-Code lösen.

Dazu müsste es hier im Forum allerdings genug Code-Beispiele geben. Solltest Du keines finden, poste ich Dir dann aber auch gerne was. *wink.gif*

Gruß

Rainer

Edit: Und wieder mal war Atrus schneller und auch noch umfangreicher von der Antwort her. ^^

GrafFoto · 8. Oktober 2009

Hallo.

Danke erst mal für die Blitzantworten. Ich arbeite zwar seit der Version 2 mit Access, habe mich bislang aber immer um VBA rumgedrückt ...

Wenn ich den Code bei mir einfüge, dann bekomme ich gleich in der ersten Zeile

Dim oPathHandler As clsPathHandler

ne Fehlermeldung: Benutzerdefinierter Typ nicht definiert. Muss ich das irgendwo noch extra definieren?

Habe auch schon reichlich rumgesucht, aber bislang nur im Zusammenhang mit Runtime als Suchwort ...

Atrus2711 · 8. Oktober 2009

Ja, der ist von mir, wie geschrieben:

(oPathHandler ist nur ein Helfer, der guckt, ob die Dateien/Pfade da sind. Die entscheidenden Zeilen sind rot
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du solltest auch nicht blind abkopieren, sondern verstehen, wie man die Connections ändert. Das sind die roten Zeilen. Der Rest ist Gedöns und Luxus, das ist aus meinem produktiven Code. Wo du deinen Backendpfad hernimmst, musst du schon selber wissen.

Hier der Code. Er hat nur wenig mit dem Backend-Ändern zu tun. Ich nutze das nur, um zu testen, ob der Pfad existiert, den man angibt.
Code:

'clsPathHandler
'Existenz von Ordnern prüfen und durchsetzen
' .prpDrainpath: zu überprüfender bzw. anzulegender Ordnername mit Laufwerk
' .Exists: gibt an, ob der prpDrainpath bisher existiert
' .Create: legt den prpDrainpath an (auch mehrstufig!) und gibt bei Erfolg (oder wenn prpDrianpath bereits existiert) True zurück.
Option Compare Database
Option Explicit

Dim m_Drainpath As String

Public Property Get prpDrainpath() As String
prpDrainpath = m_Drainpath
End Property

Public Property Let prpDrainpath(ByRef vNewValue As String)
m_Drainpath = vNewValue
End Property

Public Function Exists() As Boolean
'prüft, ob der übergebene Pfad existiert
If Dir(prpDrainpath, vbDirectory) = "" Then
Exists = False
Else
Exists = True
End If
End Function

Public Function Create() As Boolean
'legt den übergebenen Pfad an.
'Gibt True zurück, wenn dies erfolgreich geschehen ist oder der Pfad bereits existiert,
'gibt false zurück, wenn das Anlegen fehlschlägt (z.B. fehlende Rechte).
'Iterative Routine, kann auch verschachtelte Pfade wie c:\hallo\welt\schöne\neue anlegen.
'Quelle: dbwiki.de
Dim strLaufwerk As String
Dim strPfadImLaufwerk As String
Dim aryPfadImLaufwerk As Variant
Dim lngEbene As Long
Dim strTeilpfad As String

'UNC-Pfad
If prpDrainpath Like "\\*" Then
strLaufwerk = Left$(prpDrainpath, InStr(1, prpDrainpath, "\"))
strPfadImLaufwerk = Mid$(prpDrainpath, InStr(1, prpDrainpath, "\"))
End If

'Pfad mit Laufwerkbuchstabe
If prpDrainpath Like "?:\*" Then
strLaufwerk = Left$(prpDrainpath, 3)
strPfadImLaufwerk = Mid$(prpDrainpath, 4)
End If

'Anzulegenden Pfad (ohne Laufwerk) bilden
aryPfadImLaufwerk = Split(strPfadImLaufwerk, "\")
On Error GoTo ErrHandler
For lngEbene = LBound(aryPfadImLaufwerk) To UBound(aryPfadImLaufwerk)
If aryPfadImLaufwerk(lngEbene) "" Then
strTeilpfad = strTeilpfad & aryPfadImLaufwerk(lngEbene) & "\" 'zum Gesamtpfad verketten ("wächst" Ebene um Ebene)
'Wenn Teilpfad noch nicht existiert, anlegen
If Dir(strLaufwerk & strTeilpfad, vbDirectory) "." Then
MkDir strLaufwerk & strTeilpfad 'im Laufwerk erzeugen
End If
End If
Next lngEbene
On Error GoTo 0
If Err.Number = 0 Then
Create = True
Else
'wird vom ErrHandler bestückt
End If
Exit Function '------------------------------------------------------------------------------------------->Exit

ErrHandler:
If Err.Number 0 Then
Err.Clear
On Error GoTo 0
Create = False
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

GrafFoto · 8. Oktober 2009

Nochmal hallo. Nochmal danke.

Um das nachzuvollziehen reicht mein VBA Verständnis nicht aus. Macht aber nichts. Nachdem ich kapiert hatte, dass es kein Runtime Problem ist, habe ich noch mal die Suche bemüht. Und da bin ich auf diesen Beitrag (inkl. Musterdatenbank) gestossen:

http://ms-office-forum.net/forum/sho...d.php?t=207458

Mit ein wenig Basteln konnte ich das in mein Projekt übernehmen. Läuft auch in der Runtime.

Marsu65 · 8. Oktober 2009

Ein Verknüpfungsformular für solche Fälle (Access-BE ohne Passwort) findet man Hier

Office: (Office 2007) 2007 Runtime + Tabellenverknüpfungsmanager

2007 Runtime + Tabellenverknüpfungsmanager

2007 Runtime + Tabellenverknüpfungsmanager

2007 Runtime + Tabellenverknüpfungsmanager

2007 Runtime + Tabellenverknüpfungsmanager - Similar Threads - 2007 Runtime Tabellenverknüpfungsmanager

Makros in Excel 2007 aktivieren

Outlook 2007 - Suche funzt nicht

Outlook 2007 - IMAP: Verschieben von E-Mails

Suche in Outlook defekt

Runtime-Version 2007

Access Runtime 2007

CreateObject mit Access Runtime 2007