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]Perdi 2 codigos de focar em campo obrigatório e excluir imagem

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Perdi 2 codigos de focar em campo obrigatório e excluir imagem Empty [Resolvido]Perdi 2 codigos de focar em campo obrigatório e excluir imagem

    Mensagem  crysostomo 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 : Respeito às Regras 100%

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

    [Resolvido]Perdi 2 codigos de focar em campo obrigatório e excluir imagem Empty Re: [Resolvido]Perdi 2 codigos de focar em campo obrigatório e excluir imagem

    Mensagem  Marcelo David 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?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Perdi 2 codigos de focar em campo obrigatório e excluir imagem Marcel11
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Perdi 2 codigos de focar em campo obrigatório e excluir imagem Empty Re: [Resolvido]Perdi 2 codigos de focar em campo obrigatório e excluir imagem

    Mensagem  crysostomo 21/3/2019, 12:02

    Resolvido obg


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Perdi 2 codigos de focar em campo obrigatório e excluir imagem Empty Re: [Resolvido]Perdi 2 codigos de focar em campo obrigatório e excluir imagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:01