LISTBOX EXCLUSAO

PROPAR 14/04/2004 12:25:37
#20515
Amigos estou com um problema , eu criei um ListBox com o nomes de todos os clientes e quando vc da um clik no nome ele abre o registro .. mais se eu tento excluir o registro ele não deixa ...

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 CmdExcluir_Click()
apaga = MsgBox(" Deseja Excluir?", vbYesNo + vbQuestion)
If apaga = vbYes Then
cadastro.Delete
Form_Activate
Data2.Refresh
Data3.Refresh
Lstnumeros.Clear
Lstmostrar.Refresh
limpar
cadastro.MoveFirst
mostrarvalores
End If
End sub

O REGISTRO ESTA EM CADASTRO..?
USUARIO.EXCLUIDOS 14/04/2004 20:21:09
#20596 Resposta escolhida
Qual o código do Form_Activate ? Pq vc chama ele ? Quem sabe vc cria uma sub e chama ela do Activate e daí dessa sub tb ? Fica melhor.

Qto ao problema, tenta o seguinte:

Set cadastro = db.OpenRecordset(sql, dbOpenDynaset)

pq essa constante dbUseJet não é aí q se usa.

Abraços,
USUARIO.EXCLUIDOS 15/04/2004 13:35:07
#20742
Onde está teu select q tem o WHERE codigo =

pq é nele q tá dando erro...

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