MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Invalidar campos em branco - formulário

    Compartilhe

    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Invalidar campos em branco - formulário

    Mensagem  werlewow em Ter 28 Nov 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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 28 Nov 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

    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  werlewow em Ter 28 Nov 2017, 13:34

    Caraaa, me salvou ! funcionou perfeitamente Smile

    Obrigado
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 28 Nov 2017, 15:34

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

    Abraço

      Data/hora atual: Seg 11 Dez 2017, 23:02