O QUE HA DE ERRADO COM ESSA CONSULTA
Private Sub Lstmostrar_Click()
Dim sql As String
sql = "select * from Sinistro where Codigo=" & LstCodigo.List(Lstmostrar.ListIndex)
Set Sinistro = db.OpenRecordset(sql, dbUseJet)
mostrarvalores
End Sub
quando eu mudo no access o campo codigo para numero ele funciona normal mais quando eu mudo para texto não funciona.. o problema é que esse campo tinha que exiber número e texto tambem ?
Dim sql As String
sql = "select * from Sinistro where Codigo=" & LstCodigo.List(Lstmostrar.ListIndex)
Set Sinistro = db.OpenRecordset(sql, dbUseJet)
mostrarvalores
End Sub
quando eu mudo no access o campo codigo para numero ele funciona normal mais quando eu mudo para texto não funciona.. o problema é que esse campo tinha que exiber número e texto tambem ?
Propar
Para Texto estão faltando as aspas simples:
sql = "select * from Sinistro where Codigo= '" & LstCodigo.List(Lstmostrar.ListIndex) & " ' "
Com isto, o mecanismo de consulta entende que o Valor enter as aspar é texto e não número. Veja se resolve o seu problema, se não resolver, poste aqui novamente.
* Por favor, coloques TÃtulos Sugestivos. Por exemplo:
"Erro em Consulta com Texto"
Até Breve
[s68]
Para Texto estão faltando as aspas simples:
sql = "select * from Sinistro where Codigo= '" & LstCodigo.List(Lstmostrar.ListIndex) & " ' "
Com isto, o mecanismo de consulta entende que o Valor enter as aspar é texto e não número. Veja se resolve o seu problema, se não resolver, poste aqui novamente.
* Por favor, coloques TÃtulos Sugestivos. Por exemplo:
"Erro em Consulta com Texto"
Até Breve
[s68]
Tópico encerrado , respostas não são mais permitidas