Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- microsoft:access [2018/11/03 19:25] – [Datumsfunktionen] franz
+++ microsoft:access [2021/11/04 18:59] (aktuell) – Externe Bearbeitung 127.0.0.1
@@ Zeile 4: / Zeile 4: @@
 eine Anleitung für [[https://support.office.com/de-de/article/beispiele-für-die-verwendung-von-datumsangaben-als-suchkriterien-in-access-abfragen-aea83b3b-46eb-43dd-8689-5fc961f21762|Datumsfunktionen]] in Abfragen
 ==== Besonderheit beim Export von Datumsfeldern in csv-Dateien ====
@@ Zeile 12: / Zeile 11: @@
 <code>
 NurDatum: NFormat(ZDate([Datum]);"jjjj-mm-tt")
 </code>
   * NurDatum ist das neu formatierte Datumsfeld
   * Datum ist das ursprüngliche Datumsfeld, das nicht ausgegeben werden soll
+==== Datumsbereich einer Kalenderwoche ermitteln ====
+Bekommt man z.B. von einem Onlineversand die Information, dass ein Artikel in der KW 50 geliefert wird, kann man mit Hilfe dieser Funktion das Startdatum der Kalenderwoche ermitteln.
+Übergabeparameter: Kalenderwoche, Jahr\\
+Rückgabewert:          Startdatum\\
+Quelle:                       SmartTools Access Weekly 45/2020:
+<code>
+Function KWStartDatum(intKW As Integer, _
+                      intJahr As Integer) As Date
+  Dim dtStart As Date
+  Dim dtJahr As Date
+  KWStartDatum = DateSerial(1980, 1, 1) 'Default: 1.1.1980
+  If Not IsDate(DateSerial(intJahr, 1, 1)) Then
+    intJahr = Year(Now) 'Aktuelles Jahr
+  End If
+  If intKW <1 Or intKW> 53 Then
+    dtJahr = DateSerial(intJahr, 1, 1) 'ab 1.1.JJJJ
+    intKW = KW(dtJahr)
+    dtStart = dtJahr
+  Else
+    dtStart = DateSerial(intJahr, 1, 1) 'ab 1.1.JJJJ
+  End If
+  Do Until KW(dtStart) = intKW
+    DoEvents
+    dtStart = dtStart + 1
+  Loop
+  KWStartDatum = dtStart
+End Function
+</code>
@@ Zeile 29: / Zeile 65: @@
 Ein Tipp von Smart Tools Publishing
-Um per VBA eine leere neue Datenbank anzulegen, setzen Sie die Funktion "CreateDatabase()" wie folgt ein:\\
+Um per VBA eine leere neue Datenbank anzulegen, setzen Sie die Funktion "CreateDatabase()" wie folgt ein: \\  \\ - Wechseln Sie mit **Alt+F11**  in die VBA-Entwicklungsumgebung.
-\\
-- Wechseln Sie mit **Alt+F11** in die VBA-Entwicklungsumgebung.
-    - Wählen Sie das Menü //Extras-Verweise//     an.
+  - Wählen Sie das Menü //Extras-Verweise//  an.
-    - Setzen Sie eine Referenz auf "Microsoft DAO Object Library 3.6x".
+  - Setzen Sie eine Referenz auf "Microsoft DAO Object Library 3.6x".
-    - Nehmen Sie in Ihrer VBA-Routine die folgende Deklaration bzw. die folgenden Anweisungen auf:
+  - Nehmen Sie in Ihrer VBA-Routine die folgende Deklaration bzw. die folgenden Anweisungen auf:
+Dim db As DAO.Database \\  \\ Set db = DAO.CreateDatabase("X:\Testdatenbank.mdb", _ \\ dbLangGeneral) \\ '….. \\ 'Hier Ihre Anweisungen… \\ '….. \\ db.Close \\  \\ Der erste Parameter definiert Laufwerk, Pfad und Dateiname der anzulegenden Datenbank. Über den zweiten Parameter legen Sie das Gebietsschema bzw. die Sprache fest: "dbLangGeneral" steht hier für den Einsatz im europäischen Bereich. Weitere mögliche Konstanten für den Einsatz in anderen Regionen können Sie in Erfahrung bringen, indem Sie den Cursor auf die Anweisung "CreateDatabase" setzen und **F1**  drücken. \\  \\ Ein dritter, optionaler Parameter erlaubt die Angabe einer Datenbank-/Jet Engine-Version. Wenn Sie beispielsweise aus Access 2002/XP eine Datenbank anlegen möchten, die auch mit Access 97 genutzt werden kann, geben Sie als dritten Parameter "dbVersion30" an. Dadurch wird dann eine zur Jet Engine 3.x kompatible Datenbank angelegt. Fehlt dieser Parameter, wird die neue Datenbank in der Version der aktuellen Datenbank erstellt. \\ </font>
+===== Links zu Access VBAs =====
+Microsoft Access [[http://www.functionx.com/vbaccess2013/index.htm|Database Development with VBA]]
+===== Recordsets zum Bearbeiten von Datensätzen =====
+entnommen aus den SmartTools Access Weekly 33-35
+Um programmatisch auf die Inhalte von Tabellen zuzugreifen, werden "Recordsets" eingesetzt. Ein Recordset ist eine Sammlung von Datensätzen, die in Schleifen durchlaufen und auf verschiedener Art verarbeitet werden kann.
+Um mit DAO arbeiten zu können, muss zunächst ein entsprechender Verweis gesetzt sein. Access erledigt dies automatisch beim Anlegen einer neuen Datenbank. Access setzt dabei einen Verweis auf die Access Database Engine, die DAO enthält.
+  - Wechseln Sie mit [Alt] + [F11] in die VBA-Entwicklungsumgebung.
+  - Wählen Sie das Menü //Extras-Verweise//  an.
+  - Setzen Sie das Kontrollkästchen vor dem Eintrag "Microsoft ActiveX Data Objects x.x Library". Für "x.x" wählen Sie die höchste verfügbare Version.
+  - Übernehmen Sie die Änderungen mit einem Klick auf //Ok//.
+**Beispiel für die Initialisierung eines Recordsets:**
+<code>
+Dim db As DAO.Database
+Dim rs As DAO.Recordset
+Dim fld As DAO.Field
+Set db = CurrentDb()
+Set rs = db.OpenRecordset("Kunden", dbOpenDynaset)
+For Each fld In rs.Fields
+  Debug.Print fld.Value & ";";
+Next
+rs.Close
+Set rs = Nothing
+Set db = Nothing
+End Sub
+</code>
+Um sich durch Recordsets zu bewegen oder den Status von Recordsets abzufragen, werden die folgenden Methoden und Eigenschaften verwendet:
+  * ''rs.RecordCount'': Anzahl Datensätze im Recordset ermitteln
+  * ''rs.MoveFirst'': Auf den ersten Datensatz springen
+  * ''rs.MoveLast'': Auf den letzten Datensatz springen
+  * ''rs.MoveNext'': Zum nächsten Datensatz gehen
+  * ''rs.MovePrevious'': Zum vorhergehenden Datensatz gehen
+**ein Beispiel:**
+<code>
+Sub Test3()
+  Dim db As DAO.Database
+  Dim rs As DAO.Recordset
+  Dim Anz As Long, I As Long
+  Set db = CurrentDb()
+  Set rs = _
+    db.OpenRecordset("SELECT * FROM Kunden " & _
+                     "WHERE Land = 'Deutschland'")
+  Anz = rs.RecordCount
+  For I = 1 To Anz
+    Debug.Print rs("Firma")
+    rs.MoveNext
+  Next
+  rs.Close
+  Set rs = Nothing
+  Set db = Nothing
+End Sub
+</code>
+Um einen **Feldinhalt mit DAO zu ändern,**  sind grundsätzlich folgende Schritte notwendig:
+<code>
+rs.Edit:                                Datensatz für Bearbeitung vorbereiten
+rs("Feld")= "NeuerInhalt":              Neuen Inhalt zuweisen
+rs.Update:                              Datensatz speichern
+</code>
+Beispiel:
+<code>
+Sub Test6a()
+  Dim db As DAO.Database
+  Dim rs As DAO.Recordset
+  Dim Anz As Long, I As Long
+  Set db = CurrentDb()
+  Set rs = _
+    db.OpenRecordset("Kunden", dbOpenDynaset)
+  rs.MoveLast
+  Anz = rs.RecordCount
+  rs.MoveFirst
+  For I = 1 To Anz
+    rs.Edit
+    rs("UmsatzAktJahr") = 0
+    rs.Update
+    rs.MoveNext
+  Next
+  rs.Close
+  Set rs = Nothing
+  Set db = Nothing
+End Sub
+</code>
+Um neue Datensätze zu einem Recordset hinzuzufügen, verwenden Sie mit DAO die Methode "AddNew". Danach können die einzelnen Felder wie bei einer Änderung mit "rs(<Feldname>) = <NeuerInhalt>" gefüllt werden. Anschließend ist bei DAO ein "Update" notwendig, damit der neue Datensatz gespeichert wird.
+Beispiel:
+<code>
+Sub Test7a()
+  Dim db As DAO.Database
+  Dim rs As DAO.Recordset
+  Dim I As Long
+  Set db = CurrentDb()
+  Set rs = _
+    db.OpenRecordset("Kunden", dbOpenDynaset)
+  rs.AddNew
+  rs("Kunden-Code") = "ABCDE"
+  rs("Firma") = "Testfirma"
+  .....
+  rs("Telefon") = "030/123 456"
+  rs.Update
+  rs.Close
+  Set rs = Nothing
+  Set db = Nothing
+End Sub
+</code>
+Das Löschen eines Datensatzes erfolgt bei DAO mit der Methode "rs.Delete".
+Beispiel:
+<code>
+Sub Test8()
+  Dim db As DAO.Database
+  Dim rs As DAO.Recordset
+  Set db = CurrentDb()
+  Set rs = _
+    db.OpenRecordset("Artikel")
+  While Not rs.EOF
+    If rs("Auslaufartikel") = -1 And _
+       rs("Lagerbestand") = 0 Then
+      If MsgBox("Artikel '" & _
+                rs("Artikelname") & _
+                "' löschen?", _
+                vbYesNo + vbQuestion) = vbYes Then
+        rs.Delete
+      End If
+    End If
+    rs.MoveNext
+  Wend
+  rs.Close
+  Set rs = Nothing
+  Set db = Nothing
+End Sub
+</code>
-Dim db As DAO.Database     \\  \\ Set db = DAO.CreateDatabase("X:\Testdatenbank.mdb", _     \\ dbLangGeneral)     \\ '…..     \\ 'Hier Ihre Anweisungen…     \\ '…..     \\ db.Close     \\  \\ Der erste Parameter definiert Laufwerk, Pfad und Dateiname der anzulegenden Datenbank. Über den zweiten Parameter legen Sie das Gebietsschema bzw. die Sprache fest: "dbLangGeneral" steht hier für den Einsatz im europäischen Bereich. Weitere mögliche Konstanten für den Einsatz in anderen Regionen können Sie in Erfahrung bringen, indem Sie den Cursor auf die Anweisung "CreateDatabase" setzen und **F1**     drücken.     \\  \\ Ein dritter, optionaler Parameter erlaubt die Angabe einer Datenbank-/Jet Engine-Version. Wenn Sie beispielsweise aus Access 2002/XP eine Datenbank anlegen möchten, die auch mit Access 97 genutzt werden kann, geben Sie als dritten Parameter "dbVersion30" an. Dadurch wird dann eine zur Jet Engine 3.x kompatible Datenbank angelegt. Fehlt dieser Parameter, wird die neue Datenbank in der Version der aktuellen Datenbank erstellt.     \\ </font>