Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Hat jmd. Erfahrung mit Unterschriften Pads?
  • StefanWirrer18.03.19 10:17
  • Access Stammtisch München am 14.03.2019 (Do)
  • StefanWirrer14.03.19 07:54
  • Funktion ASC
  • Marzer13.03.19 09:42
       └ RE: Funktion ASC Marzer13.03.19 16:04
  • Laufzeitfehler 70 beim Löschen von csv Datei
  • Greiff08.03.19 15:31
       └ workaround: Laufzeitfehler 70 beim Löschen von c... Greiff08.03.19 16:14
  • nur ein Datensatz wird aktualisiert
  • Dreho5227.02.19 14:53
       └ RE: nur ein Datensatz wird aktualisiert Karl Donaubauer27.02.19 18:15
          └ RE: nur ein Datensatz wird aktualisiert Dreho5227.02.19 18:49
             └ RE: nur ein Datensatz wird aktualisiert Karl Donaubauer28.02.19 19:23
  • Neues Verzeichnis anlagen
  • Dreho5224.02.19 12:36
       └ RE: Neues Verzeichnis anlagen Karl Donaubauer25.02.19 09:11
       └ RE: Neues Verzeichnis anlagen sks26.02.19 09:23
  • Dokumentenpfad
  • Dreho5223.02.19 12:03
       └ RE: Dokumentenpfad PeterDoering23.02.19 23:27
  • update aus csv Datei
  • Greiff18.02.19 13:44
       └ RE: update aus csv Datei PeterDoering18.02.19 14:11
          └ RE: update aus csv Datei Greiff18.02.19 14:25
             └ RE: update aus csv Datei Greiff18.02.19 14:27
             └ RE: update aus csv Datei PeterDoering22.02.19 11:50
                └ RE: update aus csv Datei Greiff23.02.19 01:17
  • Public String in FormularTitel einfügen
  • Dreho5217.02.19 12:53
       └ RE: Public String in FormularTitel einfügen Marzer18.02.19 05:46
          └ RE: Public String in FormularTitel einfügen PeterDoering18.02.19 14:09
             └ RE: Public String in FormularTitel einfügen Marzer19.02.19 08:24
                └ RE: Public String in FormularTitel einfügen PeterDoering22.02.19 15:40
  • Wenn Wert = 1 im UFO dann Bericht Druck
  • Reiti201919.02.19 13:30
       └ RE: Wenn Wert = 1 im UFO dann Bericht Druck Marzer20.02.19 09:07
          └ RE: Wenn Wert = 1 im UFO dann Bericht Druck Reiti201920.02.19 17:40
             └ RE: Wenn Wert = 1 im UFO dann Bericht Druck Marzer22.02.19 09:49
  • DatumsFeld in Endlosformular aktualiseren
  • Dreho5220.02.19 12:19
       └ RE: DatumsFeld in Endlosformular aktualiseren... Marzer20.02.19 14:07
  • Filterfehler abfangen
  • Dreho5219.02.19 12:13
       └ RE: Filterfehler abfangen Marzer20.02.19 08:51
  • Konstanten
  • Dreho5213.02.19 12:16
       └ RE: Konstanten PeterDoering13.02.19 15:25
       └ RE: Konstanten Karl Donaubauer13.02.19 21:22
  • Einladung zum 34. Access-Stammtisch Hannover am 27...
  • KlausWerther13.02.19 12:26
  • Datensatz löschen
  • Dreho5211.02.19 10:39
       └ RE: Datensatz löschen PeterDoering11.02.19 11:46
       └ RE: Datensatz löschen Dreho5211.02.19 13:22
          └ RE: Datensatz löschen Marzer11.02.19 15:20
             └ RE: Datensatz löschen PeterDoering12.02.19 16:12
    Marzer
    Gesendet: 20.02.19 14:07
    Betreff: RE: DatumsFeld in Endlosformular aktualiseren


    Regular

    Beiträge: 84
    252525
    Der Befehl .refresh bezieht sich zum einen nicht auf eine Textbox, sondern auf ein Formular.
    Und der Befehl "Datumtb = Me.txtDatum.value" bezieht sich (nur) auf den aktuellen Record im Endlosformular.
    Um bei allen Records miteinander das Datum zu ändern, kann man einen SQL-Befehl absetzen, z.B.
    Dim strSQL as string
    strSQL = "UPDATE tbl_09_Buchungen_Offenes_Datum" & _
    " SET Datumtb = " & DateSQL(Me.txtDatum.value)
    " WHERE .... " 'hier ev. Filter-Bedingungen einsetzen
    CurrentDb.Execute strSQL, dbFailOnError
    Nach dem Update aller Records kann man dann me.requery verwenden.
    ...
    Die Funktion DateSQL sieht etwa so aus:
    ' ------------------------------------------------
    ' Umwandlung eines Datums ins Format #M/D/YYYY#
    ' für Verwendung in SQL-Statements
    '
    ' Parameter (Input)
    ' varDatum zu konvertierendes Datum
    ' intFormat 1=ohne Zeit, 2=mit Zeit
    '
    ' Returns
    ' Formatiertes Datum als String
    ' ------------------------------------------------
    Public Function DateSQL(ByVal varDatum As Variant, _
    Optional ByVal intFormat As Integer = 1) As String
    On Error Resume Next
    If IsDate(varDatum) Then
    ' Mit \ die Regional Settings übersteuern:
    Select Case intFormat
    Case 1:
    DateSQL = "#" & Format$(varDatum, "mm\/dd\/yyyy") & "#"
    Case Else:
    DateSQL = "#" & Format$(varDatum, "mm\/dd\/yyyy hh\:nn:ss") & "#"
    End Select
    Else
    DateSQL = vbNullString
    End If
    End Function
    ...
    Die Benennung der Datenbank-Felder sollte auch einer Namenskonvention folgen. Idealerweise weist der Name eines Feldes klar auf seinen Inhalt hin. Bei "Datumtb" gäbe es durchaus Optimierungspotential. Gut verständlich soll es ja nicht nur für den Entwickler sein, sondern auch für seinen Nachfolger.

    Top of the page Bottom of the page


    Seite: < 1 2 3 4 5 6 7 8 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)