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

    [Resolvido]Valor padrão em subformulário

    avatar
    samueldrun
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/09/2017

    [Resolvido]Valor padrão em subformulário Empty [Resolvido]Valor padrão em subformulário

    Mensagem  samueldrun em 8/8/2019, 15:35

    mudei de tópico por que acredito que seria melhor uma lógica de programação para resolver

    Boa noite mestres,

    então eu ganhei a missão de criar uma especie de cardápio, fiz esse cardápio em forma de subformulário, até ai tudo bem, o problema é que gostariam de ter alguns pratos como fixos, como posso deixar as três primeiras linhas de um subformulário com valores padrões ?

    agradeço a ajuda de todos
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Valor padrão em subformulário Empty Re: [Resolvido]Valor padrão em subformulário

    Mensagem  ronaldojr1 em 9/8/2019, 13:59

    bom dia,
    quando vc diz...
    3 primeiras linhas com valores padrao, na vdd seria 3 registros padroes, certo?

    se sim vc tera q criar um evento q ao add um novo cardapio automaticamente ja insere esses 3 registros fixos.

    segue exemplo de criação de registro via codigo:
    Código:
    Dim rs As recordset
    'abre a tabela
    Set rs = CurrentDb().OpenRecordset("tabela1")

    'Registro 1
    rs.AddNew
        rs!nmCampo1 = "Sei la "
        rs!nmCampo2 = "Sei la "
        rs!nmCampo3 = "Sei la "
    rs.Update

    'Registro 2
    rs.AddNew
        rs!nmCampo1 = "Sei la "
        rs!nmCampo2 = "Sei la "
        rs!nmCampo3 = "Sei la "
    rs.Update

    'Registro 3
    rs.AddNew
        rs!nmCampo1 = "Sei la "
        rs!nmCampo2 = "Sei la "
        rs!nmCampo3 = "Sei la "
    rs.Update
    avatar
    samueldrun
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/09/2017

    [Resolvido]Valor padrão em subformulário Empty Valor padrão em subformulário

    Mensagem  samueldrun em 9/8/2019, 14:27

    Ronaldo, já começou a me dar uma luz no fim do túnel obrigado por me ajudar, você sabe como posso aplicar esse mesmo conceito mas direto nos campos do subformulário ?
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Valor padrão em subformulário Empty Re: [Resolvido]Valor padrão em subformulário

    Mensagem  ronaldojr1 em 9/8/2019, 18:53

    para te dar uma solução mais exata é interessante vc nos enviar seu BD para análise.
    obrigado
    avatar
    samueldrun
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/09/2017

    [Resolvido]Valor padrão em subformulário Empty Valor padrão em subformulário

    Mensagem  samueldrun em 12/8/2019, 02:40

    Boa noite Ronaldo,

    desculpe a demora, eu meio que adaptei para minha necessidade e consegui o seguinte código:

    Código:
    Dim i, n, c As Integer
    n = DCount("Código", "insercao", "refeicao ='" & Me!Texto68 & "'")
    c = DLookup("Código", "insercao", "Refeicao = '" & Me!Texto68 & "'")
    Me!subproducao_criacao.SetFocus
    For i = 1 To n
    DoCmd.GoToRecord , , acNewRec
    Me!subproducao_criacao!Produto = c
    Next i

    mas estou com problema nessa parte:

    Código:
    c = DLookup("Código", "insercao", "Refeicao = '" & Me!Texto68 & "'")

    por que toda vez que o loop cria um novo campo e atribui um valor ao campo esse valor é repetido, sabe como posso adaptar para não repetir ?
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Valor padrão em subformulário Empty Re: [Resolvido]Valor padrão em subformulário

    Mensagem  ronaldojr1 em 14/8/2019, 16:59

    boa tarde,
    como eu disse na mensagem anterior. precisamos analisar seu banco de dados para dar uma resposta mais exata.
    Mas mesmo assim montei um exemplo para criar o que deseja. analise o codigo e tente adaptar na sua necessidade.

    boa sorte
    Anexos
    [Resolvido]Valor padrão em subformulário Attachmentvalor padrao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (52 Kb) Baixado 23 vez(es)
    avatar
    samueldrun
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/09/2017

    [Resolvido]Valor padrão em subformulário Empty Valor padrão em subformulário

    Mensagem  samueldrun em 15/8/2019, 20:36

    Nossa era exatamente isso que eu precisava, funcionou certinho muito obrigado estava a tempos com esse problema
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Valor padrão em subformulário Empty Re: [Resolvido]Valor padrão em subformulário

    Mensagem  ronaldojr1 em 15/8/2019, 22:30

    uhuuu
    O fórum agradece o retorno.

    avatar
    samueldrun
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/09/2017

    [Resolvido]Valor padrão em subformulário Empty Re: [Resolvido]Valor padrão em subformulário

    Mensagem  samueldrun em 16/10/2019, 18:49

    resolvi

      Data/hora atual: 10/7/2020, 04:09