Supportnet / Forum / Datenbanken
Standardwert aus vorherigem Datensatz ???
Frage
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 1 von RalfH
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
Musste halt noch für Deine Bedürfnisse anpassen.
Gruß Ralf
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