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


    [Resolvido]subformulario gerando novo registro no formulario

    avatar
    soncan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 11/07/2011

    [Resolvido]subformulario gerando novo registro no formulario Empty subformulario gerando novo registro no formulario

    Mensagem  soncan 24/4/2012, 13:42

    Ola pessoal, como faço para que meu subformulario detalhes do pedido, ao terminar de registrar o pedidos que desejo automaticamente inicio um novo registro no formulario pedidos.
    Fiz a seguinte tentativa mas nao deu certo

    DoCmd.GoToRecord , Forms![Clientes]![GUIA].Forms![Pedidos1], acNewRec

    Obrigado!
    avatar
    Convidad
    Convidado


    [Resolvido]subformulario gerando novo registro no formulario Empty Re: [Resolvido]subformulario gerando novo registro no formulario

    Mensagem  Convidad 24/4/2012, 13:58


    Olá!

    A questão é que o subformulário não tem como saber quando o item registrado é o último, a não ser que seja uma quantidade de itens fixa.
    avatar
    soncan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 11/07/2011

    [Resolvido]subformulario gerando novo registro no formulario Empty Re: [Resolvido]subformulario gerando novo registro no formulario

    Mensagem  soncan 24/4/2012, 14:20

    Isso, eu ja limitei ele, existe um campo que diz ate quantos registros ele pode fazer, ai a ideia é que chegando nesse limite
    ele imediatamente passe para outro registro no formulario pedidos
    avatar
    Convidad
    Convidado


    [Resolvido]subformulario gerando novo registro no formulario Empty Re: [Resolvido]subformulario gerando novo registro no formulario

    Mensagem  Convidad 24/4/2012, 14:41


    Veja se funciona...
    No subformulário:


    Private Sub Form_BeforeInsert(Cancel As Integer)
    On Error GoTo Trato
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone
    rs.MoveLast
    If rs.RecordCount >= 10 Then 'informe aqui o n° de registros
    Cancel = True
    MsgBox "O limite máximo de registros foi atingido."
    End If
    rs.Close
    Set rs = Nothing

    Forms!FormulárioPrincipal.SetFocus
    DoCmd.RunCommand acCmdRecordsGoToNew

    Exit Sub
    Trato:
    If Err.Number = 3021 Then
    Exit Sub
    Else
    MsgBox Err.Description
    End If
    End Sub

    avatar
    soncan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 11/07/2011

    [Resolvido]subformulario gerando novo registro no formulario Empty Re: [Resolvido]subformulario gerando novo registro no formulario

    Mensagem  soncan 24/4/2012, 15:14

    Norberto valeu a dica, vou testar, e ja posto o resultado
    Obrigado!
    avatar
    soncan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 11/07/2011

    [Resolvido]subformulario gerando novo registro no formulario Empty Re: [Resolvido]subformulario gerando novo registro no formulario

    Mensagem  soncan 24/4/2012, 16:47

    Norberto excelente, deu certo, adaptei as minhas necessidades e funcionou.

    Fiz o seguinte, no meu bd tenho um campo onde insiro o limite de registros que determinado pedido pode ter, exemplo
    foi aprovado para o cliente fulano a quantia de x materias, esse x materias é o limite de pedidos que posso fazer para esse cliente, entao na hora de cadastrar o cliente coloco nessa caixa qual é o seu limite, assim nao preciso coloca-lo direto no vba
    ja que cada caso é um caso, sendo assim o código ficou desta forma:

    Dim lim As String
    Dim reg As String
    reg = Me.CurrentRecord
    lim = Me.limite

    If reg = lim Then
    Forms![CLIENTES]![GUIA]![Pedidos1]![Texto52].SetFocus
    DoCmd.RunCommand acCmdRecordsGoToNew
    End If
    End Sub

    um abraço e muito obrigado!
    avatar
    Convidad
    Convidado


    [Resolvido]subformulario gerando novo registro no formulario Empty Re: [Resolvido]subformulario gerando novo registro no formulario

    Mensagem  Convidad 24/4/2012, 17:00


    Muito bom!

    Então marco como Resolvido.

    Abraço!

    Conteúdo patrocinado


    [Resolvido]subformulario gerando novo registro no formulario Empty Re: [Resolvido]subformulario gerando novo registro no formulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:24