UPDATE

AMARCOS2611 24/01/2015 23:43:51
#444002
QUERO SABER SE TEM COMO COLOCAR 2 CONDIÇÕES PARA IDENTIFICAR O REGISTRO O QUAL QUERO ATUALIZAR SEGUE EXEMPLO.

Function Registro2()
wsql = [Ô]select max(Codigo) as Codigo from TbPonto where DadosCracha=[Ô] & [Ô][ô][Ô] & TxtFuncionario & [Ô][ô][Ô]
Set wtemp = wcon.Execute(wsql)
wcodigomax = wtemp!Codigo
wsql = [Ô]select * from TbPonto where Codigo =[Ô] & wcodigomax
Set wtemp = wcon.Execute(wsql)
wcodigomestre = wtemp!CodigoMestre

TxtDataSaida1 = Date
TxtHoraSaida1 = Time

wsql = [Ô]update TbPonto set DtaSaida1 = [ô][Ô] & TxtDataSaida1 & [Ô][ô] , HraSaida1 = [ô][Ô] & TxtHoraSaida1 & [Ô][ô] where CodigoMestre=[Ô] & wcodigomestre
Set wtemp = wcon.Execute(wsql)
Call wclose
End Function

OBS PRECISO COLOCAR MAIS 1 CONDIÇÃO PARA REALIZAR ESSE UPDATE
TUNUSAT 26/01/2015 07:54:42
#444017
AMARCOS2611,

Pelo que entendi, basta concatenar a string. Por exemplo:

Function Registro2()
wsql = [Ô]select max(Codigo) as Codigo from TbPonto where DadosCracha=[Ô] & [Ô][ô][Ô] & TxtFuncionario & [Ô][ô][Ô]
Set wtemp = wcon.Execute(wsql)
wcodigomax = wtemp!Codigo
wsql = [Ô]select * from TbPonto where Codigo =[Ô] & wcodigomax
Set wtemp = wcon.Execute(wsql)
wcodigomestre = wtemp!CodigoMestre

   TxtDataSaida1 = Date
   TxtHoraSaida1 = Time
   
      wsql = [Ô]update TbPonto set DtaSaida1 = [ô][Ô] & TxtDataSaida1 & [Ô][ô] , HraSaida1 = [ô][Ô] & TxtHoraSaida1 & [Ô][ô]  where CodigoMestre=[Ô] & wcodigomestre
      [txt-color=#0000f0]wsql = wsql & [Ô] AND CodigoSegundo=[Ô] & CodigoSegundo[/txt-color]
      Set wtemp = wcon.Execute(wsql)
      Call wclose
End Function


[][ô]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas
Voltar