Office: (Office 2007) Modulname mit Umlaut

Helfe beim Thema Modulname mit Umlaut in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo Jürgen, leider ist dein Link für MS-Word! Gibt es so etwas auch für MS-Access? Sibylle Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Sibylle Reichert, 13. Januar 2014.

Seite 2 von 5

SIBYLLE REICHERT

Sibylle Reichert

Modulname mit Umlaut

Hallo Jürgen,

leider ist dein Link für MS-Word! Gibt es so etwas auch für MS-Access?

Sibylle

Sibylle Reichert, 16. Januar 2014

#16
EL_GOMERO

el_gomero

naja leicht modifiziert gibt mir das Teil schon mal die Zeilen meiner (einzig geöffneten) db zurück:

Code:

Public Sub TestModulfelder()

Dim oApp As Access.Application
Dim myProject As VBProject
Dim myComponent As VBComponent
Dim strNames As Variant, strDocNames As String
Dim strFile() As String
Dim iCount As Integer
Dim strProc As String
Set oApp = GetObject(, "Access.Application")
' Alle Projekte durchlaufen
For Each myProject In VBE.VBProjects
strNames = ""
' Nur ungeschützte berücksichtigen
If myProject.Protection = vbext_pp_none Then
On Error Resume Next
If myProject.VBComponents.Count > 1 Then
strFile() = Split(myProject.FileName, "\")
strNames = strNames & myProject.Name & " (" & _
strFile(UBound(strFile())) & ")" & vbCrLf
On Error GoTo 0
' Alle Module durchlaufen
For Each myComponent In myProject.VBComponents
With myComponent
' Modul-Typ ermitteln
If .Type = vbext_ct_StdModule Then
strNames = strNames & vbTab & .Name & vbTab & " (bas)" & vbCrLf
ElseIf .Type = vbext_ct_ClassModule Then
strNames = strNames & vbTab & .Name & vbTab & " (cls)" & vbCrLf
ElseIf .Type = vbext_ct_MSForm Then
strNames = strNames & vbTab & .Name & vbTab & " (frm)" & vbCrLf
ElseIf .Type = vbext_ct_Document Then
strNames = strNames & vbTab & .Name & vbTab & " (doc)" & vbCrLf
End If
' Declaration auslesen
If .CodeModule.CountOfDeclarationLines > 0 Then
For iCount = 1 To .CodeModule.CountOfDeclarationLines
If .CodeModule.Lines(iCount, 1) "" Then
strNames = strNames & vbTab & vbTab & "Declaration" & vbTab & " (" & _
.CodeModule.CountOfDeclarationLines & " Z.)" & vbCrLf
Exit For
End If
Next iCount
End If
' Prozeduren auslesen
strProc = ""
For iCount = 1 To .CodeModule.CountOfLines
If .CodeModule.ProcOfLine(iCount, vbext_pk_Proc) strProc Then
strProc = .CodeModule.ProcOfLine(iCount, vbext_pk_Proc)
strNames = strNames & vbTab & vbTab & strProc & vbTab & " (" & _
.CodeModule.ProcCountLines(strProc, vbext_pk_Proc) & " Z.)" & vbCrLf
End If
Next iCount
End With
Next myComponent
'MsgBox strNames
strDocNames = strDocNames & strNames & vbCrLf
End If
End If
Next myProject
' In Dokument ausgeben
'Dim oDoc As Document
'Set oDoc = Documents.Add
'oDoc.Range.InsertAfter strDocNames
Debug.Print strDocNames

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

Allerdings habe ich bisher keine Methode gefunden um auf die Inhalte der Lines zuzugreifen.

el_gomero, 16. Januar 2014

#17
MAIKEK

maikek

Hallo Sybille,
vielleicht lässt sich in Kombination mit Bennys Code was machen:
Code:

Dim rs As DAO.Recordset

Set rs = CurrentDB.OpenRecordset("SELECT Name FROM MSysObjects WHERE Type=-32761")

rs.MoveFirst
Do Until (rs.EOF)
Debug.Print rs.Fields(0).Value
application.SaveasText acModule, rsFields(0).Value, "Pfad\", rsFields(0).Value & ".txt"
rs.MoveNext
Loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

maikek, 16. Januar 2014

#18
WB_3001

wb_3001

Modulname mit Umlaut

Hallo Sybille!

Der folgende Code listet den Code aller Module (nicht den Code in Formularen und Berichten) einer DB auf.
Er funktioniert von einer beliebigen DB aus.
Aufruf im Direktfenster: ? GetVBACode("DeinVollAusqualifizierterDatenbankname")

Code:

'
' ModulCode aus einer DB ermitteln
'
Function GetVBACode(strMDB As String)
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim bas_FileName As String
Dim fsoModulFile As Object
Dim fso As Object
Dim objAccess
Dim accDB As Database
Dim accDoc As Document
Dim accMdl As Module

Set fso = CreateObject("Scripting.FileSystemObject")
bas_FileName = Application.CurrentProject.Path & "\DB_VB_Code.txt"
Set fsoModulFile = fspenTextFile(bas_FileName, ForWriting, True)
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase strMDB
Set accDB = objAccess.CurrentDb
fsoModulFile.WriteBlankLines (1)
fsoModulFile.WriteLine "'>>>>>>>>>> Alle Module der Datenbank " & strMDB & ", " & Now

For Each accDoc In accDB.Containers("Modules").Documents
objAccess.DoCmd.OpenModule accDoc.Name
Set accMdl = objAccess.Modules(accDoc.Name)
' .WriteBlankLines-Methode (Anzahl_Lines as integer)
fsoModulFile.WriteBlankLines (1)
fsoModulFile.WriteLine "' -------- Modul: " & _
accMdl.Name & " --------"
fsoModulFile.WriteBlankLines (1)
' .CountOfLines-Eigenschaft: Anzahl der Zeilen, die ein Modul enthält
' .CountOfDeclarationLines: wie viele Codezeilen enthält der Deklarationsbereich eines Standardmoduls
' .Lines-Eigenschaft (ab_Line as long, Anzahl_Lines as long)
fsoModulFile.Write accMdl.Lines(1, accMdl.CountOfLines)
fsoModulFile.WriteBlankLines (1)
'DoCmd.Close acModule, Objektname, acSaveYes 'acModule=5, acSaveYes=1, acSaveNo=2
objAccess.DoCmd.Close 5, accDoc.Name, 2
Next
fsoModulFile.WriteLine "' -------- Ende der Modulauswertung der Datenbank " & strMDB
fsoModulFile.Close
Set fso = Nothing
objAccess.Quit
Set fsoModulFile = Nothing
Set accDoc = Nothing
Set accDB = Nothing
Set accMdl = Nothing
Set objAccess = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wolfgang

wb_3001, 16. Januar 2014

#19
SIBYLLE REICHERT

Sibylle Reichert

Hallo Maike,

beim Modul "Abwesenheitsgruende" kommt der Fehler: 3270 Eigenschaft nicht gefunden!

Und hallo Wolfgang,

auch beim Modul "Abwesenheitsgruende" kommt der Fehler: 2517 Die Prozudur " kann von Microsoft Office Access nicht gefunden werden!

Sibylle

Sibylle Reichert, 16. Januar 2014

#20
MAIKEK

maikek

Dann fällt mir dazu nur noch donkarl FAQ1.27: Decompile ein.
maike

maikek, 16. Januar 2014

#21
SIBYLLE REICHERT

Sibylle Reichert

Das Decompile habe ich leider schon selbst gefunden! Aber trotzdem danke!

Sibylle

Sibylle Reichert, 16. Januar 2014

#22
WB_3001

wb_3001

Modulname mit Umlaut

Hallo Sybille!

Kannst Du die DB ohne Daten, Abfragen, Formulare, Berichte, Makros etc., also nur mit den Modulen, hier hochladen.

Vielleicht gibt es noch eine andere Möglichkeit.

Wolfgang

wb_3001, 16. Januar 2014

#23
SIBYLLE REICHERT

Sibylle Reichert

Hallo Wolfgang,

das hatte ich schon versucht, aber die Datei ist zu groß. Meine Datei ZMTOOLS (nur Module) hat gezippt 1.441 KB.

Sibylle

Sibylle Reichert, 16. Januar 2014

#24
EL_GOMERO

el_gomero

Hallo Sibylle,

nimm alle Module bis auf 1 (kleines funktionierendes) und das beschädigte raus. Dann sollte die Größe passen.

el_gomero, 16. Januar 2014

#25
WB_3001

wb_3001

Hallo Sibylle!

Lade die gezipte DB auf einen Filehoster wie zB.
Dateien hochladen - File-Upload.net

Wolfgang

wb_3001, 16. Januar 2014

#26
SIBYLLE REICHERT

Sibylle Reichert

Hallo,

leider bin ich immer noch bei 801 KB!

Sibylle Reichert, 16. Januar 2014

#27
WB_3001

wb_3001

Modulname mit Umlaut

Hallo!

Bei obigem Filehoster ist die Größe kein Problem.

Wolfgang

wb_3001, 16. Januar 2014

#28
SIBYLLE REICHERT

Sibylle Reichert

Ok, habe die reduzierte Datei hochgeladen.

Sibylle

Sibylle Reichert, 16. Januar 2014

#29
JOSEF P.

Josef P.

Hallo!

Hast du schon ein decompile versucht?
(Anm.: Nicht vergessen, zuvor die Originaldatei zu sichern.)

mfg
Josef

Josef P., 16. Januar 2014

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 5

Thema:

Modulname mit Umlaut

Die Seite wird geladen...

Modulname mit Umlaut - Similar Threads - Modulname Umlaut
Umlaute und Sonderzeichen nur bei Excel 2019 falsch dargestellt
in Microsoft Excel Hilfe
Umlaute und Sonderzeichen nur bei Excel 2019 falsch dargestellt: Hallo und Guten Abend, in einer Excel Datei habe ich nach der Umstellung von Win7 mit Office 2010 nach Win10 mit Office 2019 ein Problem mit der Darstellung von Umlauten und dem Eurozeichen. Auf...
umlaute in Textbox
in Microsoft Excel Hilfe
umlaute in Textbox: Hallo zusammen folgendes problem. ich habe untenstehenden code der mir die umlaute in einer Textbox ändert. nun möchte ich aber das, dass in mehreren Textboxen auf meiner userform passiert. komme...
Modulname ändern
in Microsoft Excel Hilfe
Modulname ändern: Hi, gibt es eine Möglichkeit die Modulnamen in einem Projekt zu ändern? Ich gehe bisher immer den Weg über exportieren, editieren der .bas mit dem Notepad, anschließend importieren der editierten...
Modulnamen auslesen
in Microsoft Excel Hilfe
Modulnamen auslesen: Hallo, die Modulnamen in VBA können ja bekanntlich namentlich angepasst werden. Gibt es eine Möglichkeit, den Namen mit VBA auslesen zu lassen, ähnlich zB "ThisWorkbooks.name" ("Modules.name")?...
Umlaute an eine php Seite übergeben
in Microsoft Access Hilfe
Umlaute an eine php Seite übergeben: Hallo! Ich verwende ein Webbrowser Element in einem Formular wo ich von Access aus eine Get Variable übergebe wo ein Umlaut vorkommt. Wenn ich diese dann auf einer php Seite verwenden möchte...
String mit umlauten umwandeln
in Microsoft Access Hilfe
String mit umlauten umwandeln: hallo Leute wieder einmal raucht mein Kopf, weil ich nicht weis wie ich in meinem String die umlaute umwandeln kann bevor der String abgeschickt wird. Code: FollowHyperlink "Schweiz - 2456085...
CSV-Dateien werden mit falschen Umlauten eingelesen
in Microsoft Excel Hilfe
CSV-Dateien werden mit falschen Umlauten eingelesen: Hallo, ich möchte gerne mehrere CSV-Datein in eine Exceldatei einlesen. Über PowerQuery funktioniert das ja prinzipiell auch.....leider habe ich ein größeres Problem......erstens erkennt er mir...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden