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]Numerar linhas num subforme

    avatar
    leitaojc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 06/03/2013

    [Resolvido]Numerar linhas num subforme Empty [Resolvido]Numerar linhas num subforme

    Mensagem  leitaojc 14/11/2013, 16:08

    Boa tarde

    Estou com um problema de numeração de linhas num subforme, tipo (faturas), um cabeçalho para várias linhas.

    O que se passa é o seguinte, quando alguém apaga uma das linhas não consigo repor a numeração correta, só o consigo manualmente.

    Alguém conhece alguma rotina que me possa ajudar.

    Atentamente
    José Carlos

    avatar
    Convidado
    Convidado


    [Resolvido]Numerar linhas num subforme Empty Re: [Resolvido]Numerar linhas num subforme

    Mensagem  Convidado 14/11/2013, 16:29

    Olá, boa tarde, não entendi direito seu pedido de ajuda, se possível postar seu bd ou parte de para que possamos lhe ajudar com maior precisão.
    avatar
    Convidado
    Convidado


    [Resolvido]Numerar linhas num subforme Empty Re: [Resolvido]Numerar linhas num subforme

    Mensagem  Convidado 14/11/2013, 16:34

    Veja este:
    avatar
    leitaojc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 06/03/2013

    [Resolvido]Numerar linhas num subforme Empty Re: [Resolvido]Numerar linhas num subforme

    Mensagem  leitaojc 15/11/2013, 12:48

    Eu consegui arranjar um exemplo do que necessitava, mas no entanto não consigo, atualizar o campo da tabela, pois o exemplo funciona com um campo desvinculado.

    usandoaccess.com.br/dicas/como-numerar-itens-em-formularios.asp?id=1&idlista=122#inicio

    o código é este

    Public Function fncNumerar(frm As Form) As Long
    On Error GoTo TrataErro    
    With frm.RecordsetClone        
      .Bookmark = frm.Bookmark        
      fncNumerar = 1 + .AbsolutePosition    
    End With  
    Exit Function
    TrataErro:    
      If Err = 3021 Then fncNumerar = 0
    End Function

    No entanto o pretendido, era colocar o resultado numa célula da tabela.

    Já tentei usar
    Me. linha (célula de dados) = me. Iten, (nome do campo  desvinculado), mas não consigo um resultado efetivo, pois o meu form pode apagar linhas como criar.
    Tentei colocar esta informação No Atual, mas não está a efetuar o pretendido

    Sem alguém conseguir me dar uma ajuda agradeço.

    Abraços
    avatar
    Convidado
    Convidado


    [Resolvido]Numerar linhas num subforme Empty Re: [Resolvido]Numerar linhas num subforme

    Mensagem  Convidado 15/11/2013, 13:00

    Envie-nos um modelo conciso do teu bd para que possamos ajudá-lo.

    Cumprimentos.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Numerar linhas num subforme Empty Re: [Resolvido]Numerar linhas num subforme

    Mensagem  JPaulo 15/11/2013, 14:18

    Tambem posso ajudar aqui com este meu exemplo de 2008;

    É só adaptar, teste apertando o botão "Novo"
    Anexos
    [Resolvido]Numerar linhas num subforme AttachmentRecuperaNumeracaoEmFalta.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 65 vez(es)


    .................................................................................
    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]Numerar linhas num subforme Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Numerar linhas num subforme Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Numerar linhas num subforme Folder_announce_new Instruções SQL como utilizar...
    avatar
    leitaojc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 06/03/2013

    [Resolvido]Numerar linhas num subforme Empty Olá de novo

    Mensagem  leitaojc 15/11/2013, 17:39

    Anexo BD, a ver o que podem ajudar.

    Muito obrigado a todos
    Anexos
    [Resolvido]Numerar linhas num subforme AttachmentDatabase1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (407 Kb) Baixado 32 vez(es)
    avatar
    leitaojc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 06/03/2013

    [Resolvido]Numerar linhas num subforme Empty Boa tarde

    Mensagem  leitaojc 15/11/2013, 17:47

    Esqueci de dizer que o campo correto com a numeração está em laranja.

    Outro campo a esquerda, é o campo onde necessito de guardar a numeração.

    Obrigado, mais uma vez
    avatar
    Convidado
    Convidado


    [Resolvido]Numerar linhas num subforme Empty Re: [Resolvido]Numerar linhas num subforme

    Mensagem  Convidado 15/11/2013, 18:04

    Veja ai se é isso que quer, depois de digitar a descrição e pressionar o enter será realizado o procedimento.
    avatar
    leitaojc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 06/03/2013

    [Resolvido]Numerar linhas num subforme Empty Continua do mesmo geito

    Mensagem  leitaojc 28/11/2013, 15:39

    Ainda a tentar resolver o numerador de linhas colocado no tópico:
    http://maximoaccess.forumeiros.com/t16296-numerar-linhas-num-subforme

    neste momento tenho este código
    ----------------------------------------------------------------------------
    Private Sub Form_AfterUpdate()
    Dim strsql As String
    strsql = "SELECT  scf_facl.linha " & vbCrLf & _
    "FROM scf_facl " & vbCrLf & _
    "WHERE (((scf_facl.id_fact)=[Formulários]![Facturas]![id])) " & vbCrLf & _
    "ORDER BY scf_facl.id_fact;"
    Call fncMontaItem(strsql)
    Me!linha.RowSource = strsql
    End Sub
    -----------------------------------------------------------------------------
    Private Sub fncMontaItem(qry As String)
    Dim rs As DAO.Recordset
    Dim k As Long
    k = 1
    Set rs = CurrentDb.OpenRecordset(qry)
    Do While Not rs.EOF
       rs.Edit: rs!item = k: rs.update
       k = k + 1
       rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    End Sub
    ---------------------------------------------------------------------------
    Mas está a dar erro no código
    Set rs = CurrentDb.OpenRecordset(qry)

    Com o erro
    Run-time '3061'
    Poucos parâmetros. 1 esperado

    Este exemplo tirei do tópico:
    http://maximoaccess.forumeiros.com/t11275-resolvidonumerar-caixa-de-listagem-nao-acoplada

    E não entendo o que está mal, o que alterei, esta a bolde, em relação ao texto original

    e não entendo o que tenho mal, será que podem me dar uma ajuda?
    avatar
    leitaojc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 06/03/2013

    [Resolvido]Numerar linhas num subforme Empty Para quem necessitar

    Mensagem  leitaojc 2/12/2013, 16:19

    Código a funcionar

    Private Sub Form_AfterUpdate()
    Dim strsql As String
    Dim a As Long
    a = Forms!facturas!id
    strsql = "SELECT scf_facl.linha " & vbCrLf & _
    "FROM scf_facl " & vbCrLf & _
    "WHERE (scf_facl.id_fact)=(" & Forms!facturas!id & ") " & vbCrLf & _
    "ORDER BY scf_facl.id_fact;"
    Call fncMontaItem(strsql)
    End Sub
    --------------------------------------------------------------------------------------------
    Private Sub fncMontaItem(qry As String)
    Dim rs As DAO.Recordset
    Dim k As Long
    k = 1
    Set rs = CurrentDb.OpenRecordset(qry)
    Do While Not rs.EOF
    rs.Edit: rs!linha = k: rs.update
    k = k + 1
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    End Sub
    avatar
    leitaojc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 06/03/2013

    [Resolvido]Numerar linhas num subforme Empty Resolvido

    Mensagem  leitaojc 2/12/2013, 16:20

    Faltou o resolvido
    avatar
    Convidado
    Convidado


    [Resolvido]Numerar linhas num subforme Empty Re: [Resolvido]Numerar linhas num subforme

    Mensagem  Convidado 8/12/2013, 10:50

    O Fórum agradece o Retorno.
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 19/08/2010

    [Resolvido]Numerar linhas num subforme Empty Numeração Automática

    Mensagem  marcelo3092 4/6/2016, 18:55

    Boa tarde pessoal vi este post e me deixo com duvidas e quando for pra pegar e ultilizar o proprio campo auto numeração tipo tenho cliente código 10 exclui ele pula o novo cadastro pro código 11 ao inves disso ultilizar o código 10 novamente???

    BrunoReis gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Numerar linhas num subforme Empty Re: [Resolvido]Numerar linhas num subforme

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:06