Indsætning af tekst automatisk

1. Er forespørgslen "Liste" postkilden til din formular?
2. Er det altid den samme tekst der skal indsættes, eller der det strengen fra den sidste post?

hvor sætter du ikke standard værdien i databasen?

og ellers må du vel kalde en update sql sætning på formular siden når den loades

Med mindre, at der kun er én post i forespørgslen, så mangler du at identificere den post i forespørgslen, som skal benyttes. Men hvis der kun er én post, kan du lægge denne kode på formularens VedAktuelt:

If Me.Newrecord then
    Me!Godsreg.Defaultvalue = "'" & DFirst("Standard", "Liste") & "'"
endif

Det er den tekst der er blevet brugt i den foregående post - den skal genbruges.

Så prøv med denne kode på Form_Current:

  Dim rs As DAO.Recordset
  If Me.NewRecord Then
      Set rs = Me.RecordsetClone
      rs.MoveLast
      Me!Godsreg.DefaultValue = "'" & rs!Standard & "'"
      rs.Close
  End If

Metoden kræver en reference til DAO

Dim rs As DAO.Recordset
If Me.NewRecord Then
Set rs = Me.RecordsetClone
rs.MoveLast
Me!felt1.DefaultValue = "'" & rs!felt1 & "'"
rs.Close
End If

Som sædvanligt :o)

Thomas > Skal små drenge ikke snart sove?

looks familiar ;o)

jo, min søn sover skam allerede ;o)

;o)

Tak... i fortjener vist begge point...

Nå.. nu vil den ikke mere...

Private Sub Toldkurs_Enter()
Dim rs As DAO.Recordset
If Me.NewRecord Then
Set rs = Me.RecordsetClone
rs.MoveLast
Me!Toldkurs.DefaultValue = "'" & rs!Toldkurs & "'"
rs.Close
End If
End Sub

Får du nogen fejlmelding og hvilken linie er evt. markeret?

Ingen fejlmeddelse.

Jeg prøvede at ændre teksten - men så kommer der heller ingen fejlmeddelse. Jeg tror slet ikke der "sker" noget.

Måske sker hændelse slet ikke.. bemærk at det virker fint i et felt, men ikke i det næste. Måske kan man skrive hele hændelsen i en kode. Feltet der "virker" hedder "Godsreg" og det der ikke virker hedder "Toldkurs"

Jeg plejer at bruge denne, bemærk at der er forskellige felttyper:

Dim rs As DAO.Recordset
If Me.NewRecord Then
Set rs = Me.RecordsetClone
rs.MoveLast
Me!felt1.DefaultValue = "'" & rs!felt1 & "'"
Me!felt2.DefaultValue = "'" & rs!felt2 & "'"
Me!felt3.DefaultValue = "'" & rs!felt3 & "'"
Me!dato.DefaultValue = "#" & rs!dato & "#"
Me!talfelt.DefaultValue = "" & rs!talfelt & ""
rs.Close
End If

Hov - Du har jo sat koden ind her:

Private Sub Toldkurs_Enter()

Prøv at indsætte den i selve formularen.

Ved hvilken hændelse i formularen?

VedAktuel (Current)

Jeg kan fremprovokere en fejl - kommer med værdien 0 - hvis jeg står eksempelvis i "Toldkurs" og ændrer den, og ikke går ud af feltet, inden jeg går til en ny post.

Selvom min makro står til at geme posten når jeg lukker formularen.

Har du prøvet at indsætte koden i formularens VedAktuel?

Ja.. nu har jeg.. samme "fejl"

Access 97.

Når det fungerer i et felt skal det også i et andet. Og du har fjernet koden i "Toldkurs".

Ja...

Sker kun hvis jeg indtaster et tal med flere decimaler. Eks. ved 2,98 men ikke ved 2,00

Det er formateret som dobbelt reelt, format: fast, antal decimaer: 4.

Private Sub Form_Current()

Dim rs As DAO.Recordset
If Me.NewRecord Then
Set rs = Me.RecordsetClone
rs.MoveLast
Me!Godsreg.DefaultValue = "'" & rs!Godsreg & "'"
Me!Toldkurs.DefaultValue = "" & rs!Toldkurs & ""
rs.Close
End If

End Sub

Hvad sker der, hvis du ændrer denne linie:

Me!Toldkurs.DefaultValue = "" & rs!Toldkurs & ""

Til

Me!Toldkurs.DefaultValue = "'" & rs!Toldkurs & "'"

Jeg har ikke andre bud.

Så virker det tak... mangler bare et svar fra dig..

Fint det fungerer, men jeg har ikke nogen forklaring på hvorfor. Måske thomasjepsen har de gyldne ord igen?

Det vil vise sig...

uden at have nærlæst det hele, så giver det ingen mening at skrive:

Me!Toldkurs.DefaultValue = "" & rs!Toldkurs & ""

Da "" er 'ingenting' svarer det præcis til at skrive:

Me!Toldkurs.DefaultValue = rs!Toldkurs

Og da en defaultværdi vist altid er tekst (selvom feltets datatype er tal) så skal den se således ud:

Me!Toldkurs.DefaultValue = "'" & rs!Toldkurs & "'"

...mit bedste bud :o)

og det virkede...

Hmm
Denne fungerer i Access2000:

Me!talfelt.DefaultValue = "" & rs!talfelt & ""

så virker denne også:

Me!talfelt.DefaultValue = rs!talfelt

Yes :o)