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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Probleme not Innosetup
  • pwakolbi13.11.19 11:09
  • Ursache für Aufblähen Access DB gesucht
  • CGa11.11.19 14:25
       └ RE: Ursache für Aufblähen Access DB gesucht PeterDoering11.11.19 17:31
       └ RE: Ursache für Aufblähen Access DB gesucht CGa12.11.19 14:20
  • Access Stammtisch München am 14.11.2019 (Do)
  • StefanWirrer12.11.19 13:21
  • Eingebundene Excel-Tabellen
  • Marzer03.11.19 18:44
       └ RE: Eingebundene Excel-Tabellen PeterDoering04.11.19 11:56
          └ RE: Eingebundene Excel-Tabellen Marzer04.11.19 16:43
             └ RE: Eingebundene Excel-Tabellen PeterDoering06.11.19 16:53
                └ RE: Eingebundene Excel-Tabellen PeterDoering07.11.19 11:42
                   └ RE: Eingebundene Excel-Tabellen Marzer07.11.19 15:01
                      └ RE: Eingebundene Excel-Tabellen PeterDoering11.11.19 16:46
  • Wer hat Erfahrung mit ZUGFeRD?
  • StefanWirrer10.07.19 16:24
       └ RE: Wer hat Erfahrung mit ZUGFeRD? Kontex18.07.19 00:13
          └ RE: Wer hat Erfahrung mit ZUGFeRD? StefanWirrer19.07.19 08:43
             └ RE: Wer hat Erfahrung mit ZUGFeRD? Kontex09.09.19 14:44
                └ RE: Wer hat Erfahrung mit ZUGFeRD? StefanWirrer10.09.19 09:52
       └ RE: Wer hat Erfahrung mit ZUGFeRD? Kanne28.10.19 11:05
          └ RE: Wer hat Erfahrung mit ZUGFeRD? StefanWirrer08.11.19 15:13
  • Access 2000 Runtime unter Windows 10
  • Grebi29.10.19 10:12
       └ RE: Access 2000 Runtime unter Windows 10 PeterDoering29.10.19 12:35
          └ RE: Access 2000 Runtime unter Windows 10 Grebi29.10.19 13:42
  • TransferText in Code-Modul nicht möglich ?!
  • Kanne28.10.19 11:18
       └ RE: TransferText in Code-Modul nicht möglich ?! PeterDoering28.10.19 15:27
  • Access-Stammtisch Rhein-Main am Freitag
  • Martin Asal22.10.19 18:15
  • Geöffnetes Formular prüfen !
  • Karl-Anton21.10.19 13:09
       └ RE: Geöffnetes Formular prüfen ! Karl Donaubauer22.10.19 09:29
          └ RE: Geöffnetes Formular prüfen ! Karl-Anton22.10.19 10:41
  • Access Stammtisch München am 10.10.2019 (Do)
  • StefanWirrer08.10.19 08:57
  • Formular mit diversen Grafiken
  • ChrisHaberl25.09.19 18:08
       └ RE: Formular mit diversen Grafiken Karl Donaubauer25.09.19 22:03
  • FileDialog funktioniert nicht (Ac2016, 64bit)
  • micmen16.09.19 12:54
       └ RE: FileDialog funktioniert nicht (Ac2016, 64bit) micmen16.09.19 18:16
          └ RE: FileDialog funktioniert nicht (Ac2016, 64b... micmen17.09.19 16:47
             └ RE: FileDialog funktioniert nicht (Ac2016, 6... PeterDoering19.09.19 09:40
                └ RE: FileDialog funktioniert nicht (Ac2016,... wilo23.09.19 16:44
  • Wert einens ungebundenen Textfeldes als neuer Stan...
  • Remigio18.09.19 18:35
       └ RE: Wert einens ungebundenen Textfeldes als neue... PeterDoering19.09.19 09:36
          └ RE: Wert einens ungebundenen Textfeldes als ne... Remigio19.09.19 10:48
             └ RE: Wert einens ungebundenen Textfeldes als ... PeterDoering19.09.19 11:15
             └ RE: Wert einens ungebundenen Textfeldes a... Karl Donaubauer19.09.19 13:26
  • Access Stammtisch München am 12.09.2019 (Do)
  • StefanWirrer10.09.19 09:41
  • Access 2013 / Aktualisierung des Navigationsbereic...
  • sbgh09.09.19 11:46
    Karl Donaubauer
    Gesendet: 19.09.19 13:26
    Betreff: RE: Wert einens ungebundenen Textfeldes als neuer Standartwer für das selbe Textfeld setzen



    Elite Veteran

    Beiträge: 853
    5001001001002525
    Ort: Wien
    Hallo!

    Remigio
    ...
    Also komme ich nicht drumrum den wert in einer tabelle zu speichern.
    Hm.. das war genau das was ich eben vermeiden wollte.
    Kann ich mit vba eine tabelle erstellen, den wert speichern, dann den wert als Standard dem Feld zuweisen und dann die Tabelle wieder löschen?
    Wenn ja, wie würde der VBA code ungefähr aussehen?
    ...

    Dann würde ich statt einer Tabelle eher ein DAO-Property verwenden. Nehmen wir an, dein Steuerelement=Datumstextfeld heißt "Foo". Das erste Schnippsel hier wäre der Code im Ereignis "Nach Aktualisierung" von Foo, das zweite "Beim Öffnen" des Formulares. Es sollte funktionieren, wenn du das ins Formularmodul kopierst und "Foo" überall durch den echten Namen ersetzt.

    Private Sub Foo_AfterUpdate()

    On Error GoTo myError

    Dim db As DAO.Database
    Dim doc As DAO.Document
    Dim prp As DAO.Property

    Set db = CurrentDb

    Set doc = db.Containers("Forms").Documents(Me.Name)

    doc.Properties!prpDefaultDate = Me!Foo


    myExit:
    Exit Sub

    myError:
    Select Case Err.Number
    Case 3270
    Set prp = doc.CreateProperty("prpDefaultDate", dbDate, Me!Foo)
    doc.Properties.Append prp
    Resume Next
    Case Else
    MsgBox "Ausnahme Nr. " & Err.Number & ". " & Err.Description
    Resume myExit
    Resume
    End Select

    End Sub

    Private Sub Form_Open(Cancel As Integer)

    On Error GoTo myError

    Me!Foo = CurrentDb.Containers("Forms").Documents(Me.Name).Properties!prpDefaultDate


    myExit:
    Exit Sub

    myError:
    Select Case Err.Number
    Case 3270
    Resume myExit
    Case Else
    MsgBox "Ausnahme Nr. " & Err.Number & ". " & Err.Description
    Resume myExit
    Resume
    End Select

    End Sub

    -----
    Servus
    Karl
    *********
    Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
    Access DevCon Vienna: https://www.donkarl.com/devcon
    Access Forever: https://www.accessforever.org
    Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
    Top of the page Bottom of the page


    Seite: < 15 16 17 18 19 20 ... 21 22 23 24 25 26 27 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)