Focus blijft

[pkuipers]

Hallo,
ik heb een form gemaakt waar ik de velden van 2 tabellen op heb staan. Als ik nu bij een afbeelding een foto in leest via de volgende code:

Function getFileName() As String
    Dim fDialog    As Object
    Set fDialog = Application.FileDialog(1)
    Dim varFile As Variant

    With fDialog
       .AllowMultiSelect = False
       .Title = "Kies de foto die je wilt opslaan:"
       .InitialFileName = ""

        If .Show = True Then
           For Each varFile In .SelectedItems
             getFileName = varFile
             strFile = varFile
           Next
        End If
    
    End With
End Function

Private Sub cmdFotoInvoegenNa_Click()

Me.afbNa.Picture = getFileName
Me.txtFotoNa.SetFocus
Me.txtFotoNa.Text = strFile

End Sub

dan als ik via een knop naar het volgende record gaat blijft de afbeelding staan, kunnen jullie mij vertellen wat hier de reden van is?

 

[Warme bakkertje]

Zolang je geen nieuwe afbeelding selecteert zal de oude blijven staan.
Bij de knop om naar het volgende record te gaan zal je een regel moeten opnemen die de oude foto eerst verwijdert.

 

[snb]

Komt u soms uit Rotrterdam ?

 

[pkuipers]

Hallo Rudi,

bedankt voor deze tip. Dit werkt goed alleen heb ik door proberen nog een oplossing gevonden. Het bleek in eerste instantie in de regel "Me.afbNa.Picture = getFileName" te zitten. Deze heb ik verwijderd.
zie code:

Function getFileName() As String
    Dim fDialog    As Object
    Set fDialog = Application.FileDialog(1)
    Dim varFile As Variant

    With fDialog
       .AllowMultiSelect = False
       .Title = "Kies de foto die je wilt opslaan:"
       .InitialFileName = ""

        If .Show = True Then
           For Each varFile In .SelectedItems
             getFileName = varFile
             strFile = varFile
           Next
        End If
    
    End With
End Function

Private Sub cmdFotoInvoegenNa_Click()

getFileName

Me.txtFotoNa.Visible = True
Me.txtFotoNa.SetFocus
Me.txtFotoNa.Text = strFile
Me.cmdFotoInvoegenNa.SetFocus
Me.txtFotoNa.Visible = False

End Sub

daarna heb ik een tekstveld op het formulier geplaatst die gekoppeld is aan het recordveld waar de string van de foto in opgeslagen wordt. Het imageveld haalt de gegevens van dit veld op.

En snb: ik kom niet uit Rotterdam. Wel woon ik in Zuid Holland.

 

[snb]

Function getFileName()
     With Application.FileDialog(1)
 '      .AllowMultiSelect = False
       .Title = "Kies de foto die je wil opslaan"
       .show
       getfilename= .SelectedItems(1)
    End With
End Function

In de rest van Nederland is het 'ik ga', bij jullie 'ik gaat'