Zufälliger Artikel

Problemstellung:

Wie kann ich DB-Properties lesen?
{xtypo_alert} Verweis auf die Microsoft DAO 3.X Object Library erforderlich {/xtypo_alert}  

Public Function GetProp(strEigenschaftenname As String)
'*******************************************
'Name:      GetProp (Sub)
'Purpose:   Auslesen von Datenbank Einstellungen
'Author:    Thomas Keßler
'Date:      Dezember 15, 2002, 11:00:15
'Inputs:    prop= Die Eigenschaft die gelesen werden soll
'Output:
'*******************************************
On Error GoTo Err_Prop
    Dim db As DAO.Database
    Set db = CurrentDb
    
    GetProp = db.Properties(strEigenschaftenname)
    db.Close
    GoTo Err_Ende
Err_Ende:
    Exit Function
Err_Prop:
    If Err.Number = 3270 Then
        MsgBox "Property wurde noch nicht gesetzt.", _
               vbCritical + vbOKOnly, "Fehler"
        Exit Function
    Else
        Dim strErrString As String
        strErrString = "Error Information..." & vbCrLf
        strErrString = strErrString & "Error#: " & Err.Number & vbCrLf
        strErrString = strErrString & " Description: " & Err.Description & vbCrLf
        MsgBox strErrString, vbCritical + vbOKOnly, "Error in Sub: GetProp"
        Resume Err_Ende
    End If
End Function

Aufruf:

Dim x
x = GetProp("AllowBypassKey")

Würde den Zustand der der Property "Shift-Taste zulassen" auslesen

Ähnliche Artikel

Home

1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)
Problemstellung:

Manchmal kann es sehr nützlich sein das Access Programmfenster zur Laufzeit in
seiner Größe anzupassen. Weil es z.B. eine Anwendung ist die nur kleine
Formulare verwendet. Dann sähe es natürlich unschön aus wenn das Programmfenster
eine Größe von 1280x1024 hat und das Form nur 400x600 groß ist.
 

Besser wäre das sich das Programmfenster an das Formular anpasst.
 


Das Bsp. ist dahin erweiterbar das in DB z.B. ein kleines Startform ist und dann
ein größeres Form geöffnet wird und das Programmfenster wächst mit.
Der Code wird dann einfach im Load-Ereignis des nächsten Forms mit
anderen Werten erneut aufgerufen.

Lösung:
s. Bsp-DB
 

Dateien:

Ändern der Größe des MS-Access Programmfensters zu Laufzeit

ab A00

Die Zip-Datei enthält ein Version ab A00
 
Datum 05.02.2018
Dateigröße 14.34 KB
Download 991

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

1.png1.png9.png1.png3.png6.png8.png
Heute19
Gestern75
Diese Woche417
Dieser Monat1301
Total1191368

  • IP: 54.81.71.187
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

21. April 2018