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


3 participantes

    Chat GPT para auxiliar em Dúvidas

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012

    Chat GPT para auxiliar em Dúvidas Empty Chat GPT para auxiliar em Dúvidas

    Mensagem  =>Nois 13/4/2023, 13:49

    Fala pessoal

    segue uma dica bem legal, estou aqui pensando em formular um código, dai tive a ideia de utilizar o chat gpt para me dar uma luz em como desenvolver um código

    tai um exemplo em anexo

    Chat GPT para auxiliar em Dúvidas Chat_g10


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Chat GPT para auxiliar em Dúvidas Empty Re: Chat GPT para auxiliar em Dúvidas

    Mensagem  Alvaro Teixeira 27/4/2023, 11:42

    Olá Nois,

    Obrigado pela partilha.
    Também já tinha feito uns testes com código, criar tabelas com informação das respostas, etc.
    Verifico que a IA (Inteligência Artificial) é realmente é impressionante.

    Ainda bem que se fez uma pausa no seu desenvolvimento, veja apenas um exemplo do que pode acontecer ...
    Chat GPT para auxiliar em Dúvidas Ai10
    origem:  pt.euronews.com/cultura/2023/04/20/fotografo-recusa-premio-por-imagem-ter-sido-gerada-por-inteligencia-artificial

    ... devemos refletir no que está a ser criado.

    Abraço
    ribeiroguaruja
    ribeiroguaruja
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 30/05/2015

    Chat GPT para auxiliar em Dúvidas Empty Re: Chat GPT para auxiliar em Dúvidas

    Mensagem  ribeiroguaruja 28/4/2023, 03:40

    boa noite!

    fiz uma pergunta no chatgpt...

    Para criar um formulário que mostre uma barra de progresso ao processar informações em um banco de dados do Access utilizando VBA, siga os seguintes passos:

    Passo 1: Crie um novo formulário

    No Access, crie um novo formulário em branco. Você pode fazer isso clicando na guia "Criar" e selecionando "Formulário em Branco".

    Passo 2: Adicione os controles

    Adicione dois controles ao formulário: uma barra de progresso e um rótulo. Você pode encontrar esses controles na guia "Design" na faixa de opções do Access. Posicione a barra de progresso e o rótulo no formulário como desejado.

    Passo 3: Defina as propriedades da barra de progresso

    Selecione a barra de progresso e abra suas propriedades. Defina as seguintes propriedades:

    - Nome: nomeie a barra de progresso para referenciá-la no código.
    - Mínimo: o valor mínimo da barra de progresso, geralmente 0.
    - Máximo: o valor máximo da barra de progresso, dependendo do número de registros que serão processados.
    - Valor: o valor atual da barra de progresso, geralmente 0 no início.
    - Estilo: defina o estilo da barra de progresso, como "Contínuo".

    Passo 4: Defina as propriedades do rótulo

    Selecione o rótulo e abra suas propriedades. Defina as seguintes propriedades:

    - Nome: nomeie o rótulo para referenciá-lo no código.
    - Valor: defina um valor inicial para o rótulo, como "Processando registros".

    Passo 5: Escreva o código VBA

    No modo de design do formulário, clique com o botão direito do mouse na barra de progresso e selecione "Criar evento" e, em seguida, selecione "Ao clicar". Isso abrirá o editor de código VBA.

    Dentro do editor de código VBA, escreva o seguinte código:

    ```
    Private Sub Form_Load()

    Dim totalRegistros As Integer
    Dim contador As Integer

    ' Conta o número de registros a serem processados
    totalRegistros = DCount("*", "NomeDaTabela")

    ' Loop através dos registros e atualiza a barra de progresso
    For contador = 1 To totalRegistros

    ' Atualiza a barra de progresso
    Me.NomeDaBarraDeProgresso.Value = contador

    ' Atualiza o rótulo com o número do registro atual
    Me.NomeDoRotulo.Caption = "Processando registro " & contador & " de " & totalRegistros

    ' Processa o registro atual
    ' ...

    ' Permite que o Access atualize a tela
    DoEvents
    Next contador

    ' Fecha o formulário quando o processamento estiver concluído
    DoCmd.Close acForm, Me.Name

    End Sub
    ```

    Certifique-se de substituir "NomeDaTabela" pelo nome da tabela que você deseja processar e substitua "NomeDaBarraDeProgresso" e "NomeDoRotulo" pelos nomes que você definiu para a barra de progresso e rótulo.

    Passo 6: Salve e teste o formulário

    Salve o formulário e teste

    Shocked Shocked Shocked Shocked Shocked


    .................................................................................
    affraid

    Conteúdo patrocinado


    Chat GPT para auxiliar em Dúvidas Empty Re: Chat GPT para auxiliar em Dúvidas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 08:29