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

    Fazer Insert com condição

    avatar
    gwunipessoal
    Novato
    Novato

    Respeito às Regras 100%

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

    Fazer Insert com condição Empty Fazer Insert com condição

    Mensagem  gwunipessoal em 13/6/2018, 17:08

    Olá a todos
    Estou com um problema numa aplicação que estou a desenvolver, preciso de gerar uma query que insira numa tabela dados com base num critério definido, para melhor entender o que pretendo anexo a bd e xls explicativo do que necessito.

    Agradeço a vossa ajuda!

    Fazer Insert com condição Sortid10
    Anexos
    Fazer Insert com condição Attachmentbd.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (295 Kb) Baixado 12 vez(es)
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Fazer Insert com condição Empty Re: Fazer Insert com condição

    Mensagem  caiosouza em 14/7/2018, 19:23

    Faça algo do tipo:

    Código:
    Dim qtdDisponivel as Single, parcMaxima as Integer, NumParc as Integer, I as Long


    qtdDisponivel = InputBox "Qtd Disponível:"
    parcMaxima = InputBox "Parcela máxima da quantidade." & qtdDisponivel & ":"
    NumParc = qtdDisponivel / parcMaxima

    For I = 0 To NumParc
          CurrentDb.Execute "INSERT INTO ..."
    Next

    Msgbox "Quant. dísponível: " & qtdDisponivel & Chr(13) & _
    "Parcela Máxima: " & parcMaxima & Chr(13) & _
    "Registros inseridos: " & NumParc


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    gwunipessoal
    Novato
    Novato

    Respeito às Regras 100%

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

    Fazer Insert com condição Empty Re: Fazer Insert com condição

    Mensagem  gwunipessoal em 16/1/2019, 13:25

    Não tenho conhecimento de vba para tal feito? Consegue replicar isso na bd que envio em anexo?

      Data/hora atual: 28/10/2020, 07:50