standardværdi igen

øøøøh - forklar scenariet ?

Det er en tidsregostreringsdatabase. Hver uge indtaster vi hvor mange timer, vi har brugt på forskellige typer af opgaver. Dette gøres i en formular, der indeholder et felt til opgavekoden, et felt til antallet af timer brugt på pågældende opgave og et felt til datoen. Problemet er, at det er træls at skulle indtaste samme dato mange gange, hvis f.eks. man har arbejdet med 20 forskellige opgaver i denne uge, så skal man taste datoen tyve gange.

Tidligere har jeg så spurgt om man kunne få den indtastede dato til at blive i feltet (evt. som standardværdi). Men jeg kunne ikke finde ud af de løsningsforslag jeg fik. Dog nåede jeg så langt som til at få den indtastede dato til at blive standardværdi i en helt ny tabel.

Derfor dette spm.: kan man hente denne dato (altså standardværdien fra en anden tabel) ind i formularen som standardværdi i datofeltet her?

Du kan jo lave en SQL der Select'er standardværdien først
dernæst (i din formular) kan du lave et input type=text felt hvor du henter værdien ind:
<input type="text" name="feltnavn" size="10" value="<% =rs("standardværdien") %>">

jeg er ked af det men jeg er ikke så meget inde i alt det med koder og sql osv, så hvis du kan forklare helt nøjagtigt hvad jeg skal gøre?

<%
SQL = "SELECT dato-navnet FROM din-tabel ORDER BY id DESC"
set RS = conn.execute(sql)
%>

<input type="text" name="feltnavn" size="10" value="<% =rs("standardværdien") %>">

<%
RS.Close
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>

Denne henter data fra din tabel og sortere dem efter ID (den højeste ID)
D.v.s. nu har du fat i den sidste post først.
Dernæst smider du datoværdien ind i et input-felt (det hvor du normalt skriver datoen 20 gange)
og så lukker den databasen igen.

Så skal du bare tilføje alle dine andre felter også

og hvor skal alt dette stå - helt nøjagtigt?

hvad har du indtil nu - giv mig din kode

formularen hedder mpb
tabellen med standarddatoen hedder Date, feltet med standarddatoen hedder Standarddato

i formularen er flg kode:

Private Sub Datofelt_AfterUpdate()
Dim db As DAO.Database
Set db = CurrentDb
Dim tbl As TableDef
Set tbl = db.TableDefs("Date")
tbl.Fields("Standarddato").DefaultValue = Me.Datofelt
End Sub

denne får standardværdien på feltet Standarddato i tabellen Date til at være senest indtastede værdi i formularen mpb (i feltet Datofelt).

Nu vil jeg så gerne hente denne standardværdi tilbage og gøre den til standardværdi i feltet Datofelt i formularen mpb

det er da ikke koden til dine inputfelter

ok, hvor finder jeg det du vil se?

smid hele koden op (hele siden)

men det nemmeste ville være, hvis man bare kunne hente standardværdien i tabellen og så genbruge den som standardværdi i formularen

hvis du sætter de her to sætninger ind i formularens before update og udskifter me!Date med det felt hvor indtastede skal med over til næste record.
Du kan lave den for flere felter ved at ændre c'et  til f.eks a, etc.
du skal bare ændre det alle tre steder.

Const cQuote = """"
Me!Date.DefaultValue = cQuote & Me!Date.Value & cQuote

sådan!
der var den.
Tak skal du have - det var lige det jeg manglede.

Og også tak for din tålmodighed superior, men det her er da helt enkelt.

Ingen årsag