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

    Perdi 2 codigos de focar em campo obrigatório e excluir imagem

    Compartilhe
    avatar
    crysostomo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Perdi 2 codigos de focar em campo obrigatório e excluir imagem

    Mensagem  crysostomo em 23/12/2018, 20:56

    Boa noite , meus amigos , perdi e realmente não lembro , pesquisei e não consegui achar.

    eu tenho um campo de cadastro
    quando eu clico para limpar dos campos,mas não consigo limpar outro, topo
    Código:
    Me.nome = ""
    Me.Imagem3_ = ""
    consigo limpar o campo nome , mas não a imagem

    ---
    outro problema é que  quando eu clico para salvar o programa verifica se o campo está vazio, se tiver ele da um foco no campo e muda a cor, ja o campo da image, não consigo,  eu esquici esse codigo mesmo uma coisa tipo acthammt (imagem ) algo assim.
    Código:
    Private Sub Comando314_Click()
    If IsNull(Me.CADASTRO_DESDE_) Then
    MsgBox "O campo CASDASTRO DESDE , é obrigatório.", vbCritical, "Aviso"
    Me.CADASTRO_DESDE_.SetFocus
    Me.CADASTRO_DESDE_.BackColor = 646464
    DoCmd.CancelEvent

    ''
    ElseIf IsNull(Me.NOME_) = True Then
    MsgBox "O campo NOME , é obrigatório", vbInformation, "Atenção"
    Me.NOME_.SetFocus
    Me.NOME_.BackColor = 646464
    ''
    ElseIf IsNull(Me.NACIONALIDADE_) = True Then
    MsgBox "O campo NACIONALIDADE , é obrigatório", vbInformation, "Atenção"
    Me.NACIONALIDADE_.SetFocus
    Me.NACIONALIDADE_.BackColor = 646464
    end if
    endsub
    ''
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2538
    Registrado : 21/04/2011

    Re: Perdi 2 codigos de focar em campo obrigatório e excluir imagem

    Mensagem  Marcelo David em 7/1/2019, 13:48

    Bom dia.
    Para limpar o campo imagem, terá que limpar a propriedade picture assim:

    Me.Imagem3_.Picture = ""

    E para verificar se há imagem no controle e assim aplicar o backcolor:

    Código:
    If InStr(Me.Imagem3_.Picture, ".")  = 0 Then
        Me.Imagem3_.BackColo= 646464
    Else
        Me.Imagem3_.BackColo = vbWhite
    End If


    Obs.: O título: Perdi 2 codigos de focar em campo obrigatório e excluir imagem, está muito estranho e não reflete a sua dúvida.

    Você está com dificuldade de limpar e alterar backcolor de um controle Imagem, perdeu o quê?


    Para melhor clareza, edite o título para algo do tipo:

    Como remover imagem e alterar a cor do fundo de um controle imagem?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

      Data/hora atual: 23/1/2019, 08:16