Prezados amigos, boa tarde!
Poderiam me ajudar? Não consigo atualizar um campo "Status_HC" de uma tabela "Cadastro". O campo "SAO" possui duplicidades e preciso atualizar apenas o registro com maior id.
Eu escrevi desta forma, mas não consigo unir os dois critérios da Where.
Private Sub Comando20_Click()
If Me.Texto15 = "" Then
MsgBox "Favor verificar o número do SAO!"
ElseIf Texto15 < 8000000 Then
MsgBox "Favor verificar o número do SAO!"
Me.Texto15 = ""
Me.Texto15.SetFocus
Else
CurrentDb.Execute "update cadastro Set Status_hc = '" & Me.Texto21 & "' where SAO = '" & Me.Texto15 & "' and id in (SELECT max(id) FROM cadastro);"
Me.Texto15 = ""
Me.Texto15.SetFocus
End If
End Sub
Se vocês puderem me ajudar eu agradeço de verdade!
Poderiam me ajudar? Não consigo atualizar um campo "Status_HC" de uma tabela "Cadastro". O campo "SAO" possui duplicidades e preciso atualizar apenas o registro com maior id.
Eu escrevi desta forma, mas não consigo unir os dois critérios da Where.
Private Sub Comando20_Click()
If Me.Texto15 = "" Then
MsgBox "Favor verificar o número do SAO!"
ElseIf Texto15 < 8000000 Then
MsgBox "Favor verificar o número do SAO!"
Me.Texto15 = ""
Me.Texto15.SetFocus
Else
CurrentDb.Execute "update cadastro Set Status_hc = '" & Me.Texto21 & "' where SAO = '" & Me.Texto15 & "' and id in (SELECT max(id) FROM cadastro);"
Me.Texto15 = ""
Me.Texto15.SetFocus
End If
End Sub
Se vocês puderem me ajudar eu agradeço de verdade!