MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Dados incompatíves

    Compartilhe

    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 597
    Registrado : 30/08/2010

    [Resolvido]Dados incompatíves

    Mensagem  gilberlanio em Ter 05 Maio 2015, 17:55

    Olá pessoal, uso o código abaixo para buscar uma informação em uma consulta.
    Precisei alterar o tipo de dados do campo "CódigoDoProduto" de 'auto numeração' para 'texto' quando fiz essa alteração ficou dando um erro de dados incompatíveis.

    O código está no evento ao clicar da caixa de listagem do formulário pesquisa.

    'CÓDIGO USADO:
    Dim db As DAO.Database
       Dim rst As DAO.Recordset
       Dim nSQL As String
       
       nSQL = "SELECT Estoque FROM Cs_Estoque WHERE CódigoDoProduto =" & Me.ltxListaProdutos
       
       Set db = CurrentDb
       Set rst = db.OpenRecordset(nSQL)
       
            If Not rst.BOF Then
                  Me.txt_Estoque = rst!ESTOQUE
            End If
       
       rst.Close
       Set rst = Nothing
       db.Close
       Set db = Nothing  


    Segue o exemplo:


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

    [Você precisa estar registrado e conectado para ver este link.]

    Loja virtual - Gilberlânio Rocha

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Dados incompatíves

    Mensagem  Avelino Sampaio em Ter 05 Maio 2015, 18:23

    Olá!

    Se virou texto tem que usar apóstrofe ou aspas duplas

    nSQL = "SELECT Estoque FROM Cs_Estoque WHERE CódigoDoProduto = '" & Me.ltxListaProdutos & "'"

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 597
    Registrado : 30/08/2010

    Re: [Resolvido]Dados incompatíves

    Mensagem  gilberlanio em Ter 05 Maio 2015, 18:41

    Avelino, muito obrigado.
    Resolveu direitinho.


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

    [Você precisa estar registrado e conectado para ver este link.]

    Loja virtual - Gilberlânio Rocha

      Data/hora atual: Qua 07 Dez 2016, 20:08