Drecosalles escreveu:Este foi o código que vc trouxe como solução:
If SuaComboBox1 = SuaComboBox2 Then
MsgBox "Operação não pode ser realizada, pois o ID de origem e destino é o mesmo"
Else
CurrentDb.Execute "UPDATE SuaTabela SET SeuCampoNome ='" & suatextBox2 & "'" _
& " WHERE SuaID=" & SuaComboBox1
CurrentDb.Execute "UPDATE SuaTabela SET SeuCampoNome = '" & SuaTextBox1 & "'" _
& " WHERE SuaID=" & SuaComboBox2
End If
Este é o código que gostaria de simplifica:
If SuaComboBox1 = SuaComboBox2 Then
MsgBox "Operação não pode ser realizada, pois o ID de origem e destino é o mesmo"
Else
CurrentDb.Execute "UPDATE Cadtaxistas SET Nome ='" & Me.Nome1 & "'" _
& " WHERE idtaxista=" & Me.cbo2
CurrentDb.Execute "UPDATE Cadtaxistas SET idCPF ='" & Me.CPF1 & "'" _
& " WHERE idtaxista=" & Me.cbo2
CurrentDb.Execute "UPDATE Cadtaxistas SET Endereço ='" & Me.Endereco1 & "'" _
& " WHERE idtaxista=" & Me.cbo2
CurrentDb.Execute "UPDATE Cadtaxistas SET Bairro ='" & Me.Bairro1 & "'" _
& " WHERE idtaxista=" & Me.cbo2
CurrentDb.Execute "UPDATE Cadtaxistas SET Numero ='" & Me.Numero1 & "'" _
& " WHERE idtaxista=" & Me.cbo2
CurrentDb.Execute "UPDATE Cadtaxistas SET Nome ='" & Me.Nome2 & "'" _
& " WHERE idtaxista=" & Me.cbo1
CurrentDb.Execute "UPDATE Cadtaxistas SET idCPF ='" & Me.CPF2 & "'" _
& " WHERE idtaxista=" & Me.cbo1
CurrentDb.Execute "UPDATE Cadtaxistas SET Endereço ='" & Me.Endereco2 & "'" _
& " WHERE idtaxista=" & Me.cbo1
CurrentDb.Execute "UPDATE Cadtaxistas SET Bairro ='" & Me.Bairro2 & "'" _
& " WHERE idtaxista=" & Me.cbo1
CurrentDb.Execute "UPDATE Cadtaxistas SET Numero ='" & Me.Numero2 & "'" _
& " WHERE idtaxista=" & Me.cbo1
A forma para simplificar será usar virgula,
assim:CurrentDb.Execute "UPDATE Cadtaxistas SET Nome ='" & Me.Nome1 & "'" _
& " , idCPF ='" & Me.CPF1 & "'" _
& " , Endereço ='" & Me.Endereco1 & "'" _
& " , Bairro ='" & Me.Bairro1 & "'" _
& " , Numero ='" & Me.Numero1 & "'" _
& " WHERE idtaxista=" & Me.cbo2
CurrentDb.Execute "UPDATE Cadtaxistas SET Nome ='" & Me.Nome2 & "'" _
& " , idCPF ='" & Me.CPF2 & "'" _
& " , Endereço ='" & Me.Endereco2 & "'" _
& " , Bairro ='" & Me.Bairro2 & "'" _
& " , Numero ='" & Me.Numero2 & "'" _
& " WHERE idtaxista=" & Me.cbo1
Talvez tenha que acertar a regra de aspas.
Tente.