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]Dados incompatíves

    Compartilhe
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 646
    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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3383
    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!
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 646
    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: Sex 23 Jun 2017, 11:16