Search  

   

Latest News  

Problemstellung:Wenn man Etiketten drucken will steht man oft vor einigen Problemen.1. Man möchte nur ein paar Etiketten drucken und beim nächsten Druck braucht man wieder   ein neues Blatt weil freie...
   

Latest Forumposts  

  • Keine Beiträge vorhanden
   

Kommentare  

Tut mir leid Hella, ich kann Dir nicht folgen? 13.04.2017 - 14.04.2017 ergibt bei mir 1 13.04.2017 -...
Gast - Hella
Hallo, Berechne wie folgt, ob "zu früh" oder "zu spät" Rückmeldet. Früher sollte auch mit negativer ...
Gast - Hella
Hallo, mit negativen Werten meine ich z.B. -5 Tage (ohne Wochenende) u.ä. Zur Zeit wird nur die 0 au...
Hallo Hella, wie negative Werte? Kannst Du es erläutern was Du machen willst? Gruß Tommy
Gast - Hella
Hallo, ich bräuchte auch negative Werte bei der Anzahl, wie kann man das realisieren? Liebe Grüße He...
   

Counter  

1113839
HeuteHeute570
GesternGestern1041
Diese WocheDiese Woche570
Dieser MonatDieser Monat22051
GesamtGesamt1113839
Highest 07.12.2017 : 1250
US
UNITED STATES
US

This page uses the IP-to-Country Database provided by WebHosting.Info (http://www.webhosting.info), available from http://ip-to-country.webhosting.info

   

Download Statistik  

Diese Site enthält 187 Downloads in 30 Kategorien. Gesamtdownloads bisher: 234281
   
Free live stats and visitor counter for Joomla, Wordpress, Drupal, Magento and Prestashop
   

Login

   

User Online

Total: 65 Members: 0 Guests: 65
No members online
   

Beiträge

Schreiben von DB-Properties

Bewertung:  / 0
SchwachSuper 
Details

Problemstellung:

Wie kann ich DB-Properties schreiben?

Verweis auf die Microsoft DAO 3.X Object Library erforderlich

  

Public Function SetProp(strEigenschaftenname As String, varEigenschaftentyp As Variant, _
                        varEigenschaftenwert As Variant) As Integer
'*******************************************
'Name:      SetProp (Function)
'Purpose:   Setzen von Datenbank Einstellungen
'Author:    Thomas Keßler
'Date:      Dezember 15, 2002, 11:04:37
'Inputs:    strEigenschaftenname= Die Eigenschaft die gesetzt werden soll
'           varEigenschaftentyp = Typ der Eigenschaft, 
'           varEigenschaftenwert = Wert der Eigenschaft
'Output:    gibt True zurück wenn Eigenschaft eingestellt wurde, sonst False
'*******************************************
    Dim db As DAO.Database
    Dim prp As Property
    Const conPropNotFoundError = 3270
    Set db = CurrentDb
    On Error GoTo Ändern_Fehler
    db.Properties(strEigenschaftenname) = varEigenschaftenwert
    SetProp = True
Ändern_Ende:
    Exit Function
Ändern_Fehler:
    If Err = conPropNotFoundError Then  ' Eigenschaft nicht gefunden.
        Set prp = db.CreateProperty(strEigenschaftenname, _
            varEigenschaftentyp, varEigenschaftenwert)
        db.Properties.Append prp
        Resume Next
    Else
        ' Unbekannter Fehler.
        SetProp = False
        Resume Ändern_Ende
    End If
End Function

Aufruf:

Call SetProp("AllowBypassKey", DB_BOOLEAN, False)

Würde den Zustand der der Property "Shift-Taste zulassen" auf False setzen,
also die Shift-Taste wäre gesperrt.

Einen Kommentar verfassen

Als Gast kommentieren

0 / 300 Zeichen Beschränkung
Dein Text sollte zwischen 10-300 Zeichen lang sein
Nutzungsbedingungen.
  • Keine Kommentare gefunden