MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    maxwilliamfranco
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 07/06/2016

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

    Mensagem  maxwilliamfranco em Qua 08 Maio 2019, 4:24 pm

    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.
    Anexos
    [Resolvido]Migração de Banco de Dados. AttachmentDUVIDA.JPG
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 16 vez(es)


    Última edição por maxwilliamfranco em Seg 13 Maio 2019, 5:38 pm, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1033
    Registrado : 13/12/2016

    [Resolvido]Migração de Banco de Dados. Empty Re: [Resolvido]Migração de Banco de Dados.

    Mensagem  Alexandre Fim em Qua 08 Maio 2019, 8:33 pm

    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


    avatar
    maxwilliamfranco
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 07/06/2016

    [Resolvido]Migração de Banco de Dados. Empty Re: [Resolvido]Migração de Banco de Dados.

    Mensagem  maxwilliamfranco em Qua 08 Maio 2019, 8:50 pm

    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?
    avatar
    maxwilliamfranco
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 07/06/2016

    [Resolvido]Migração de Banco de Dados. Empty Re: [Resolvido]Migração de Banco de Dados.

    Mensagem  maxwilliamfranco em Seg 13 Maio 2019, 2:42 pm

    Estou no aguardo de uma ajuda, obrigado.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6819
    Registrado : 15/03/2013

    [Resolvido]Migração de Banco de Dados. Empty Re: [Resolvido]Migração de Banco de Dados.

    Mensagem  ahteixeira em Seg 13 Maio 2019, 3:55 pm

    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

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1033
    Registrado : 13/12/2016

    [Resolvido]Migração de Banco de Dados. Empty Re: [Resolvido]Migração de Banco de Dados.

    Mensagem  Alexandre Fim em Seg 13 Maio 2019, 4:05 pm

    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:

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

    Ou

    Mude para Me.Combinação41.Value



    Boa sorte.

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6819
    Registrado : 15/03/2013

    [Resolvido]Migração de Banco de Dados. Empty Re: [Resolvido]Migração de Banco de Dados.

    Mensagem  ahteixeira em Seg 13 Maio 2019, 4:10 pm

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

    Abraço a todos
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1033
    Registrado : 13/12/2016

    [Resolvido]Migração de Banco de Dados. Empty Re: [Resolvido]Migração de Banco de Dados.

    Mensagem  Alexandre Fim em Seg 13 Maio 2019, 4:20 pm

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

    Abraços
    avatar
    maxwilliamfranco
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 07/06/2016

    [Resolvido]Migração de Banco de Dados. Empty Re: [Resolvido]Migração de Banco de Dados.

    Mensagem  maxwilliamfranco em Seg 13 Maio 2019, 5:37 pm

    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!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1033
    Registrado : 13/12/2016

    [Resolvido]Migração de Banco de Dados. Empty Re: [Resolvido]Migração de Banco de Dados.

    Mensagem  Alexandre Fim em Seg 13 Maio 2019, 5:41 pm

    Valeu Maxwilliam cheers cheers

    O fórum agradece.

    Abraços e boa sorte !!!

      Data/hora atual: Ter 11 Ago 2020, 2:16 am