Projeto 2013 V3 (Casco do Maximo Access) Pré-Release V4.0

Olá a todos os usuários do fórum!!!
Antes de começar a ler, as atualizações estão acompanhando o Tópico então começando daqui está é a primeira versão (1.0) a ultima sempre estará nos ultimos assuntos...
O Projeto 2013 é um banco onde usuários que já conhecem a estrutura access pode aproveitar e estudar grandes variedades de sistemas, também para leigos começarem a estudar, mas também pode ser usado para qualquer fins, tendo em prática códigos de SQL, DB.Execute e DAO, e por que não o ADO?
Também reforçando aqueles que puderem ajudar a encontrar erros, e tentar aliviar o máximo de códigos possíveis eu agradeço e muito! idéias também são sempre bem vindas!. (Conforme as regras do fórum deve se abrir um tópico a parte, pois aqui é proibido qualquer dúvidas)!

Programa totalmente incompatível com Windows 8 mesmo tendo instalado o Access 2010! (As imagens ficam 40% menores, provável compatibilidade no FormShapper ou sobre o próprio Windows, deve se redesenhar os tamanhos de cada imagem apropriadamente para o Windows 8
Neste banco inclui:

XPaneSideBar ***Piloto
Login com Permissões Avançadas ***Avelino Maestro V4
DLookUpX ***Avelino Maestro V4 (Excelente módulo!)
Back-up com Winrar ***Avelino
Visualizar todos os Usuários Online e em qual máquina ***DHTM15
Desconectar todos os Usuários e Bloquea-los para não abrir o banco ***DHTM15
CEP Online *** Criquio
Salva Exclusão e Alteração *** Dilson Marcos
Detectar Ausencia do Usuário e Desconecta-lo *** Não lembro da onde peguei
Checa Vinculo *** Avelino Maestro V3
Checa Back End ***DHTM15
Calendário com Feriados *** Incluido com Xpane Piloto
Formulário unico que chama otros formularios através do combobox e com funções e botões únicos independentes do Access *** DHTM15
Mod Procurar Arquivo / Pasta Avelino Maestro V4
Redimencionar formulários e centrar no ecrã conforme a resolução ***PedritoMelo
Códigos de exemplo de DAO, SQL e DB.Execute ***DHTM15
Banco de Dados com Icone na Systray ***JPaulo
E outros códigos por ***DHTM15


O Banco é quase 100% Desvinculado, todos estão usando códigos de SQL, DAO e DB Execute, tentando pegar o máximo de Desempenho!
Alguns citados acima foram modificados conforme necessitei no programa, mas todos os créditos são deles!

Créditos para todos que me ajudaram:
JPaulo
Criquio
Piloto
Avelino Sampaio
Vieira
Silvio
Alexandre Neves
Leandro
E Marcelo David

Todos merecem este crédito por ter dedicado seus preciosos minutos para me ensinar muito, e todos estes serão lembrados em minha vida, neste fórum eu aprendi mais rápido que em qualquer outro curso, e em qualquer outro lugar... aqui me trouxeram idéias, ações, respeito, comunicação, força de vontade e amigos!

[Logins]
Dennis > 1234
Admin > admin
e outros não lembro...

Banco de Dados Atualizado, Está rodando perfeitamente no Access 2007, está com algumas funções novas como descrito no tópico mas ainda continua incompatível com Windows 8.

Abraços a todos e bom aproveito!

[Futuras Atualizações que já estão em andamento!]
- Adicionar automáticamente os formulários na tblFunções
* Faz a checagem dos novos formulários que foram adicionados, então adiciona eles automáticamente a tabela "tblFunções"
- Adicionar automáticamente os formulários e o código do usuário na tblPermissõesUsuários
* Faz a chegagem dos novos formulários que foram adicionados, então adiciona eles e o usuário na tabela "tblPermissõesUsuários"
E outras que poderão vir...

Parabens, pelo excelente trabalho.

Muito bom amigo. Parabens
E fico contente em saber que algum deu valor ao que eu fiz.
Agora sim alguem mostrou respeito e eu respeito-te muito por isso.
Espero em breve ajudar com outras formulas.

Estas de parabens.

Pedro Melo

Foram adicionados como planejado anteriormente!
- Adicionar automáticamente os formulários na tblFunções
* Faz a checagem dos novos formulários que foram adicionados, então adiciona eles automáticamente a tabela "tblFunções"
- Adicionar automáticamente os formulários e o código do usuário na tblPermissõesUsuários
* Faz a chegagem dos novos formulários que foram adicionados, então adiciona eles e o usuário na tabela "tblPermissõesUsuários"
E outras que poderão vir...As outras são que adicionei Variáveis Temporárias para corrigir um erro dos códigos do Avelino, que quando você loga com o usuário ao decorrer do tempo este usuário não está mais logado como se tivesse efetuado o LogOff, mas como não quero esquentar muito a cabeça, não agora então resolvi criar umas variáveis temporárias para solucionar o problema.

Criei também as funções:
- Compatível com Windows 8 (Basta entrar em resolução de tela e abrir o menu Ampliar ou reduzir texto e outros itens colocando no formato padrão de 100% que pois 125% faz com que as imagens fiquem pequenas!
- SQLX("Nome dos campos", "Tabela" e/ou "IN", "Where" e/ou "GROUP BY")
*Logo estarei aprimorando o SQLX para ser compatível com UPDATE, DELETE, JOIN, mas por enquanto só o SELECT!
- Fget("Formulário", "Campo") serve para pegar a informação que está aberta em um formulário indicado.
- checaform que faz a checagem de novos formulários.
- checaperm que faz a checagem das permissões.
- caminho que traz o caminho de seu banco de dados BackEnd.
- img("nome imagem.extensão") que traz o caminho completo da imagem bastando só colocar o nome da imagem.
- acx que faz a conexão com a database setada no caminho do BackEnd.
- dbdisconnect que faz o fechamento da database e dos recordsets.
- Adicionado botões com funções 100% escrito em VBA funções escrita em Módulo chamando em códigos!
- Pause faz com que você de um pause nas chamadas dos códigos que deseja!
- SLogChange Corrigido, agora você pode indicar qual é o campo primário do formulário para que ele possa salvar as alterações do históricos mais corretamente!

Código:

Function SLogChange(strTipo As String, frm As Form, campo As String)

escrevendo desta maneira:

Código:

 Private Sub Form_BeforeUpdate(Cancel As Integer)
Call SLogChange("A", Me, "ID")
End Sub

Private Sub Form_Delete(Cancel As Integer)
Call SLogChange("E", Me, "ID")
End Sub

- fDragWindow Me que faz com que os formulários desenhados em bmp ou gif com formatos personalizado possam ser arrastado *JPaulo

Também foram adicionados alguns exemplos de formulários para que possam entender como se escreve os códigos para conectar os banco de dados desvinculado a um formulário, subformulário e subdosubformulário, também amarrando campo mestre e filho e filtrando!


Aqui é o que citei das variáveis temporárias!

Código:


Public Function UsuarioTemp()
    TempVars.RemoveAll
    TempVars.Add "UsuarioZ", "" & login.Usuario
    TempVars.Add "UsuarioZID", "" & login.ID
End Function

Public Function UserX()
    UserX = TempVars!UsuarioZ
    If UserX = "" Or IsNull(UserX) Then
    UserX = "Admin"
    End If
End Function
Public Function UserID()
    UserID = TempVars!UsuarioZID
    If UserID = "" Or IsNull(UserID) Then
    UserID = "1"
    End If
End Function

Parabéns esta ficando muito bom seu trabalho nota 10.

Muito bom mesmo! Parabéns!

Saudações e Obrigado a todos!
Fiquem atentos, que estou a trazer uma reformulação completa do sistema, e está show de bola!
Estou agora usando Treeview em vez do Xsidebar, estou fazendo codificações mais rápida e um método mais eficiente de fazer as conexões e somente adicionar ou editar através do Inputbox ou Inputbox personalizado.

Terá vários códigos prontos, só basta adicionar as strings devidas como Tabela, Campo, Formulário e indicando uma Index...

Uma imagem a baixo, logo estarei postando mais...

Bom trabalho!
Não sei se o "Leandro" informado nos créditos sou eu, mas de toda forma agradeço e lembro que 'consideração' realmente pra mim é um sinal da evolução humana.

Boa tarde!
Hunnig está aqui seu Pré-Realease v4 do Projeto 2013 (Casco do Máximo Access)

É você mesmo Leadro

Pessoal, ontem não tive o tempo de escrever o que tem nesta nova versão. (Lembrando que está em desenvolvimento ainda!)

- Tela de login mais atrativo, com um formulário transparente de background
- Tela de acesso em modo Fullscreen, se adaptando ao monitor
- Tela de acesso com TreeView e seus códigos, podendo inserir os menus nas tabelas, com open popup ou substituindo o subformulário da janela principal.
- Atualização automática do banco de dados, somente indicar onde se encontra os novos arquivos atualizados, que para todos os usuários na rede atualizem seus bancos de dados, sem você precisar ir Computador por Computador atualizando ou enviar um link para eles atualizar, assim no momento que você atualizar, mudar a versão e preencher a SelectBox, dentro de até 30 segundos os bancos receberá o alerta e depois dentro de 10 min os programas estão sendo encerrados para a nova atualização.
- Novo design nas Msgbox, agora se deve usar dialog.box
Exemplo:
Msgbox "Olá a todos do Maximo Access"
Dialog.box "Olá a todos do Maximo Access"
- As conexões estão em ADO e alguns em DAO
- Janela de Chat / Email, Encontrado na tela Registros no canto superior direito, podendo abrir clicando duas vezes, ou usando o botão direito em cima da mensagem para Ler ou Escrever para os Usuários.
- Alguns erros de codigos corrigidos da versão 3, não vou lembrar exatamente quais...
- Removido o XSideBar
- Removido alguns outros módulos.

Observação, as conexões do banco está carregando as informações somente leitura, mas se desejar alterar a pessoa tem que clicar no botão Salvar, assim o botão ficará com o fundo invisível, abrindo o modo edição, depois de ter alterado todas as informações, inclusive ao dos subformulários, apertar novamente o botão salvar e pronto, seu banco está salvo e atualizado!

Pessoal as atualizações da versão 4 vai estar aqui nesta coluna, vou indicar com numeragem de revisão, então sempre que sair um novo, somente sera editado a coluna com a revisão, o mais importante é a versão final.

Revisão 02:
- Adicionado um exemplo de MSGBOX na Treeview
- Correção de Atualização Automática
- Não estava aparecendo a mensagem de quando não tinha permissão para acessar o formulário
- Adicionado Visualizador de Tabelas das Back-Ends na Treeview

Revisão 03:
- Após o administrador preparar uma nova atualização automática, o banco de dados era fechado instantâneamente para fazer a atualização podendo deixar o funcionário surpreso com o acontecimento e ou até perder o rumo do serviço.
* Para resolver o problema agora foi colocado uma mensagem de aviso, quando houver necessidade de atualização ou desconectar todos os usuários do banco de dados, a mensagem aparece na tela durante 20 segundos depois é automáticamente ocultado sem a possibilidade do usuário fechar a janela, após 10min o banco é fechado e atualizado.
- Algumas correções nos códigos e correção do tempo dos formulários com Timer
- Desativado a função, Detecção de ausência de uso, já que estamos trabalhando de forma desconectada não há necessidade de desconectar um usuário ausente para poder liberar espaço ao tráfico na rede.
- Adicionado algumas variáveis globais.


Revisão - 01 06/08/2013
Revisão - 02 07/08/2013
Revisão - 03 08/08/2013