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

    Criar Formulário pelo VBA no Access

    avatar
    Alexan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 08/02/2011

    Criar Formulário pelo VBA no Access Empty Criar Formulário pelo VBA no Access

    Mensagem  Alexan 30/7/2021, 17:21

    Galera, bom dia!
    Estou precisando criar formulário no Access, através de VBA. Fazendo a pesquisa, eu até consegui, só que conforme o exemplo abaixo, ele cria, porém os controles eu tenho que dizer um a um qual será a posição deles.
    Porém, eu preciso, é como se fossemos no assistente de criação de formulários, escolher a tabela, os campos, o tipo do formulário (tabela, colunas, etc) e quando damos o "OK" ele além de criar o formulário, coloca TODOS os campos que foram selecionamos.
    Preciso disso, via VBA, alguém pode me ajudar?
    Vejam o código abaixo:

    Sub NewControls()
    Dim frm As Form
    Dim ctlLabel As Control, Ctl As Control
    Dim intDataX As Integer, intDataY As Integer
    Dim intLabelX As Integer, intLabelY As Integer

    'Crie um novo formulário com a tabela Pedidos como sua fonte de registro.
    Set frm = CreateForm
    frm.RecordSource = "Tb_Clientes"
    ' Defina valores de posicionamento para novos controles.
    intLabelX = 1000
    intLabelY = 100
    intDataX = 1000
    intDataY = 100
    ' Crie uma caixa de Listagem de tamanho padrão não acoplada na seção de detalhes.
    'Parâmetros:
    'Nome do Form aberto
    'tipo do controle
    'seção (cabeçalho,detalhe do rodapé
    'Nome do controle Pai
    'Origem dos dados
    'posição do controle a esquerda
    'posição da margem superior
    Set Ctl = CreateControl(frm.Name, acListBox, acDetail, , "", intDataX, intDataY)
    Ctl.Name = "LstEscritor"
    Ctl.RowSource = "Tb_Escritor"
    Ctl.ColumnCount = 2
    Ctl.ColumnWidths = "0;1"
    ' Crie um controle de rótulo filho para a caixa de texto.
    Set ctlLabel = CreateControl(frm.Name, acLabel, acDetail, Ctl.Name, "Código do Autor", intLabelX, intLabelY)
    ctlLabel.Name = "Rot_CodAutor"

    DoCmd.Restore
    DoCmd.Save acForm, frm.Name
    DoCmd.Close
    DoCmd.Rename "FrmLivro", acForm, "Formulário1"

    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    Criar Formulário pelo VBA no Access Empty Re: Criar Formulário pelo VBA no Access

    Mensagem  DamascenoJr. 31/7/2021, 17:23

    Um curioso neste tópico: qual seria a aplicabilidade?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    Criar Formulário pelo VBA no Access Empty Re: Criar Formulário pelo VBA no Access

    Mensagem  Alexandre Fim 31/7/2021, 17:40

    Olá Alexan,

    Existe uma ferramenta case, também desenvolvida em Access, chamada Genesis 2010.
    Não tenho certeza se ele já cria a estrutura dos formulários...não me recordo...acho que baixei ele 1 vez...faz um tempo..d.evo ter nas minhas "coisas".

    No site do Avelino deve ter...dá uma olhada:

    usandoaccess.com.br/tutoriais/classe-no-access-genesis.asp

    Nele vc cria as tabelas e ele cria toda a estrutura de classes das tabelas, que serão utilizadas no formulário. Acredito que ajudará bastante.

    É isso.

    Fim


    Última edição por DamascenoJr. em 31/7/2021, 18:53, editado 1 vez(es) (Motivo da edição : Link externo desabilitado)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Criar Formulário pelo VBA no Access Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Alexan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 08/02/2011

    Criar Formulário pelo VBA no Access Empty Criar Formulário pelo VBA no Access

    Mensagem  Alexan 19/10/2021, 19:33

    Oi Damasceno, desculpe a demora!
    O objetivo é criar um framework, a fim de quando iniciar um projeto ele criar "n" formulários automaticamente, sem precisar criar um a um, entende?
    avatar
    Alexan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 08/02/2011

    Criar Formulário pelo VBA no Access Empty Criar Formulário pelo VBA no Access

    Mensagem  Alexan 19/10/2021, 21:45

    Oi Alexandre, eu tenho ele...mas infelizmente ele não cria formulários, somente códigos, classes etc.

      Data/hora atual: 6/10/2022, 08:45