MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Obrigar campo do formulário

    Guilherme Silvaa
    Guilherme Silvaa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 28/04/2016

    [Resolvido]Obrigar campo do formulário Empty [Resolvido]Obrigar campo do formulário

    Mensagem  Guilherme Silvaa 10/2/2017, 10:50

    Bom dia Galera!!
    Estou trabalhando com o sistema de Chat que nosso amigo João Marcos publicou, inclusive parabenizo ele pelo trabalho!

    Não manjo de vba mas precisava de uma solução para o seguinte problema que o sistema possui:
    Quando realizamos um login e iniciamos o chat, é extremamente importante selecionar o usuário de destino da mensagem, caso isso não ocorra o Access apresenta um erro de tempo de execução e interrompe a execução do código. Sendo assim as mensagens perdem seu remetente e só chegam ao destino quando o usuário realiza logoff no seu usuário e mesmo assim não chegam com o nome do remetente.

    Uma solução seria obrigar o usuário a escolher o destinatário antes de qualquer coisa, porém como fazer isso?
    OBS: Os campos já estão marcados como "Requeridos".
    OBS 2: Os usuários são "admin" e "user" ambos com a senha "123"

    Desde já agradeço a atenção e prontidão de todos!
    Anexos
    [Resolvido]Obrigar campo do formulário AttachmentChat.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (516 Kb) Baixado 8 vez(es)
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Obrigar campo do formulário Empty Obrigar campo do formulário

    Mensagem  CassioFabre 10/2/2017, 11:49

    Bom dia,

    Vá na tabela em modo design e no campo dest marque a opção "Requerido" como NÃO.

    Abraço.
    Guilherme Silvaa
    Guilherme Silvaa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 28/04/2016

    [Resolvido]Obrigar campo do formulário Empty Re: [Resolvido]Obrigar campo do formulário

    Mensagem  Guilherme Silvaa 10/2/2017, 12:53

    Opa! deu certo.
    Mas agora preciso que a tabela armazene apenas registros com o campo "dest" preenchido, sem salvar as mensagens incompletas.
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Obrigar campo do formulário Empty Obrigar campo do formulário Responder

    Mensagem  CassioFabre 10/2/2017, 15:15

    Boa tarde,

    Nestes casos, procure sempre fazer a verificação de preenchimento no próprio formulário e não na tabela. Isso evita idas e trabalho desnecessários na tabela.

    Dito isto, troque o codigo do cmdSubmit pelo abaixo:

    Código:
    Private Sub cmdSubmit_Click()
        If Not IsNull(UsuCadastrados) = True Then
            Dim db As Database
            Dim rs As Recordset
            Dim Dest As String
            Dim Remet As String
           
            Set db = CurrentDb
            Set rs = db.OpenRecordset("tblConversation")
           
            Dest = "UsuCadastrados"
            Remet = getUsuarioAtual()
           
            rs.AddNew
            rs!Dest = UsuCadastrados
            rs!Remet = getUsuarioAtual()
            rs!conversation1 = getUsuarioAtual() & ": " & txtSayThis
            rs.Update
           
            rs.Close
            db.Close
           
            txtSayThis.SetFocus
            txtSayThis = ""
        Else
            MsgBox "Informe o destinatário da mensagem!", vbCritical, "Erro"
            UsuCadastrados.SetFocus
        End If
    End Sub

    Abraço.
    Guilherme Silvaa
    Guilherme Silvaa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 28/04/2016

    [Resolvido]Obrigar campo do formulário Empty Re: [Resolvido]Obrigar campo do formulário

    Mensagem  Guilherme Silvaa 11/2/2017, 11:59

    Amigo, deu certo!!
    Era exatamente o que precisava!!!
    Brigadão! Vocês são feras. cheers
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Obrigar campo do formulário Empty [Resolvido]Obrigar campo do formulário

    Mensagem  CassioFabre 13/2/2017, 09:11

    Bom dia,

    O forum agradece o retorno.

    Abraço.

    Conteúdo patrocinado


    [Resolvido]Obrigar campo do formulário Empty Re: [Resolvido]Obrigar campo do formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:26