Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- microsoft:access [2020/09/02 09:43] – franz
+++ microsoft:access [2021/11/04 18:59] (aktuell) – Externe Bearbeitung 127.0.0.1
@@ Zeile 8: / Zeile 8: @@
 Intern werden Datumsfelder mit Datum und Uhrzeit abgespeichert. Will man ein Datumsfeld in ein csv-File exportieren. wird auch die Zeit mit "00:00:00" mitexportiert. Will man das unterbinden, hilft die Anlage eines Hilfsfeldes, das dann statt dem ursprünglichen Feld ausgegeben wird.
-<code>
+<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>
 ===== Formularfelder nach Auswahl aus Kombinationsfeld füllen =====
@@ Zeile 42: / Zeile 78: @@
 ===== 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.
@@ Zeile 53: / Zeile 91: @@
 **Beispiel für die Initialisierung eines Recordsets:**
-<code>
+<code>
 Dim db As DAO.Database
 Dim rs As DAO.Recordset
@@ Zeile 94: / Zeile 132: @@
     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