ONDE ESTA O ERRO?

ADRIANOM 07/06/2010 16:44:52
#344165
Estou tentando criar um função e colocá-la em um Sub, mas acontece que toda hora que a rodo dá um erro

Sub Salvar()

If txtNome.Text <> [Ô][Ô] And txtMatricula.Text <> [Ô][Ô] And txtComarca.Text <> [Ô][Ô] Then
RO.FindFirst [Ô]codigo=[Ô] & Val(txtCod.Text)
RO.Edit
RO!Nome = txtNome.Text
RO!Matricula = txtMatricula.Text
RO!Comarca = txtComarca.Text
RO.Update
Unload Me
RO.Close
Else
MsgBox [Ô]Preencha os campos necessários para efetuar o cadastro![Ô], vbCritical + vbOKOnly, [Ô]JusSoft[Ô]
Exit Sub
End If
Data1.Refresh
End Sub

O erro - 3464 - Tipo de dados incompatíveis na expressão de critério
e me aponta para a linha -> RO.FindFirst [Ô]codigo=[Ô] & Val(txtCod.Text)

O que está errado?
EDERMIR 07/06/2010 17:40:18
#344173
Tente entre COLCHETES:
RO.FindFirst [Ô][codigo]=[Ô] & Val(txtCod.Text)
ADRIANOM 07/06/2010 17:57:55
#344176
Obrigado EDERMIR, mas continua o erro...

A boa notícia é que martelei um pouco a cabeça e cheguei na solução (pode não ser a mais viável, mas funcionou - então é!!! hehehehe)

Ajudando alguém que tenha a mesma dúvida...

----------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Form_Load ()
Set DB = OpenDatabase(App.path & [Ô]/BancoDeDados.mdb[Ô], False, False, [Ô]MS Access;PWD =[Ô]SENHA[Ô])
Set RO = DB.OpenRecordset([Ô]Select * FROM TabelaDoBancoDeDados[Ô])
Set Data1.Recordset = RO
Data1.Refresh
End Sub

Private Sub txtCod_Change()
Set RO = DB.OpenRecordset([Ô]SELECT * FROM TabelaDoBancoDeDados where Codigo like [ô][Ô] & txtCod.Text & [Ô]*[ô] order by Codigo[Ô])
Set Data1.Recordset = RO
Data1.Refresh
End Sub

Sub Salvar()

If txtNome.Text <> [Ô][Ô] And txtMatricula.Text <> [Ô][Ô] And txtComarca.Text <> [Ô][Ô] Then
RO.Edit
RO!Nome = txtNome.Text
RO!Matricula = txtMatricula.Text
RO!Comarca = txtComarca.Text
RO.Update
RO.Close
frmConsultaOficial.Data1.Refresh
frmConsultaOficial.Show
Unload Me
Else

MsgBox [Ô]Preencha os campos necessários para efetuar o cadastro![Ô], vbCritical + vbOKOnly, [Ô]JusSoft[Ô]

Exit Sub

End If
End Sub


-----------------------------------------------------------------------------------------------------------------------------------------------

Espero ter ajudado.
Obrigado a todos que tentaram me ajudar
Tópico encerrado , respostas não são mais permitidas
Voltar