Tela de Login Access para Back-End MySQL

Olá! Passei por uma experiência desagradável recentemente. Ex-funcionários, considerados como de confiança, copiaram o FE e o BE, e foram trabalhar pra minha concorrente. Simples assim.
Pior: Acreditam piamente que não fizeram nada de errado... Isto é crime!!! Se o sistema ou os dados nele contidos forem utilizados, o Artigo 153 do Código Penal prevê cadeia.

Bom, pra evitar que este tipo de situação se repita, resolvi colocar o BE em MySql e protegê-lo com senha. Desta forma, os usuários não poderão mais contar com o Windows Explorer para copiar deliberadamente arquivos de propriedade alheia. Só terão acesso ao ambiente mysql, utilizando apenas as tabelas permitidas a eles.

Ok, migrei tudo pro MySQL, vinculei todas as tabelas no FE via ODBC e criei usuários no MySQL.

Funciona que é uma beleza! Mas... Apenas se a senha do ODBC estiver salva... Isto equivale a escrever a senha no cartão de crédito...

Quando deixo o ODBC sem senha, não consigo me livrar daquela tela de login do MySQL Connector/ODBC
Com isto, em um formulário baseado em dezenas de consultas, a tela de login aparece para cada consulta! Fica inviável assim

Gostaria de uma tela inicial de login do próprio Access, que liberasse o ODBC. Melhor ainda se a seção permanecesse aberta por tempo determinado, ex.: (1) Por tempo de inatividade; (2) junto com o logon do windows; (3) quando o Access for encerrado

Pesquisei e os exemplos que vi só se referem a consultas por código VBA. Ou seja, por esta forma as tabelas vinculadas e as consultas existentes não serviriam para nada. E eu ainda teria de refazer todos os formulários para carregar via código. Cada consulta levaria uma década, pois tenho tabelas gigantescas com mais de 100.000 registros em Rich Text... Não dá...

Alguém saberia uma forma de fazer o login do ODBC direto pelo Access?

Obrigado!

Miguel Serra

Olá boa noite,

Já conhece o sistema de segurança do mestre Avelino?
Pode ser uma alternativa para resolver o seu problema.

Segurança máxima usando o OPEN

Cumprimentos

PCNET, confesso que estava com receio de que algum funcionário, que já possui a senha de acesso, levasse todo o conjunto FE, BE e o Open pra casa e continuasse acessando o sistema
No entanto, pelo video percebi que há uma ferramenta para que o Open funcione apenas no micro em que foi instalado!
Excelente este sistema de defesa!! Realmente surpreendente!

Muito obrigado pela dica!

Todavia, o uso com o MySQL pra mim é uma tendência que está virando necessidade, pois alguns aplicativos de GIS que utilizo necessitam de um BD mais estruturado que o Access.
Um dia ou outro eu teria que mudar pra MySQL ou PostgreSQL

Desta forma, ainda preciso atravessar este desafio do ODBC...
Alguém tem alguma pista?!

Obrigado!

Olá
Bem, to a um tempo tentando dar um UP em algumas aplicações aqui do trabalho e resolvi que pra melhorar o desempenho de um sistema de documentos em mala direta eu preciso de uma tela de login que acesse um banco de dados que está na rede, também feito em access. Só que o que eu consegui fazer só foi no visual Studio e eu realmente preciso fazer em VBA no access até concluir algumas fases de mudanças aqui no trabalho.
Agora fica minha dúvida, como eu posso passar, essa tela de login do visual Studio para o VBA ?:

Código:

 Public Class LoginForm1
    Dim provider As String
    Dim dataFile As String
    Dim connString As String
    Dim myConnection As OleDbConnection = New OleDbConnection

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
        dataFile = "\\10.72.206.37\grupos\BD\customers.accdb"
        connString = provider & dataFile
        myConnection.ConnectionString = connString

        'the query:
        myConnection.Open()
        Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM [users] WHERE [username] = '" & UsernameTextBox.Text & "' AND [password] = '" & PasswordTextBox.Text & "'", myConnection)
        Dim dr As OleDbDataReader = cmd.ExecuteReader

        ' the following variable is hold true if user is found, and false if user is not found
        Dim userFound As Boolean = False
        ' the following variables will hold the user first and last name if found.
        Dim FirstName As String = ""
        Dim LastName As String = ""

        'if found:
        While dr.Read
            userFound = True
            FirstName = dr("FirstName").ToString
            LastName = dr("LastName").ToString
        End While

        'checking the result
        If userFound = True Then
            Form1.Show()
            Form1.TextBox1.Text = "" & FirstName & " " & LastName
            Me.Hide()
        Else
            MsgBox("Sorry, us�rio ou senha insv�lido", MsgBoxStyle.OkOnly, "Invalid Login")
        End If
        myConnection.Close()
    End Sub

Quem puder me ajudar, e talvez seja a dúvida de alguns.
Dsde já muitooo obrigado pessoal