[Resolvido]Redistribuicao de processos

Boa tarde amigos, preciso de ajuda pra fazer uma "realocacao de processos".

Tenho em meu formulario "FrmDistribuicao", 4 caixas de texto "Data_da_Analise", "txtDe", "txtPara" e "txtQtd" e um botao onde:

Data_da_Analise = Data em que o processo foi feito;
txtDe = profissional atual;
txtPara = profissional que vai receber os processos;
txtQtd = quantidade de processos a serem realocados.

A ideia e que no clique do botao, seja feita a contagem dos processos do profissional atual e seja trocado o nome dele pelo nome do profissional que vai receber os processos, desde que o campo Data_da_Analise seja = "".

Podem me ajudar? Tentei fazer via SQL (segue abaixo), mas nao faco ideia de como ficaria a sintaxe. Desde ja agradeco!

Código:

Dim linhas As String
Dim profissionalinicio As String
Dim profissionaldestino As String

linhas = Me.txtQtd.Value
profissionalinicio = Me.txtDe.Value
profissionaldestino = Me.txtPara.Value


Application.DoCmd.RunSQL "Select linhas from BD_TRIAGEM Update profissionalinicio = profissionaldestino where Data_da_Analise = """

Olá Gabriel,

Aqui mesmo no fórum com o colega convidad.

https://www.maximoaccess.com/t5989-resolvidoselect-count-no-campo-null

Obrigado Good, mas peco desculpas pela minha falta de conhecimento!

No exemplo que me forneceu nao tem o Uptade, no meu caso gostaria que contasse N registros do responsavel X e trocasse o nome desses N registros para responsavel Y.

Olá Gabriel,

Procure fazer as alterações baseadas no exemplo disponibilizado pelo colega "convidad" e depois posta o bd para continuarmos até solucionar o seu problema.

Boa tarde Good, ainda nao consegui adaptar o exemplo ao meu caso, como disse anteriormente meu conhecimento de sql e vba é praticamente 0.
Quanto a postar meu BD, ele está muito grande e tem muita informação que não posso divulgar, teria que mexer em muita coisa para postá-lo aqui.
Mas mesmo assim agradeço a ajuda e continuo tentando montar a rotina aqui.

uma sugestão cria uma cópia do arquivo, em seguida exclua os registros, depois coloque dados aleatorios apenas para termos um ideia do funcionamento da sua aplicação.

segue o BD

Faltou o link do arquivo ou anexo do mesmo.

Desculpe, corrigido.

Olá Gabriel,

Para mim ainda não aparece o link. Você fez o upload do arquivo ou está redirecionando para outro provedor?

Fiz upload. De qualquer forma, segue nova tentativa.

Olá Gabriel,

Veja se te atende. Teste trocando nomes no formulário.

NOTA: Não deu pra fazer o upload porque meu espaço de armazenamento foi ultrapassado.

Código da consulta que criei chamada qryBD_TRIAGEM. No modo SQL de uma consulta nova insira este código. Pelo modo Design vai ficar tudo já montado.

Código:

SELECT BD_TRIAGEM.RESPONSÁVEL, BD_TRIAGEM.Data_da_Analise
FROM BD_TRIAGEM
WHERE (((BD_TRIAGEM.Data_da_Analise) Is Null));


Código do botão do formulário que faz a alteração:

Código:

Private Sub cmdAlterar_Click()    'Troquei o nome do botão
On Error Resume Next
Dim rsProcesso As DAO.Recordset
Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim Trans As Boolean
Dim sMens As String
Dim strNomeA As String
Dim strNomeB As String

Trans = False
Set ws = DBEngine.Workspaces(0) 'Referir-se ao Workspace padrão
Set db = CurrentDb 'Banco de Dados corrente
Set rsProcesso = db.OpenRecordset("SELECT * FROM qryBD_TRIAGEM", dbOpenDynaset)

ws.BeginTrans
Trans = True
   strNomeA = Me.txtDe
    strNomeB = Me.txtPara
    
    rsProcesso.MoveFirst
    Do While Not rsProcesso.EOF
    
        If rsProcesso.Fields("RESPONSÁVEL") = strNomeA Then
            
                rsProcesso.Edit
                rsProcesso.Fields("RESPONSÁVEL") = strNomeB
                rsProcesso.Update
            
            End If
        rsProcesso.MoveNext
        
    Loop
    

MsgBox ("Distribuição realizada com sucesso!")


Sair:
rs.Close
Set db = Nothing

Set ws = Nothing

If Trans = True Then
Exit Sub
End If

Resume Sair


End Sub

boa tarde mestre, ainda sem sucesso. Sem retorno de erros, simplesmente nao altera os profissionais.

Olá Gabriel,

Altera sim porque aqui funciona bem. Estou com um problema para fazer um upload. Me passa seu email em Mensagens Privadas que faço o upload pelo meu provedor de serviços de email.

Funcionou perfeitamente mestre! Obrigado!

Olá Gabriel,

O fórum todo agradece. Se quiser aprender mais, vai aí uma dica adquira meu livro DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA aqui mesmo pelo fórum. Minha sugestão é adquirir na versão e-book.

https://www.maximoaccess.com/t32310-segundo-livro-publicado-do-good-guy-domine-o-access-vba-para-iniciantes-na-programacao

https://www.maximoaccess.com/t29536-livro-publicado-tecnicas-especiais-de-access-vba-da-autoria-de-good-guy


"O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)