Jerso
|
CUIABÁ
MT - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 26/09/2008 10:45 hs
Pessoal sou novo em VB e estou fazendo um projeto aki de controle pra ua loja mas estou com um problema.
No cadastro de cliente tem o botão pesquisar e quando eu vou fazer uma pesquisa ele me retorna o Erro 3077
abaixo está o código do evento.
Private Sub cmdpesquisa_Click()
Dim pesquisa As String
pesquisa = InputBox("Nome do Cliente:", "Buscar")
If pesquisa = "" Then
Exit Sub
Else
condb.Recordset.FindMin "Nome=""&pesquisa&"
If condb.Recordset.NoMatch Then
MsgBox "Cliente não localizado!", vbInformation, "Cadastro de Cliente"
Exit Sub
End If
End If
End Sub
|
|
|
|
|
|
CSRocha
|
BRASILIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/09/2008 10:57 hs
Conserte esta linha:
condb.Recordset.FindMin "Nome=""&pesquisa&" para:
condb.Recordset.FindMin "Nome='" & pesquisa & "'"
Se não for aí o erro, coloque a descrição do erro.
|
|
|
|
Jerso
|
CUIABÁ
MT - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/09/2008 12:13 hs
Olá CSRocha
O erro simiu mas estou com outro problema.
Agora ele nao consegue fazer a pesquisa.
Ele sempre me retorna que o cadastro nao existe.
|
|
|
|
Jerso
|
CUIABÁ
MT - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/09/2008 12:30 hs
Bom o problema foi resolvido mas achei outro.
Esta no meu botão que salva o cadastro.
Percebi que ele nao esta salvando os campos digitados.
Os campos na tabela ficam em branco.
Olha o codigo do botão salvar
Private Sub cmdsalva_Click()
condb.UpdateRecord
MsgBox "Cadastro Realizado com Sucesso", vbInformation, "Cadastro"
End Sub
|
|
|
|
