[Resolvido]Migração de Banco de Dados.

Venho trazer uma dúvida e gostaria da ajuda dos amigos(as) aqui para resolver.

Migrei do Access 2007 para o Access 2013 aqui no trabalho (depois de muita luta). Acontece que em um banco de dados que eu criei no 2007, especificamente em um formulário criado, aparece essa mensagem da imagem quando aberto no 2013. (ver imagem)

A função executada é em uma CAIXA DE COMBINAÇÃO onde busca uma informação de NOME na tabela.

Desde já agradeço a ajuda.

Abraço a todos.

Olá maxwilliamfranco,

Provavelmente, você está usando a propriedade ".text" de algum campo, e este campo requer que ele tenha o foco (.SetFocus)
Para resolver, faça o seguinte:

SeuCampo.SetFocus
SeuCampo.Text

Tente isso.

boa sorte

Não mudei nada do código da caixa de combinação, está assim:

Código:

Option Compare Database

Private Sub Combinação41_AfterUpdate()
       DoCmd.SearchForRecord , "", acFirst, "[contserv] = " & Str(Nz(Screen.ActiveControl, 0))
       'Me.Combinação41 = ""

End Sub

Private Sub Combinação41_Change()
    Dim strText, strFind, strFind2
        strText = Me.Combinação41.Text
    If Len(Trim(strText)) > 0 Then
        strFind2 = "txtnome Like '*"
      For I = 1 To Len(Trim(strText))
    If (Right(strFind, 1) = "*") Then
        strFind = Left(strFind, Len(strFind) - 1)
    End If
        strFind = strFind & Mid(strText, I, 1) & "*"
      Next
        strFind2 = strFind2 & strFind & "'"
        strSQL = "SELECT contserv, txtnome FROM tblservgeral where " & strFind2 & " ORDER BY txtnome;"
        Me.Combinação41.RowSource = strSQL
        'Me.Combinação41.Dropdown
    Else
        strSQL = "SELECT contserv, txtnome FROM tblservgeral ORDER BY txtnome; "
        Me.Combinação41.RowSource = strSQL
    End If
        Me.Combinação41.Dropdown
End Sub


Onde posso modificar para não aparecer mais essa mensagem?

Estou no aguardo de uma ajuda, obrigado.

Olá a todos,

Maxwilliam, por vezes com a migração de versões pode ocorrer erros e ser necessário ajustes.

Em qual das linhas do código é que está apresentar o erro?
Eu desconfio deste, caso seja nesta linha verifique o valor de Str(Nz(Screen.ActiveControl, 0)

Abraço

Como eu disse anteriormente, quando vc define a propriedade ".Text", é necessário setar o foco nesta campo antes:

Ex.:
Me.Combinação41.SetFocus
strText = Me.Combinação41.Text

Provavelmente, o erro é gerado nesta linha:



Ou

Mude para Me.Combinação41.Value



Boa sorte.

Boa Alexandre, até a mim passou despercebido!
Aguardamos retorno do colega.

Abraço a todos

Tranquilo, meu caro Alvaro Teixeira.
Vamos aguardar nosso amigo.

Abraços

Meus amigos, com a instrução abaixo o problema foi resolvido.

Código:

Como eu disse anteriormente, quando vc define a propriedade ".Text", é necessário setar o foco nesta campo antes:

Ex.:
Me.Combinação41.SetFocus
strText = Me.Combinação41.Text

Provavelmente, o erro é gerado nesta linha:

Muito obrigado pela ajuda. Paz!

Valeu Maxwilliam

O fórum agradece.

Abraços e boa sorte !!!