[Resolvido]If não funcionando

Pessoal preciso de uma ajuda.

Tenho um formulário com 3 textbox que preenchem um textbox em outro formulário, e preciso que quando o textbox do outro formulário é preenchido ele mantenha o que já está lá, vá para a próxima linha e alimente com os dados novos, mas quando o cliente está recebendo informação pela primeira vez não quero que ele pule uma linha, fiz isso com o seguinte código:

Código:

Private Sub SubmitHist_Click()


    DoCmd.OpenForm "Cadastro de Clientes", acNormal, , , acFormEdit, acWindowNormal
    Forms![Cadastro de Clientes].Histórico.Locked = False

        If Forms![Cadastro de Clientes].Histórico = Null Or Forms![Cadastro de Clientes].Histórico = "" Then

            Forms![Cadastro de Clientes].Histórico = (Me.datahist & " - " & Me.Historico & " " & Me.Usuario)
            Forms![Cadastro de Clientes].Histórico.SetFocus
            Forms![Cadastro de Clientes].Histórico.SelStart = Len(Forms![Cadastro de Clientes].Histórico.Text)
            Forms![Cadastro de Clientes].Histórico.Locked = True

            DoCmd.OpenForm "AdicHist", acNormal, , , acFormEdit, acWindowNormal
            DoCmd.Close

        Else

            Forms![Cadastro de Clientes].Histórico = (Forms![Cadastro de Clientes].Histórico.Value & vbNewLine & Me.datahist & " - " & Me.Historico & " " & Me.Usuario)
            Forms![Cadastro de Clientes].Histórico.SetFocus
            Forms![Cadastro de Clientes].Histórico.SelStart = Len(Forms![Cadastro de Clientes].Histórico.Text)
            Forms![Cadastro de Clientes].Histórico.Locked = True

            DoCmd.OpenForm "AdicHist", acNormal, , , acFormEdit, acWindowNormal
            DoCmd.Close

        End If

End Sub

O problema é que quando é um cliente novo e o textbox Histórico está vazio ele continua pulando uma linha. O que estou fazendo errado?

mas quando o cliente está recebendo informação pela primeira vez não quero que ele pule uma linha escreveu: escreveu:

Boa tarde.
Quando se tem If (depende da versão) para focar em um campo quando se tem isso , você tem que manda o comando para focar em 2 campos, ou seja, ele foca no debaixo e volta a focar no campo  quer você quer.

Campo2.setFocus
CampoQueVocêQuer.setFocus

ele pula em um e volta para o principal.

Muito obrigado pela dica, mas o problema real não é este, é que ele não reconhece que não tem nada na textbox destino (o que deveria fazer ele não adicionar uma linha, então ele continua adicionando uma linha mesmo não devendo.

Grato

José

Fiz umas modificações no teu código, veja se funfa legal agora.

O que estou estranhando é que você repete o histórico em duas tabelas. o que não é preciso.

Você pode chamar o histórico da tabela de clientes e colocar em qualquer formulário, desde que faça o relacionamento

entre as tabelas.

{ }'s

Balem

DoCmd.OpenForm "Cadastro de Clientes", acNormal, , , acFormEdit, acWindowNormal
    'Não precisa da linha de baixo, pode bloquear o memo na folha de propriedades, ele bloqueia somente digitação.
    'Forms![Cadastro de Clientes].Histórico.Locked = False

       If Len(Forms![Cadastro de Clientes].Histórico & "") =  0 Then
           If Len(Me.Historico) > 2 Then 'se tem algo para adicionar então adiciona.
           Forms![Cadastro de Clientes].Histórico.Value = Me.datahist & " - " & Me.Historico & " " & Me.Usuario
           Forms![Cadastro de Clientes].Histórico.Locked = True
           Forms![Cadastro de Clientes].Histórico.SetFocus
           Forms![Cadastro de Clientes].Histórico.SelStart = Len(Forms![Cadastro de Clientes].Histórico) + 1
           DoCmd.OpenForm "AdicHist", acNormal, , , acFormEdit, acWindowNormal
           DoCmd.Close

       Else
             If Len(Me.Historico) > 2 Then
                Forms![Cadastro de Clientes].Histórico = (Forms![Cadastro de Clientes].Historico.Value & vbNewLine & Me.datahist & " - " & Me.Historico & " " & Me.Usuario)
                Forms![Cadastro de Clientes].Histórico.SetFocus
                Forms![Cadastro de Clientes].Histórico.SelStart = Len(Forms![Cadastro de Clientes].Histórico) + 1
                'Forms![Cadastro de Clientes].Histórico.Locked = True  'não precisa, bloqueie na folha de propriedades
                DoCmd.OpenForm "AdicHist", acNormal, , , acFormEdit, acWindowNormal
                DoCmd.Close
         Endif
       End If
 End Sub

Olá Noobezinho,

Coloquei suas modificações, mas quando cliquei no botão - Literalmente - nada aconteceu.

Muito Obrigado por responder a pergunta, Não entendi o que você quis dizer com : "O que estou estranhando é que você repete o histórico em duas tabelas. o que não é preciso."

Eu tenho 1 Histórico (com acento) no formulário "Cadastro de Clientes" que é o histórico do cliente. Cada vez que ele vem e faz algo na clínica adicionamos um comentário sobre o que foi feito no dia. O que estou fazendo é que os comentários já feitos sejam impossível de ser alterados, então bloqueie esse textbox, criei outro formulário que chama AdicHist e nesse formulários criei 3 textbox 1 que contém a data do atendimento - "Datahist" outro o nome de quem fez o atendimento - Usuario e e um que contem o descritivo do atendimento - Historico (sem acento). quando esses três campos está preenchidos o usuário clica no botão "Submeter" e o comando deve fazer o seguinte -
Liberar o textbox "Histórico" que está bloqueado para não ter alteração manual.
pegar os campos "Datahist" "Historico" e "Usuário" e colocar no campo "Histórico" no Formulário "Cadastro de Clientes" no seguinte formato:
"10/05/2021 - Paciente Compareceu. Pietrobom"
Bloquear novamente a textbox "Histórico"
Chamar o formulário "Adichist" e fecha-lo.

Isso tudo consegui fazer.

Mas pra não ficar um histórico corrido (como se estivesse tudo na msm linha) pedi para ele adicionar uma linha antes de adicionar o novo comentário.
Porém quando é o primeiro de todos os comentários ele pula uma linha e fica um buraco no começo da textbox, e é por isso que eu quero colocar esse "IF" para que ele perceba se tem ou não algum comentário no "Histórico" e não tendo quero que ele não pule uma linha.

Obrigado mais uma vez.

José

Como o teu problema é simples, envio o formulário de como fiz o histórico clínico de uma veterinária.
Então, os clientes são os pets.
O campo memo Histórico clínico está bloqueado para digitação  ou apagamentos de algo no histórico.

Já o campo adicionar histórico, está livre para digitação e é incluído no histórico clínico através do botão ao lado.

Veja se consegue resolver, baseado nele.

Caso contrário, disponibilizar parte do teu projeto como tabelas , consultas e formulário envolvidos na operação,

para analisarmos.

Balem

Olá Noobezinho,

Desculpa a demora na resposta, consegui resolver da seguinte forma, a diferença do meu e do seu é que o meu quando vou adicionar um histórico chamo outro formulário, por isso tenho que ficar trocando de formulário:

Código:

Private Sub SubmitHist_Click()

If Len(Me.datahist & "") = 0 Then
        msg = MsgBox("Inserir data", vbExclamation + vbOKOnly + vbDefaultButton2, "AVISO")
        Me.datahist.SetFocus
    
    Else
        If Len(Me.Usuario & "") = 0 Then
            msg = MsgBox("Inserir usuario", vbExclamation + vbOKOnly + vbDefaultButton2, "AVISO")
            Me.Usuario.SetFocus
            
        Else

            DoCmd.OpenForm "Cadastro de Clientes", acNormal, , , acFormEdit, acWindowNormal
            Forms![Cadastro de Clientes].Histórico.Locked = False
              
            If Len(Forms![Cadastro de Clientes].Histórico & "") = 0 Then

                Forms![Cadastro de Clientes].Histórico = (Me.datahist & " - " & Me.Historico & " -" & Me.Usuario)
                Forms![Cadastro de Clientes].Histórico.SetFocus
                Forms![Cadastro de Clientes].Histórico.SelStart = Len(Forms![Cadastro de Clientes].Histórico.Text)
                Forms![Cadastro de Clientes].Histórico.Locked = True
                
                DoCmd.OpenForm "AdicHist", acNormal, , , acFormEdit, acWindowNormal
                DoCmd.Close
                DoCmd.RunCommand acCmdSaveRecord
                msg = MsgBox("Registro salvo com Sucesso!", vbExclamation + vbOKOnly + vbDefaultButton2, "AVISO")


            Else

                Forms![Cadastro de Clientes].Histórico = (Forms![Cadastro de Clientes].Histórico.Value & vbNewLine & Me.datahist & " " & Me.Historico & " -" & Me.Usuario)
                Forms![Cadastro de Clientes].Histórico.SetFocus
                Forms![Cadastro de Clientes].Histórico.SelStart = Len(Forms![Cadastro de Clientes].Histórico.Text)
                Forms![Cadastro de Clientes].Histórico.Locked = True
                
                
                
                DoCmd.OpenForm "AdicHist", acNormal, , , acFormEdit, acWindowNormal
                DoCmd.Close
                DoCmd.RunCommand acCmdSaveRecord
                msg = MsgBox("Registro salvo com Sucesso!", vbExclamation + vbOKOnly + vbDefaultButton2, "AVISO")

            End If
        End If
End If


Obrigado mais uma vez pela ajuda.

Ótimo José

Só faltou o resolvido no título do tópico.

Para isso, edite uma mensagem tua, e clique no botão resolvido logo

abaixo do quadro de mensagens.

Boa sorte!

Balem

Ok, procurei até achar.

Não dá pra colocar resolvido editando uma msg, o botão só aparece quando está respondendo.

Obrigado mais uma vez.