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


3 participantes

    [Resolvido]Colocar verificação no campo de tipo anexo

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Colocar verificação  no campo de tipo anexo Empty [Resolvido]Colocar verificação no campo de tipo anexo

    Mensagem  crysostomo 16/6/2018, 13:38

    Colegas, boa tarde,  me ajudem aqui ,  fiz um formulário e coloquei condição em cada um ou seja, nenhuma pode estar vazio ,mas no campo tipo anexo  a condição "if" não verifica. Alguém poderia me explicar como faço ele funcionar nesse tipo de campo?

    Option Compare Database
    Private Sub Comando314_Click()
    If IsNull(Me.Nome) Then
    MsgBox "O campo Nome , é obrigatório", vbInformation, "Aviso"
    Me.Nome.SetFocus
    Me.Nome.BackColor = 646464
    DoCmd.CancelEvent
    ''
    ElseIf IsNull(Me.Combinação47) = True Then
    MsgBox "O campo Posição, é obrigatório", vbInformation, "Atenção"
    Me.Combinação47.SetFocus
    Me.Combinação47.BackColor = 646464
    ''
    ElseIf IsNull(Me.Combinação51) = True Then
    MsgBox "O campo Status, é obrigatório", vbInformation, "Atenção"
    Me.Combinação51.SetFocus
    Me.Combinação51.BackColor = 646464
    ''
    ElseIf IsNull(Me.Foto) = True Then
    MsgBox "O campo Foto, é obrigatório", vbInformation, "Atenção"
    Me.Foto.SetFocus
    Me.Foto.BackColor = 646464


    Else
    DoCmd.Save
    MsgBox "  cadastrado com sucesso!", vbInformation + vbOKOnly, " Secretario ADV"
    End If

       
    End Sub
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Colocar verificação  no campo de tipo anexo Empty Re: [Resolvido]Colocar verificação no campo de tipo anexo

    Mensagem  Silvio 16/6/2018, 14:30

    ElseIf IsNull(Me.Foto) Or Me.foto ="" Then
    MsgBox "O campo Foto, é obrigatório", vbInformation, "Atenção"
    Me.Foto.SetFocus
    Me.Foto.BackColor = 646464


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Colocar verificação  no campo de tipo anexo Empty deu error

    Mensagem  crysostomo 16/6/2018, 15:07

    deu erro
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Colocar verificação  no campo de tipo anexo Empty Re: [Resolvido]Colocar verificação no campo de tipo anexo

    Mensagem  JPaulo 18/6/2018, 11:16

    Ola a todos;

    Os campos anexo, não funcionam dessa forma;

    Código:
    If Me.Foto.AttachmentCount = 0 Then
      MsgBox "campo vazio"
      Else


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Colocar verificação  no campo de tipo anexo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Colocar verificação  no campo de tipo anexo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Colocar verificação  no campo de tipo anexo Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Colocar verificação  no campo de tipo anexo Empty Verificar campo de foto

    Mensagem  crysostomo 18/6/2018, 13:22

    Deu certo . obg
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Colocar verificação  no campo de tipo anexo Empty Re: [Resolvido]Colocar verificação no campo de tipo anexo

    Mensagem  JPaulo 18/6/2018, 14:00

    Fico feliz.

    O brigado pelo retorno o forum agradece.

    Não se esqueçam de ajudar o forum, 1€ faz toda a diferença.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Colocar verificação  no campo de tipo anexo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Colocar verificação  no campo de tipo anexo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Colocar verificação  no campo de tipo anexo Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Colocar verificação  no campo de tipo anexo Empty Re: [Resolvido]Colocar verificação no campo de tipo anexo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 20:38