Year: 2013

Kopieren eines Ordners in einen anderen Ordner unter Beibehaltung seiner Berechtigungen

Kopieren eines Ordners in einen anderen Ordner unter Beibehaltung seiner Berechtigungen

Wenn Sie Dateien und Ordner mit dem Windows Explorer kopieren oder verschieben, können sich die Berechtigungen ändern, die für diese Dateien oder Ordner festgelegt wurden. Wenn Sie z. B. eine Datei auf einem NTFS-Systemdatenträger oder zwischen zwei NTFS-Datenträgern kopieren, behandelt Windows diese Datei als neue Datei. Als neue Datei übernimmt sie die Berechtigungen des Zielordners, und Sie werden zum ERSTELLER-BESITZER.

Weiterlesen

Anzahl Datensätze auslesen (RecordSet.Count)

Anzahl Datensätze auslesen (RecordSet.Count)

Um die richtige Anzahl Datensätze von Abfragen zu bekommen kann folgende SQL Befehl benützt werden.

Dim strsql As String 
Dim rs As DAO.Recordset 
Dim db As DAO.DATABASE 
Dim anzahl As Long 

strsql = "SELECT * FROM tbl_Pruefkatalog WHERE Standard = True" 
Set db = CurrentDb 
Set rs = db.OpenRecordset(strsql, dbOpenDynaset) 
rs.MoveLast 
anzahl = rs.RecordCount 
rs.Close: Set rs = Nothing 
db.Close: Set db = Nothing