ERRO NO UPDATE

IRENKO 22/03/2011 08:23:59
#368740

Sql = Sql & [Ô]Where Mes = [ô][Ô] & QuardaMes & [Ô][ô] and ID=[Ô] & Me.Controls([Ô]Grid_J[Ô] & X) + [Ô] and Controle = & Me.Controls([Ô]Grid_I[Ô] & X);[Ô]

na ultima linha do updade acima esta dando o erro (End Of Statement), ou seja, (Final da Instrução).ç Sei q é alguma coisa com as aspas mas não estou conseguindo consertar!
JONATHANSTECKER 22/03/2011 08:45:10
#368744 Resposta escolhida
Tente assim:

Sql = Sql & [Ô]Where Mes = [ô][Ô] & QuardaMes & [Ô][ô] and ID = [Ô] & Me.Controls([Ô]Grid_J[Ô] & X) & [Ô] and Controle = [Ô] & Me.Controls([Ô]Grid_I[Ô] & X) & [Ô];[Ô]
MSMJUDAS 22/03/2011 08:53:24
#368745
Faltando aspas na parte:

[Ô] and Controle = [Ô] & Me.....

No final, tire o ponto e virgula e as aspas.


Acho que é isso.
IRENKO 22/03/2011 09:26:12
#368746
Debug.Print:
UPDATE Dados SET Usuario=[ô]ANTONIO SOARES SILVA[ô],Conta=[ô]55555555555[ô],Debito=[ô]1.407,91[ô],Credito=Null,Companhia=[ô][ô],DataInicial=[ô]10/11/2008[ô],DataFinal=Null,Destino=[ô]VAZIO[ô]Where Mes = [ô]NOVEMBRO/2008[ô] and ID = 11 and Controle = 0006

Testei as duas sugestões, porem deu erro (Tipo de dados incompativel com expresão e criterio), creio q aqui:

and Controle = 0006

o 0006 deveria aparecer entre aspas simples pois é texto. Veja o Debug.Print acima.
JONATHANSTECKER 22/03/2011 09:33:25
#368747
Mete ficha então! Faça o teste...

Sql = Sql & [Ô]Where Mes = [ô][Ô] & QuardaMes & [Ô][ô] and ID = [Ô] & Me.Controls([Ô]Grid_J[Ô] & X) & [Ô] and Controle = [ô][Ô] & Me.Controls([Ô]Grid_I[Ô] & X) & [Ô][ô];[Ô]


Dúvida: O campo Controle é do tipo String?
IRENKO 22/03/2011 09:36:54
#368748
OK Jonathan, é isso mesmo. Obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar