online 1
gast (50)

/ Forum / Datenbanken

DatenbankenDatenbanken

Fragevon Thomas14547 vom 13.12.2020, 15:14 Options

Standardwert aus vorherigem Datensatz ???

MS Access 2002 SP3;
aufgeteilt in Front- und BackEnd ca. 15 User


Hallo an alle Adventsengel und Nikoläuse,

Lange Rede, kurzer Sinn:

Über ein gebundenes Formular werden 10 verschieden Daten (Text, Zahlen, Ja/Nein-Werte) in eine Tabelle [Erfassung_FS] eingegeben.

Ein Feld ist unter anderem [BJ] = Beitragsjahr (Auswahlliste), jetzt kommt es oft vor, dass alle neun Daten gleich bleiben und sich nur das [BJ] ändert.

Der User muss nun immer wieder alle neun Daten eingeben, um dann nur ein neues [BJ] einzugeben.

Effektiver wäre es doch, wenn der User z.B. alle Daten für das [BJ] 2004 eingibt und wenn es sich als notwendig erweist, immer nur noch das [BJ] ändert.

Ich habe folgenden Lösungsansatz auf donkarl.com gefunden, probiert und bin nicht damit klar gekommen:

Zitat Anfang:
"Schreibe in der Ereignisprozedur Nach Aktualisierung des jeweiligen Feldes oder des Formulares:

bei Textfeldern
Me!DeinFeldName.DefaultValue = „“ & Me!DeinFeldName & „“

bei Datumsfeldern
Me!DeinFeldName.DefaultValue = Str(CDbl(Me!DeinFeldName))

bei anderen Felddatentypen (Zahl, Ja/Nein etc.)
Me!DeinFeldName.DefaultValue = Me!DeinFeldName"
: Zitat Ende

Vielleich hat jemand oder auch frau am 3. Advent Langeweile ;-) und eine Lösung für mich…

Danke für deine Bemühungen schon mal im vorraus ;-)

schöne grüsse aus B von Thomas


Antwort schreiben

Antwort 1 von RalfH vom 15.12.2020, 06:48 Options

Hallo Thomas,


Das könnte man mit nem Button, Bei KLick machen:

dim a ,b as string ' Textwerte
dim d,e,f as Integer ' Zahlenwerte
dim c ' Variant Wert
a=me!Dein1.Textfeld
b=me!DeinnächstesFeld
c = MsgBox("Möchten Sie die bestehenden Daten übernehmen ?", vbYesNo, "DeineÜberschrift")
If c = vbYes Then
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Me.Refresh
    DoCmd.GoToRecord acDataForm, "DeinFormular", acNewRec
    Me!Dein1.Textfeld = a
    Me!nächstesFeld= b
end if
    


Musste halt noch für Deine Bedürfnisse anpassen.
Gruß Ralf

Ähnliche Themen

Datensatz duplizieren
Turion64  15.11.2007 - 165 Hits - 1 Antwort

Datensatz aus Tabelle ansprechen
Iduna  19.05.2008 - 46 Hits - 1 Antwort

unterformular datensatz anzeigen
gondi  23.07.2008 - 19 Hits - 5 Antworten

Neuer Datensatz anlegen
morpheus__85  23.07.2008 - 38 Hits - 1 Antwort

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Mon Jan 26 01:23:17 2026