Private Sub Form_Current() If Not IsNull(Me!Billedekvittering) Then Me!Billedekvittering.Picture = "C:\dokumenter\kvitteringer\" & Me!billedenr & ".jpg" end if
If me.NewRecord then Me!Billedekvittering.Picture = "C:\dokumenter\kvitteringer\ny.jpg" End If End Sub
Koden som du har givet mig den, er kopieret ind. Når jeg så vil oprette en ny post, kommer der en dialogbox frem der siger "kan ikke åbne filen C:\dokumenter\kvitteringer.jpg"
Det virker som om at når der ikke er noget tal i Me!billedenr - så hedder den ".jpg" - i stedet for at gå ned i if me.newrecord then...
Private Sub Form_Current() If me.NewRecord then Me!Billedekvittering.Picture = "C:\dokumenter\kvitteringer\ny.jpg" Else: Me!Billedekvittering.Picture = "C:\dokumenter\kvitteringer\" & Me!billedenr & ".jpg" End If End Sub
Idet jeg antager, at feltet Billedekvittering kun er tom, hvis det drejer sig om en ny record.
no problem in rejecting my answer if it doesnt help fastwriter, thats what it all about :o)
and a good weekend to you all!
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.