Office: (Office 2003) Dokumentenverwaltung II

nitrox_at · 9. Juni 2010

Hi

Würde gerne Word und Exceldatein zur Vorschau anhängen, wie kann ich das am schnellsten umsetzten?

Danke wie immer für eure Hilfe
Thomas

maxxime · 11. Januar 2011

Hallo,
Die Dokuverwaltung UK finde ich schon richtig brauchbar. Ich würde mich gerne daran machen und sie füre meine Zwecke etwas modifizieren.

Mich stört, dass die Dokuverwaltung alle Dateien in ein Verzeichnis ablegt.
Wenn da mal einiges zusammenkommt, ist das extrem unübersichtlich.
Doppelte Dateinamen etc.
Also sollte ein Verzeichnis angelegt werden können. Evtl auch gleich den Kategorienamen mit übernehmen.

Meine Frage: Ist das mit den Verzeichnissen sinnvoll? Ich denke ab einer gewissen Anzahl von Dateien macht das das Dateisystem nicht mehr mit, oder?

Wie könnte das am Besten in der Dokuverwaltung realisiert werden?

Vielen Dank schonmal für Eure Unterstützung

Grüße Maxxime

Jens · 4. August 2013

guten Tag

ich habe mir die DB in meine DB importiert. klappt soweit gut.
Meine Kundentabelle ist aber umeiniges größer in der Anzahl der Einträge.
Wie kann ich im treeview nur die Kunden anzeigen die eine Verknüpfung zu einem Dokument haben.

wo muß im Code welche Änderung vorgenommen werden?

Code:

Public Sub FillTree(Optional iTyp As Integer = 0)
Dim oNode As Node
Dim oRs As ADODB.Recordset
Dim oDoc As ADODB.Recordset
Dim oKat As ADODB.Recordset

Dim sImage As String

iTreeMode = iTyp
oTree.Nodes.Clear
Set oTree.ImageList = Nothing
FillImageList

Set oRs = New ADODB.Recordset
Set oDoc = New ADODB.Recordset

If iTyp = 0 Then
oRs.Open "tbl_docKategorie", CurrentProject.Connection, adOpenStatic, adLockReadOnly
oDoc.Open "tbl_Docs", CurrentProject.Connection, adOpenStatic, adLockReadOnly
While Not oRs.EOF
Set oNode = oTree.Nodes.Add(, , "k" & oRs![ID], oRs![Kategorie], 3)
oNode.Bold = True
oNode.Expanded = True
With oDoc
.Filter = "[DocKategorie] =" & oRs![ID]
While Not .EOF
sImage = UCase(GetExtFromFile(![DocFile]))
Set oNode = oTree.Nodes.Add("k" & oRs![ID], tvwChild, "d" & ![DocNr], ![DocName], sImage)
.MoveNext
Wend
End With
oRs.MoveNext
Wend
Else
Set oKat = New ADODB.Recordset
oRs.Open "tbl_Kunden", CurrentProject.Connection, adOpenStatic, adLockReadOnly
oKat.Open "qry_KatToKdn", CurrentProject.Connection, adOpenStatic, adLockReadOnly
oDoc.Open "tbl_Docs", CurrentProject.Connection, adOpenStatic, adLockReadOnly

While Not oRs.EOF
Set oNode = oTree.Nodes.Add(, , "k" & oRs![KndNr], oRs![KndNam], 2)
oNode.Bold = True
oNode.Expanded = True
With oKat
.Filter = "[KndNr] =" & oRs![KndNr]
While Not .EOF
Set oNode = oTree.Nodes.Add("k" & oRs![KndNr], tvwChild, "z" & oRs![KndNr] & ![ID], ![Kategorie], 3)
oNode.Bold = True
oNode.ForeColor = 8421504
oNode.Expanded = True
With oDoc
.Filter = "[DocKndNr] =" & oRs![KndNr] & " AND [DocKategorie] =" & oKat![ID]
While Not .EOF
sImage = UCase(GetExtFromFile(![DocFile]))
Set oNode = oTree.Nodes.Add("z" & oRs![KndNr] & oKat![ID], tvwChild, "d" & ![DocNr], ![DocName], sImage)
.MoveNext
Wend
End With
.MoveNext
Wend
End With
oRs.MoveNext
Wend
End If

If Not oKat Is Nothing Then oKat.Close: Set oKat = Nothing
If Not oDoc Is Nothing Then oDoc.Close: Set oDoc = Nothing
If Not oRs Is Nothing Then oRs.Close: Set oRs = Nothing

With Me
.cmdTreeKat.FontBold = (iTreeMode = 0)
.cmdTreeKnd.FontBold = (iTreeMode 0)
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke im voraus
Jens

Office: (Office 2003) Dokumentenverwaltung II

Dokumentenverwaltung II

Dokumentenverwaltung II

Dokumentenverwaltung II - Similar Threads - Dokumentenverwaltung

Dokumentenverwaltung über Access 2016

Dokumentenverwaltung

Dokumentenverwaltung (Access-Home)