LISTBOX

PROPAR 21/05/2004 10:01:12
#25934
AMIGOS ESTOU COM UM PROBLEMA NO LIST BOX QUANDO EU SALVO UM NOVO REGISTRO E DEPOIS DOU UM CLIK NA LISTA , DA O SEGUINTE ERRO

RUN-TIME '3075' SYNTAX ERROR ( MISSING OPERATOR ) IN QUERY EXPRESSION 'NUMERO=',


O MEU CODIGO ESTA ASSIM .
Private Sub Lstmostrar_Click()
Dim sql As String
sql = "select * from cadastro where Numero=" & Lstnumeros.List(Lstmostrar.ListIndex)
Set cadastro = db.OpenRecordset(sql, dbUseJet)
mostrarvalores
Lstmostrar.Refresh
AbreControle
End Sub


Private Sub AbreControle()
Dim NomeArquivo As String

NomeArquivo = " \\JOSE\C ZE MARIA\Banco de Dados\vendas.mdb"

Set db = DBEngine.Workspaces(0).OpenDatabase("\\JOSE\C ZE MARIA\Banco de Dados\vendas.mdb")

'Abre tabela "Controle" do banco de dados
Set cadastro = db.OpenRecordset("cadastro", dbUseJet)
Set parcelas = db.OpenRecordset("parcelas", dbUseJet)
End Sub
USUARIO.EXCLUIDOS 21/05/2004 10:40:40
#25949 Resposta escolhida
Ele está tendo problemas em pegar o conteúdo do list para fazer o WHERE.

Pode estar vazio nesse momento. Dá um debug e verifica o conteúdo pra ti ver do Lstnumeros.List(Lstmostrar.ListIndex)

Abraços,
USUARIO.EXCLUIDOS 21/05/2004 11:08:18
#25959
Tunão poderia posicionar a lista no primeiro registro ou último registro sempre , por exemplo ?

Ou qm sabe no registro inserido ? A lista tá ordenada ?

Abraços,
Tópico encerrado , respostas não são mais permitidas
Voltar