VALIDANDO CONSULTA COM 2 CAMPOS

SOUZA 11/02/2011 15:08:57
#365157
Pessoal preciso trazer para tela uns dados mas que no gotfocus selecione por 2 campos tipo no campo CODIGO Quando eu digitar 00001 ele verifique o codigo se for = e o campo data tambem for = ai traz os dados pra tela to tentando assim mas ta dando erro.

Private Sub CODIGO_LostFocus()

CODIGO = Format(CODIGO, [Ô]00000[Ô])

If CODIGO <> [Ô][Ô] Then

Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset

Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & [Ô]\Cadastro.Mdb[Ô], False, False, [Ô];PWD=4626[Ô])
query = [Ô]Select * From Mensalidade where CODIGO,VENCIMENTO = [ô][Ô] & CODIGO & [Ô][ô],[ô][Ô] & VENCIMENTO & [Ô][ô][Ô]
Set dyn = xxbco.CreateDynaset(query)

If Not dyn.EOF Then

CODIGO = dyn([Ô]CODIGO[Ô]) & [Ô][Ô]
NOME = dyn([Ô]NOME[Ô]) & [Ô][Ô]
VENCIMENTO = dyn([Ô]VENIMENTO[Ô]) & [Ô][Ô]
VALOR = dyn([Ô]VALOR[Ô]) & [Ô][Ô]

xxbco.Close
End If
End If
End Sub
SOUZA 11/02/2011 15:20:54
#365162
nao deu [Ô]
MARCELO.TREZE 11/02/2011 17:56:53
#365182
pergunta...

sei que o banco é access mas quais os tipos dos campos (Codigo) e (Vencimento)?

ex: codigo= numero, vencimento = data/hora
CHARLESTON10 11/02/2011 19:12:10
#365193 Resposta escolhida 
QUERY = [Ô]SELECT * FROM MENSALIDADE WHERE CODIGO =[ô][Ô] & txtcodigo.text & [Ô][ô][Ô]
 QUERY = SQL & [Ô] And VENCIMENTO = ([ô]date[ô])[Ô]


Set dyn = xxbco.CreateDynaset(query)
SOUZA 11/02/2011 22:56:49
#365215
ok, valeu
Tópico encerrado , respostas não são mais permitidas
Voltar