Change Order Picture Attachments are Displayed in Form (1 Viewer)

[SteveClarkson]

Hello,

Long time, no post!

I have a form with an Attachment field on it - this field is used to store user photographs. Once in a while, these pictures are updated, but the old ones are retained too. They follow the naming convention of: CCYY_MM_DD_HH_MM_SS.jpg

When there is a single photo in there, it's great - you open up that users record, and it shows their photo, lovely.

If they have a newer picture added, because of the naming convention, they are ordered from lowest to highest - and with the naming convention in use, this puts the newest photos at the bottom of the list - and so the "default" picture shown is actually the oldest one.

I can't seem to find a way to 'encourage' Access to change the order it displays these attachments in - any ideas?

Running Access for Office 365 (v16)

Thank you,

Steve

 

[arnelgp]

you can force it to show the last attachment.
on design view of your form, click on the attachment control
on its Event (On Attachment Current):

Private Sub attConttrol_AttachmentCurrent()
If Me.attControl.AttachmentCount > 0 Then
    Me.attControl.CurrentAttachment = Me.attControl.AttachmentCount - 1
End If
End Sub

 

[SteveClarkson]

Thank you, arnelgp! That looked like a winner... except that once implemented, when I open the form, I'm now getting an Error 28 - out of stack space?

 

[Gasman]

Perhaps it should be > 1 ?

 

[arnelgp]

another alternative is use the Form's Current event to Move Forward the Attachment:

Private Sub Form_Current()
    Dim i As Integer
    On Error GoTo exit_sub
    i = Me.attachmentControl.AttachmentCount
    If i > 0 Then
        Do While i > 0
            Me.attachmentControl.Forward
            i = i - 1
        Loop
    End If
exit_sub:
    On Error GoTo 0
    
End Sub

 

[arnelgp]

another alternative is use the Form's Current event to Move Forward the Attachment:

Private Sub Form_Current()
    Dim i As Integer
    On Error GoTo exit_sub
    i = Me.attachmentControl.AttachmentCount
    If i > 0 Then
        Do While i > 0
            Me.attachmentControl.Forward
            i = i - 1
        Loop
    End If
exit_sub:
    On Error GoTo 0
    
End Sub

 

[SteveClarkson]

Thank you both,

I ended up putting this:

If Me.attControl.AttachmentCount > 1 Then
    Me.attControl.CurrentAttachment = Me.attControl.AttachmentCount - 1
End If

Into the Forms OnCurrent event - which appears to do the job!

 

[SteveClarkson]

another alternative is use the Form's Current event to Move Forward the Attachment:

Oh, I think this is prettier... I've put that in, and it does the same job... so I'll go with that one!

Thanks arnelgp!

 

[Gasman]

Oh, I think this is prettier... I've put that in, and it does the same job... so I'll go with that one!

Thanks arnelgp!

Pretty does not come into it, it is code after all.

I'd go with 3 lines of code rather than 11 anytime.