MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 8/5/2019, 15:24

    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 13/5/2019, 16:38, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim em 8/5/2019, 19:33

    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 8/5/2019, 19:50

    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 13/5/2019, 13:42

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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 13/5/2019, 14:55

    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 : 760
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim em 13/5/2019, 15:05

    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 : 6181
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 13/5/2019, 15:10

    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 : 760
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim em 13/5/2019, 15:20

    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 13/5/2019, 16:37

    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 : 760
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim em 13/5/2019, 16:41

    Valeu Maxwilliam cheers cheers

    O fórum agradece.

    Abraços e boa sorte !!!

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/7/2019, 21:51