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


    gravar todos os registros de um fomulario continuo em clique só

    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    gravar todos os registros de um fomulario continuo em clique só Empty gravar todos os registros de um fomulario continuo em clique só

    Mensagem  Ney Santos 1/5/2023, 14:08

    Estou precisando de uma dica , pois a dois dias empaquei num abençoado de um código.
    E o seguinte :
    Depois de executar alguns procedimentos me e gerado um formulario
    continuo com os dados filtrados.
    O próximo passo é gravar esses registros numa nova tabela.
    a tabela em questão chama-se "tbreceber", e é ai que eu estou quebrando a cabeça pra executar a função, visto que preciso gravar todos o registros na tabela com um único clique no botão do Formulário.
    Pois são 40 registros e é inviável ter de fazer o cliente apertar 40 vezes o botão para lançar os registros um a um.
    Teriam como me dar uma dica de como fazer essa função?
    Já escrevi mais de 15 tipos de códigos, mas nenhum fez o'que eu preciso.
    Caso precise posso enviar parte do bd
    Obrigado
    Att
    Ney Santos
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    gravar todos os registros de um fomulario continuo em clique só Empty Re: gravar todos os registros de um fomulario continuo em clique só

    Mensagem  Ney Santos 1/5/2023, 17:45

    Pessoal resovi esse problema, mas agora esta aparecendo outro,
    Primeiro vou explicar como resolvi:
    1º eu desabiltei o campo TxCodigo do formulario
    quando o formulario abre eu seto o foco pra um determinado campo
    Criei uma funçao no botao gravar habilita o controle Txcodigo
    em seguida seta o foco no referido controle .
    ao recber o foco o contole executa o codigo:
    DoCmd.GoToRecord , , acNext
    ai esse controle executa uma funçao chamada "GERAR_RECEBER" ao perder o foco
    a funçao" GERAR_RECEBER"e a seguinte :
    Private Function GERAR_RECEBER()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb
    Set rs = OpenForSeek("TBRECEBER")

    rs.Index = "IDLANCAMENTO"
    rs.Seek "=", TXCODIGO

    Dim F As Variant
    F = DMax("LANCAMENTO", "TBRECEBER")

    If IsNull(F) Then F = 0

    rs.AddNew

    rs("LANCAMENTO") = (F + 1)
    rs("APTO") = TXAPTO
    rs("MES") = TXMES
    rs("ANO") = TXANO
    rs("COTA") = TxCota
    rs("FUNDO") = TXFUNDO
    rs("DATAEMISSA") = TxDTLANCA
    rs("DATAVENCIM") = TXDTVENC
    rs("NOMECOND") = TXCODIGO
    rs.Update

    rs.Close
       Set rs = Nothing
    End Function

    Essa mesma funçao e executada no evento ao perder foco  do campo TxCodigo.
    O problema que está dando agora e que depois de correr todos os registros do formulario vem a seguinte msg:"erro  em tempo de execuçao 2105 " Voce nao pode ir par o registro especificado"
    Como resolver isso?

      Data/hora atual: 25/4/2024, 03:14