locked
Access List Click RRS feed

  • Pergunta

  • Senhoras e senhores boa tarde!


    Estou com uma aplicação em Access, com base de dados SQL Server, que tem um form e um subform. Nesse subform, contém um list que carrega dados usando o seguinte código:


    Public Sub AtualizaListaSurvey(vLst As ListBox, Optional vFilter As String)
        Dim sSQL As String
        Dim qry As QueryDef
       
        sSQL = ""
        sSQL = sSQL & " SELECT  SeeID "
        sSQL = sSQL & " FROM    SurveyExternalEmail "
        sSQL = sSQL & " WHERE 1 = 1 "
       
        If Len(vFilter & "") > 0 Then sSQL = sSQL & " and SeeID like '%" & vFilter & "%'"
       
        sSQL = sSQL & " order by 1; "
       
        Set qry = CurrentDb.QueryDefs("Tabela")
        qry.SQL = RTrim(LTrim(sSQL))
        qry.Close
       
        vLst.Requery
    End Sub

    Onde Tabela, é uma consulta local do Access para carregar os dados. Ela é também usada para Inserir, Alterar ou Excluir dados. Só que o meu List ao clicar está dando o seguinte erro:

    "O valor que você inseriu não é válido para este campo.
    Por Exemplo, talvez você tenha inserido texto em um campo numérico ou um número maior que o permitido pela configuração Tamanho do Campo."

    E isso acontece quando realizo outros cadastros em outros Subforms e retorno a essa tela novamente.... :(

    Eu ja fiz cópia de outro SubForm e o problema persiste, será que alguém ja passou por algo parecido?

    Obs: Eu uso esse método em outros subforms, usando a mesma consulta "Tabela" e não tenho problema algum, só nessa tela em específico

    Obs2: É Access 2007


    Grato pela atenção
    terça-feira, 5 de janeiro de 2010 17:23

Todas as Respostas

  • Em qual linha dá erro?

    No debugador, qual o valor de vFilter e de sSQL no momento do erro? 
    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    sábado, 9 de janeiro de 2010 01:26
    Moderador