[Resolvido]Puxar o nome dos formulário

Boa Noite Pessoal,


Preciso da Ajuda de Vocês.

Estou montando um controle de acesso de usuários, e gostaria de um código que puxe o nome dos formulários do banco para dentro de uma tabela.

Amigo, veja aqui uma forma de mostrar todos os Nomes dos Formularios:

Dessa forma obtera os Valores no padrão para fazer um INSERT na tabela:
Coloque em um Botao, e exibirar os nomes em uma Mensagem.

Dim Obj As AccessObject
Dim fObj As Object
Dim F As String
Set fObj = Application.CurrentProject

For Each Obj In fObj.AllForms
   
    F = F + Obj.Name & ","
   
Next Obj
MsgBox Left(F, Len(F) - 1), vbInformation

Bastra Criar um Insert na tabela e no valor do campo coloque que e igual a variavel F

Fabiopaes, Muito Obrigado era bem isso que eu precisava.