vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen & Antworten rund um sev-Komponenten
Access VBA: Komfortable Umwandlung von sevCommand3 in sevCommand4 
Autor: benne
Datum: 09.11.18 07:42

Ein kleiner Tip an alle, die von Command3 auf Command4 umsteigen wollen.

Bisher war das eine Fleißarbeit. Durch Zufall habe ich folgenden Weg gefunden und er funktioniert prächtig. ( Access 2010 )
Dabei wollte ich eigentlich was ganz anderes machen.

Es gibt die (undokumentierte) Funktion Application.SaveAsText bzw. LoadFromText
Damit wird ein Formular als Textdatei gespeichert und kann wieder eingelesen werden.
In der Textdatei kann jetzt sehr einfach eine Ersetzung von sevcommand3 nach sevcommand4 vorgenommen werden.

 
OLEClass ="sevCommand4.Command"
Class ="sevCommand4.Command"
Folgende 2 Routinen geben alles aus und lesen es auch wieder ein.
Vorher natürlich die bestehenden Formulare löschen.
(Das man vorher eine Sicherheitskopie macht, versteht sich von selbst ... )

Wer nicht mit adp arbeitet muss anstelle "currentProject" mit "currentDB" arbeiten.
Das Prinzip ist das selbe.

Public Sub app_SaveAllForms()
    Dim frmX As Object
    Dim strName As String
 
    apiCreateFullPath CurrentProject.Path & "\Forms\"
 
    For Each frmX In CurrentProject.AllForms
        strName = frmX.Name
        Application.SaveAsText acForm, strName, CurrentProject.Path & "\Forms\" _
          & strName & ".txt"
    Next
 
End Sub
 
Public Sub app_ReadAllForms()
    Dim strName As String
    Dim strpath As String
    Dim strFile As String
 
    strpath = CurrentProject.Path & "\Forms\"
    strFile = Dir(strpath & "*.txt")
    If strFile > "" Then
        Debug.Print strFile
        Application.LoadFromText acForm, Split(strFile, ".")(0), strpath & "\" _
          & strFile
        Do
            strFile = Dir()
            If strFile = "" Then Exit Do
            Debug.Print strFile
            Application.LoadFromText acForm, Split(strFile, ".")(0), strpath & _
              "\" & strFile
        Loop
    End If
 
End Sub
Viel Spaß damit. Vielleicht kann es jemand brauchen oder auch für andere Zwecke verwenden.

Beitrag wurde zuletzt am 09.11.18 um 07:45:16 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Access VBA: Komfortable Umwandlung von sevCommand3 in sevCom...48benne09.11.18 07:42
Re: Access VBA: Komfortable Umwandlung von sevCommand3 in se...19benne09.11.18 09:05
Re: Access VBA: Komfortable Umwandlung von sevCommand3 in se...18Franki10.11.18 04:12

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel