Die Webseite rund um Microsoft Access
ACCESS LINKS PROJEKTE SHOP KONTAKT INFO
 Home          Beispiel-DBs          Funktionen          FAQs          Downloads          Newsletter          Forum        
         Tipps
Funktion DatenbankName()
Auslesen des Namens der aktiven Datenbank.
Public Function DatenbankName()

Dim Merk As String
Dim Nam As String
Dim Pfa As String
Dim T As Integer
Dim Lang As Integer
Dim Wo As Integer

    Merk = [CurrentDb].[Name]
    Lang = Len(Merk)
    For T = 0 To Lang - 1
        Merk = Mid([CurrentDb].[Name], Lang - T, 1)
        If Merk = "" Then
            Wo = Lang - T
            Exit For
        End If
    Next T
    DatenbankName = Right([CurrentDb].[Name], Lang - Wo)

End Function

Alle anzeigen




 Login | Impressum | ADMIN | Printversion

Copyright by Seitenzentrale.de