Month: Oktober 2013

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

Office 2003/2007/2010/2013 Neuregistrierung bei Parallelnutzung verhindern

Office 2003/2007/2010/2013 Neuregistrierung bei Parallelnutzung verhindern

Wenn man zwei Versionen von MS Office parallel nutzen möchte z.B. Office 2007 und 2010, dann installiert sich bei jedem Produckwechsel Word, Excel oder PowerPoint wieder erneut. Es gibt allerdings einen Workaround um dieses Problem zu lösen.

Um diese Neuinstallation bzw. Neuregistrierung im System zu umgehen, müssen neue Einträge in der Registrierunsdatenbank eingetragen werden. Führen Sie hierzu folgende Schritte aus:

Weiterlesen