DoCmd.Echo False, ""
On Error GoTo Err_Form_Current

    If Me.Image240.Visible = -1 Then

'Me.Image240.Picture = "D:\SDMG\photos\pcl\" & Me.acpt20 & ".jpg"
Me.Image240.Picture = Application.CurrentProject.path & "\photos\pcl\" & Me.acpt20 & ".jpg"

    'DoCmd.GoToRecord , , acNext
     End If

  
   
     DoCmd.Echo True, ""