error código...editar registros

[azul_18]

Hola necesito de su ayuda en visual basic para aplicaciones para poder editar los registros guardados mediante un botón ya que tengo el siguiente código y marca error alguna sugerencia?gracias por cualquier aportación :)



Private Sub Comando18_Click()

If vbYes = MsgBox("¿Quiere editar?", vbYesNo + vbQuestion) Then

If Me.subformulario_datos_llenadas.Visible = True Then
Me.subformulario_datos_lenadas.Form.AllowEdits = True
[Forms]![frm_bitacora_menu]![subformulario_datos_llenadas]![id_bitacora] = CurrentUser()

End If
End If

End Sub