AJUDA!!!!
Estou desenvolvendo um programa de cadastro de Questões para professores e encontrei um problema quando tentei fazer uma pesquisa por campo:
Private Sub Command7_Click()
Adodc1.Recordset.MoveFirst
Nome = InputBox([Ô]Qual Questão você quer selecionar?![Ô], [Ô]Localizar[Ô])
Adodc1.Recordset.Find ([Ô]Questão LIKE[ô]%[Ô] & Nome & [Ô]%[ô][Ô])
If Adodc1.Recordset.EOF Then
MsgBox [Ô]Cliente não encontrado ![Ô], vbInformation
End If
End Sub
o problema é que após digitar o que desejo no imputbox e dar enter aparece o erro 3001
Como saio dessa?
Private Sub Command7_Click()
Adodc1.Recordset.MoveFirst
Nome = InputBox([Ô]Qual Questão você quer selecionar?![Ô], [Ô]Localizar[Ô])
Adodc1.Recordset.Find ([Ô]Questão LIKE[ô]%[Ô] & Nome & [Ô]%[ô][Ô])
If Adodc1.Recordset.EOF Then
MsgBox [Ô]Cliente não encontrado ![Ô], vbInformation
End If
End Sub
o problema é que após digitar o que desejo no imputbox e dar enter aparece o erro 3001
Como saio dessa?
Private Sub Command7_Click()
Adodc1.Recordset.MoveFirst
Nome = InputBox([Ô]Qual Questão você quer selecionar?![Ô], [Ô]Localizar[Ô])
Adodc1.Recordset.Find [Ô]Questão LIKE[ô]*[Ô] & Nome & [Ô]*[ô][Ô]
If Adodc1.Recordset.EOF Then
MsgBox [Ô]Cliente não encontrado ![Ô], vbInformation
End If
End Sub
nem assim funcionou
Adodc1.Recordset.MoveFirst
Nome = InputBox([Ô]Qual Questão você quer selecionar?![Ô], [Ô]Localizar[Ô])
Adodc1.Recordset.Find [Ô]Questão LIKE[ô]*[Ô] & Nome & [Ô]*[ô][Ô]
If Adodc1.Recordset.EOF Then
MsgBox [Ô]Cliente não encontrado ![Ô], vbInformation
End If
End Sub
nem assim funcionou
Tópico encerrado , respostas não são mais permitidas