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


    Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código

    avatar
    samueldrun
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código Empty Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código

    Mensagem  samueldrun em 8/8/2019, 22:47

    Boa noite mestres,

    tenho um cardápio onde terão alguns pratos fixos, porém não consegui fixar eles no meu subformulário então pensei em colocar um botão onde ao clicar ele adicione nesse subformulário os pratos com a opção fixo marcada

    alguém pode me ajudar ?
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    Registrado : 12/01/2015

    Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código Empty Re: Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código

    Mensagem  renpv em 13/8/2019, 00:35

    O caminho é esse mesmo. Tenta criar esse botão. Se não conseguir posta uma parte do sistema aqui que a gente pode te dar uma força
    avatar
    samueldrun
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código Empty Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código

    Mensagem  samueldrun em 13/8/2019, 00:59

    Boa noite

    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 ?
    avatar
    samueldrun
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código Empty Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código

    Mensagem  samueldrun em 13/8/2019, 13:48

    Alguém ?
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    Registrado : 12/01/2015

    Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código Empty Re: Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código

    Mensagem  renpv em 13/8/2019, 17:04

    Se você quer que ele inclua outros valores você vai ter que criar outro array com os valores que deseja criar. Aí você coloca um FOR dentro do outro

    Conteúdo patrocinado

    Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código Empty Re: Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/12/2019, 00:33