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

    Não gravar dados com campo vazio

    avatar
    jleomr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 12/08/2014

    Não gravar dados com campo vazio Empty Não gravar dados com campo vazio

    Mensagem  jleomr 23/5/2021, 01:48

    Boa noite!


    Pessoal gostaria de exigir valor em alguns campos antes de gravar o registro no meu formulário, ou seja, só grava o registro se haver dados neste campo.
    Eu fiz esse código abaixo, ele está exibindo a mesangem, mais não sei aonde errei que ele não está cancelando o evento,

    On Error GoTo Btn_Salvar_Click_Err
    If IsNull(Txt_prontuario) Or Txt_CodPart = "" Then
    MsgBox "Você não informou o participante.", vbCritical, "Sistema"
    Txt_CodPart.SetFocus
    DoCmd.CancelEvent
    End If


    Alguém pra me socorrer!!!????


    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 27/08/2010

    Não gravar dados com campo vazio Empty Re: Não gravar dados com campo vazio

    Mensagem  lindomar.silva 23/5/2021, 13:16

    Olá Jleomr

    Tente adaptar esse código a sua necessidade:

    Coloque no seu botão seu botão Salvar:


    Dim intResponse As Integer
    Dim Msg As String

       If Me.Dirty Then
       intResponse = MsgBox("Deseja Salvar o Registro?", vbYesNoCancel + vbQuestion, "Sistema")
       
           Select Case intResponse
               
               'Salva tudo o que foi feito
               Case vbYes
               DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
                             
               'Não salva
               Case vbNo
               Me.Undo
                 
               'Cancela
               Case vbCancel
               Me.TXT_CODPART.SetFocus 'nome do campo que vai receber o foco caso cancele
           End Select
           
       End If


    E coloque esse código em AO SAIR de cada campos que é obrigatório o preenchimento:


    If IsNull (Me.TXT_PRONTUARIO) Or Me.TXT_PRONTUARIO.Value = "" Then
    MsgBox "O campo Prontuário é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
    DoCmd.CancelEvent

      Data/hora atual: 7/11/2024, 19:35