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]Invalidar campos em branco - formulário

    avatar
    werlewow
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 09/10/2017

    [Resolvido]Invalidar campos em branco - formulário Empty [Resolvido]Invalidar campos em branco - formulário

    Mensagem  werlewow 28/11/2017, 12:20

    Bom dia
    Estou com um formulário que atualiza uma informação em uma tabela, porém preciso que o campo data seja preenchido obrigatoriamente.
    Sou meio iniciante no Access, acredito ser algo bem simples.
    Obrigado

    Segue no link:
    dropbox.com/s/m7ikko8nije2xyz/problema%20data.accdb?dl=1           [Não é permitido links externos ao fórum, deve-se colocar assim]
    Copiar link e colar no navegador

    Para adiantar, o cod VBA q usei foi esse:

    Código:
    Private Sub Comando50_Click()
       If Data_visita = Null Then
          MsgBox "O Campo não pode ficar em branco"
       Else
          '...(comandos)
       End if
    End Sub
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Invalidar campos em branco - formulário Empty Re: [Resolvido]Invalidar campos em branco - formulário

    Mensagem  Alvaro Teixeira 28/11/2017, 12:31

    Olá Gabriel, tente assim:

    Código:
    Private Sub Comando50_Click()
        If Not IsDate(Me.Data_visita) Then
            MsgBox "O Campo não pode ficar em branco"
        Else
            DoCmd.RunCommand acCmdSaveRecord
            Dim codigo As Integer
            codigo = Me.Cod_Ct.Value
           
            SQL = "UPDATE tb_contato SET Situação = 'agendada' WHERE Cod_Ct = " & codigo & ""
           
            CurrentDb.Execute SQL
            MsgBox ("Cliente foi agendado com sucesso!"), vbinformations + vbOKOonly, "Agenda"
        End If
    End Sub

    Abraço
    avatar
    werlewow
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 09/10/2017

    [Resolvido]Invalidar campos em branco - formulário Empty Re: [Resolvido]Invalidar campos em branco - formulário

    Mensagem  werlewow 28/11/2017, 13:34

    Caraaa, me salvou ! funcionou perfeitamente Smile

    Obrigado
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Invalidar campos em branco - formulário Empty Re: [Resolvido]Invalidar campos em branco - formulário

    Mensagem  Alvaro Teixeira 28/11/2017, 15:34

    Olá Gabriel, obrigado pelo retorno.
    Os membros do fórum agradecem.

    Abraço

    Conteúdo patrocinado


    [Resolvido]Invalidar campos em branco - formulário Empty Re: [Resolvido]Invalidar campos em branco - formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 13:40