[Resolvido]Formulario Conflito de gravação

Olá,

Tenho um formulario onde carrega uma imagem por esse codigo

Código:

Private Sub Form_Current()
Dim emptyImg As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim contaReg As Integer


 On Error Resume Next


 emptyImg = Application.CurrentProject.Path & "\Fotos\" & "SemFoto(Nao Remover).jpg"

     If [imagemAtiva] = 1 Then

        If IsNull(Me.imagemAdesivo) Then
            Me.imagemAdesivo1.Picture = emptyImg
        ElseIf Not FileExists(Application.CurrentProject.Path & "\Fotos\" & Me.imagemAdesivo) Then
            Me.imagemAdesivo1.Picture = emptyImg
        Else
            Me.imagemAdesivo1.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.imagemAdesivo
        End If


     Else: [imagemAtiva] = 2

     If IsNull(Me!imagemAdesivo2) Then
            Me!imagemAdesivo1.Picture = emptyImg
        ElseIf Not FileExists(Application.CurrentProject.Path & "\Fotos\" & Me!imagemAdesivo2) Then
            Me!imagemAdesivo1.Picture = emptyImg
        Else
            Me!imagemAdesivo1.Picture = Application.CurrentProject.Path & "\Fotos\" & Me!imagemAdesivo2
        End If


   End If

          Set db = CurrentDb()
          Set rs = db.OpenRecordset("tbAdesivos")
          contaReg = rs.RecordCount
      
End Sub


tem um campo busca, tudo funciona perfeito, mas se eu ativar o codigo acima da conflito de gravação. se eu colocar com proteção de registro nao grava.

e agora?

coloquei no botao onde salva o registro e fecha o formulario

Código:

DoCmd.RunCommand acCmdSaveRecord

.. nao sei se é o certo ..mas funcionou