opslags fejl

DoCmd.OpenForm "Form2"
Forms!Form2!Felt1.SetFocus
DoCmd.FindRecord Me!Felt1

Eller:

Docmd.OpenForm "Form2" Me.felt1 = [Forms]![Form2]![felt1]

prøv: nih@tre-for.dk

Jeg kan se at det er et problem, du tidligere har 'leget' med, så hvis du ikke kan bruge mugs's svar, vil jeg gerne prøve.

97 eller 2000.

Niels

mugs virker i princippet ok ( det første vel og mærket )
nu magler jeg bare lige at form2 så opdateres efter dette.
( der er i denne billedreference til eksterne filer som skal opdateres på baggrund af værdien i felt1 )

Hvis form2 skal opdateres med nye poster skal du benytte Me.Requery, eller hvis ikke det er nye poster så Me.Refresh

i en hændelse på form2 eks. VedÅbning, vedAktuel eller vedAktivering.
kan du skrive
      Me.Billede1.Requery

hvor billede1 er navnet på objektet

eller fra form1:
Forms("form2").Billede1.Requery

her er scriptet som skal opdatere mine billeder. Min billed URL bliver også opdateret til den værdi der passer med felt1, men det aktuelle billede loades ikke. hverken på en after update på felt1 eller me.requery eller me.refresh.

jeg accepterer lige MUGS idet han i princippet har svaret, men jeg ville gerne lige have den sidste krølle med...please

If Me.Billed_URL1.Value <> "" Then
Me.Image10.Picture = Me.Billed_URL1
Else
Me.Image10.Picture = "(none)"
End If

Forms("formular2").Billede1.Picture = "c:\niels\Direk.ico"

Niels, if you can help region then great if not then I have "played" with the dB before so maybe I can help.

mvh
Terry

Det kan jeg se, men jeg troede du var på ferie :o)

Region-> du kan opdatere billedet på en anden form på samme måde, du skal blot udskifte 'me' med 'Forms("formular2")'

If Forms("formular2").Billed_URL1.Value <> "" Then
Forms("formular2").Image10.Picture = Me.Billed_URL1
Else
Forms("formular2").Image10.Picture = "(none)"
End If

Niels

?? okay, men hvorfor dette. Formen er jo netop blevet åbnet og dermed også gjort aktiv. ??

tester i morgen tidlig, da jeg skal hjem og grille nu ...UHHHMMM

i formular 1:

'åben form2
DoCmd.OpenForm "Form2"
'find felt
Forms!Form2!Felt1.SetFocus
DoCmd.FindRecord Me!Felt1
'opdater billede:
If Forms("form2").Billed_URL1.Value <> "" Then
Forms("form2").Image10.Picture = Forms("form2").Billed_URL1
Else
Forms("form2").Image10.Picture = "(none)"
End If

det hele skal ligge i samme procedure på form 1

Grille - ØV - Jeg er lige mødt på en 12 timers vagt :o(

Niels

Hi Niels>No I'm off on holiday on thursday first (just for three weeks ) :o)

Det virker nu efter nih har hjulpet lidt....

vil du have nogle point..?

Nej - det er iorden, glad for at kunne hjælpe :o)

Niels