Neue Version der Tools.mdb
Volker Raschke hat eine leicht überarbeitete Version seiner MS Access Beispieldatenbank Tools.mdb zur Verfügung gestellt.
Zum Download geht es über die Download-Rubrik.
Neu und geändert in dieser Version:
(D8) Feld Info In einem Formular Übersicht der angesprochenen Felder zeigen (In Einzelanzeige)
Call M_G_DokuAbf("AF_Arbeitsplan", False, True)
DoCmd.OpenForm "FO_Tools_FeldInfo"
' Beispiel für Tabelle
'Call M_G_DokuTab("TB_I_STARTIKEL", False, True)
'DoCmd.OpenForm "FO_Tools_FeldInfo"
(A8 A4) Double Summen Rätsel ergänzt um Rechenrätsel in M_G_FormatZ
(A8 A4) Double Summen Rätsel
(A8 A3) Einfache Hilfe-Meldungen für Anwendungen, für welche die in B1 gezeigte Form zu aufwändig ist
(C7) Function M_G_ExcelImp Korrektur Berechnung ZAnz
For Z = 1 To ZE Step ZBlock
ZB = Z + ZBlock - 1
ZAnz = ZBlock
If ZB > ZE Then
' ZAnz = ZBlock - (ZB - ZE) + 1 ' Falsch !!
ZAnz = ZBlock - (ZB - ZE) ' 10.2.2011
ZB = ZE
End If
(A8 A2) Zugriff mit SoundEx (Länderkennzeichen)
Trennung zwischen M_P_PwMSG und M_P_PwMSG_W, damit M_P_PwMSG ohne M_Y_Kr übernommen werden kann.
Beim Komprimieren korrigiert:
If CInt(SysCmd(acSysCmdAccessVer)) SendKeysEx "%xdk" 'komprimieren bei Single User Access 97 / 2000
Else
SendKeysEx "%xmk" 'komprimieren bei höher Access 2000
End If
Vorher habe ich mit CurrentDb.Version gearbeitet, allerdings liefert das die Jet Version der MDB.
Diese Korrektur auch in A4 (Umgebungsvariablen)
(F2) von verschiedenen MDBs das letze Änderungsdatum von 3 Objekten zeigen
|
