Streng indeholdende Form_FormNavn

Look at the Eval function

Eval("Form_Forside.caption = ""test""")

and to get Form_Forside.caption = "test" into a string you have to use double "

EG:
MinStreng = "Forms!form1.caption = ""test"""

Hi Terry, I have to run... But this is where I am now!~)

KodeStreng = "'" & "Form_" & xx.Name & "." & Egenskab & " " & Parameter & "'"
Eval (KodeStreng)

Sub Form_Current()
  Me.Caption = "Test"
end sub

I cant see waht the variables hodl so it shard to give an exampel but if you want KodeStreng to contain

Form_Forside.caption = "test"

then you have to use

KodeStreng = "Form_Forside.caption = ""test"""




Try
KodeStreng = "Form_" & "forside" & "." & "Caption" & " = """ & "test" & """

Eval (KodeStreng)

ffsoft it isnt as easy as that, unless I have misunderstood the question!

Terry: Tjah fyret af kan jo betyde mange ting. ,0)

Det jeg kommer frem til er at udtrykket bliver evalueret, men da den ikke resulterer i en tekst streng eller en numerisk værdi, så kommer der ikke noget "resultat"!~(

Without seeing exactly what you rdoing its hard to say what the problem is, so if possible can you send me your dB or part of?

ekspertenATsanthell.dk

AT = @

yes your right ffsoft, I wasnt sure either at first, still not 100% now :o)

Efter lidt email-korrespondance, siger jeg tak for hjælpen til Terry og her er resultatet!~)

Public Function SkiftParametre()
On Error GoTo err_SkiftParametre
Dim tempDatabase As Database
Dim xx     
Dim tempContainer
Dim KodeStreng As String
Dim Egenskab As String
Dim Parameter As String
Egenskab = InputBox("Indtast egenskaben, som skal ændres:")
Parameter = InputBox("Indtast den ønskede parameter:")
Set tempDatabase = CurrentDb
For Each xx In tempDatabase.Containers![Forms].Documents
    DoCmd.OpenForm xx.Name, acDesign
    Forms(xx.Name).Properties(Egenskab) = Parameter
    DoCmd.Close acForm, xx.Name, acSaveYes       
Next xx
Exit Function
err_SkiftParametre:
MsgBox Err.Description
End Function

thanks