MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

    Numeração nas linhas de Codigo

    avatar
    m_araujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 15/11/2012

    Numeração nas linhas de Codigo  Empty Numeração nas linhas de Codigo

    Mensagem  m_araujo 9/6/2015, 15:26

    Bom dia!

    Amigos poderia mim informa o que significa ou para que ser uns números na linha do código, segue uma tela que contem esses números.





    Uilson Brasil
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1037
    Registrado : 23/04/2013

    Numeração nas linhas de Codigo  Empty Re: Numeração nas linhas de Codigo

    Mensagem  Uilson Brasil 9/6/2015, 15:43

    Amigo cadê a tela??


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access
    avatar
    m_araujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 15/11/2012

    Numeração nas linhas de Codigo  Empty Re: Numeração nas linhas de Codigo

    Mensagem  m_araujo 9/6/2015, 15:46

    A tela não conseguir por aqui amigo.

    Código:
    Private Sub btAddContato_Click()
    10    If IsNull(Me.cboTipoContato) Then
    20      Dialog.Box "Informe o tipo de contato!", vbExclamation, "Tipo de contato", , , 0
    30      Me.cboTipoContato.SetFocus
    40      Me.cboTipoContato.Dropdown
    50      Exit Sub
    60    End If
    70    If IsNull(Me.txtContato) Then
    80      Dialog.Box "Informe o o contato!", vbExclamation, "Contato", , , 10
    90      Me.txtContato.SetFocus
    100    Exit Sub
    110  End If

    segue o código

      Data/hora atual: 7/3/2021, 13:58