[Resolvido]Inserir e verificar quantidade de Acessos

Código:

Private Sub Comando1_Click()
Static iCont As Integer
iCont = iCont + 1
Dim db      As DAO.Database
Dim sSQL    As String
  Set db = CurrentDb
        sSQL = "INSERT INTO tblPessoas"
        'CAMPOS----------------------------------------
        sSQL = sSQL & "("
        sSQL = sSQL & "  acessos"
     
        sSQL = sSQL & ")"
        'VALORES -------------------------------------
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & Trim(iCont) & "'"
        sSQL = sSQL & ")"
        db.Execute sSQL
     
        Me.Refresh
  If DCount(" acessos", "tblPessoas") < 3 Then
      DoCmd.OpenForm "Formulário2", , acNormal
  Else
      MsgBox " acaba aqui"
  End If
End Sub

Código:

Private Sub Comando1_Click()
Static iCont As Integer
iCont = iCont + 1
Dim db      As DAO.Database
Dim sSQL    As String
Set db = CurrentDb
        sSQL = "INSERT INTO controleDeAcessos"
        'CAMPOS----------------------------------------
        sSQL = sSQL & "("
        sSQL = sSQL & "  quntidadeDeAcessos"
        sSQL = sSQL & ")"
        'VALORES -------------------------------------
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & Trim(iCont) & "'"
        sSQL = sSQL & ")"
        db.Execute sSQL
       Me.Refresh
    
If DCount(" acessos", "tblPessoas") > 3 Then
       DoCmd.OpenForm "Formulário2", , acNormal
       Else
       DoCmd.Quit
    End If

---------------------------------------------------------------------------------------------------------------------------------------------------------------
"Uma duvida se eu colocar ele em rede local 4 pcs, mas a base dele vai está em 1 so pc  , ele irá abrir?
Tipo a base dele fica no pc A, mas os atalho do sistema fica nos pc B,C,D...."
---------------------------------------------------------------------------------------------------------------------------------------------------------------

Compartilhar um banco de dados dividido
Esta é uma boa opção se você não tem um site do SharePoint ou um servidor de banco de dados. Você pode compartilhar um banco de dados dividido em uma rede de área local (LAN). Quando divide um banco de dados, você o reorganiza em dois arquivos — um banco de dados back-end que contém as tabelas de dados e um banco de dados front-end que contém todos os demais objetos de banco de dados, como consultas, formulários e relatórios. Cada usuário interage com os dados usando uma cópia local do banco de dados front-end.

Os benefícios da divisão de um banco de dados incluem o seguinte:

Melhor desempenho Somente os dados são compartilhados através da rede, não as tabelas, consultas, formulários, relatórios, macros e módulos.

Maior disponibilidade As transações de banco de dados, como edições de registro, são concluídas mais rapidamente.

Segura aprimorada Os usuários acessam o banco de dados back-end por meio de tabelas vinculadas; é menos provável que intrusos possam obter acesso não autorizado aos dados por meio do banco de dados front-end.

Maior confiabilidade Se um usuário encontrar um problema e o banco de dados fechar inesperadamente, qualquer corrupção de arquivo de banco de dados é geralmente limitada à cópia do banco de dados front-end que o usuário abriu.

Ambiente de desenvolvimento flexível Cada usuário pode desenvolver, de forma independente, consultas, formulários, relatórios e outros objetos de banco de dados sem afetar outros usuários. Da mesma forma, você pode desenvolver e distribuir uma nova versão do banco de dados front-end sem atrapalhar o acesso aos dados armazenados no banco de dados back-end.

Código:



Function MAC_ADDRESS() As String
Dim cfg As Variant

    For Each cfg In GetObject("winmgmts://.").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")
        If Not IsNull(cfg.IPAddress) Then
            MAC_ADDRESS = cfg.MACAddress
            Exit For
        End If
    Next
End Function



" eu ainda fico perdido em mexer com classe ."

Código:



Function MAC_ADDRESS() As String
Dim cfg As Variant

    For Each cfg In GetObject("winmgmts://.").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")
        If Not IsNull(cfg.IPAddress) Then
            MAC_ADDRESS = cfg.MACAddress
            Exit For
        End If
    Next
End Function


'==================================================================================================================================='

Sub Grava()
Dim sSQL As String
   
    sSQL = "UPDATE [NomeDaTabUsuarios] SET [CampoQueArmazenaOMAC_ADDRES] = '" & MAC_ADDRESS & "'"
    CurrentDB.Execute sSQL

End Sub