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]MsgBox por trás do formulário

    Compartilhe

    smallville
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    [Resolvido]MsgBox por trás do formulário

    Mensagem  smallville em Ter 02 Dez 2014, 13:46

    Bom dia galera. Estou utilizando o seguinte código em um campo de um subformulário, no evento Antes de Atualizar (Access 2010):

    'Verifica valores duplicados
    'Nesse caso verifica o 'Produto' e a 'Marca'

    Dim strCampo As String, strTabela As String, strCriterio1 As String
    Dim strTexto As String, strTitulo As String
    Dim intTipo As Integer, Resposta As Integer

    strCampo = "[Produto] and [CodigoVendas]"
    strTabela = "[Tbl_VendasDet]"
    strCriterio1 = "[Produto] = form.[txt_Produto] and [CodigoVendas] = form.[CodigoVendas]"

    strTexto = "Este código de material já existe."
    strTexto = strTexto & vbCrLf & "Deseja excluir?"
    intTipo = vbYesNo + vbQuestion
    strTitulo = "Valor Duplicado"

    ' Anexar ao evento AntesDeAtualizar
    If Not IsNull(DLookup(strCampo, strTabela, strCriterio1)) Then
    ' Se o valor estiver duplicado, exibe uma mensagem.
    If MsgBox(strTexto, intTipo, strTitulo) = vbYes Then
    SendKeys "{ESC}{ESC}"
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    End If
    End If

    txt_Produto_Exit:
    Exit Sub

    txt_Produto_Err:
    MsgBox "Erro. Verifique!" & vbCrLf & Err.Description
    Resume txt_Produto_Exit

    O subformulário está definido como "Formulário Contínuo". Quando estou no campo e pressiono TAB ele aparece a caixa de mensagem, mas por trás do formulário. Se eu clicar no campo (que é do tipo listbox) e escolher o item, ele aparece a mensagem normal. Mas se eu utilizar TAB, a msgbox fica por trás do form.

    Alguém tem alguma dica do que seja?

    Obrigado

    smallville
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Re: [Resolvido]MsgBox por trás do formulário

    Mensagem  smallville em Ter 02 Dez 2014, 16:06

    Pessoal, descobri o que era. No evento "ao pressionar tecla", do mesmo campo, o foco do campo voltada para o campo e a caixa de mensagem ficava por trás do formulário.

    Passando para registrar.

    Obrigado

      Data/hora atual: Ter 22 Ago 2017, 04:41