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]Valor padrão em subformulário

    avatar
    samueldrun
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    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 : 418
    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
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    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 : 418
    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
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    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 : 418
    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 7 vez(es)
    avatar
    samueldrun
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    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 : 418
    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.


    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/8/2019, 13:04