tenho um sistema em access 2007 no note, porém, quando passo para o pc da empresa da erro de execução 2447 "Um ponto(.), ponto de exclamação(!) ou parentênses foram utilizados incorretamente", e ambos são access 2007
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim strsql As String
strsql = "Select * from tabela_usuarios where login_usuario = '" & Me.Nome_Usuario_Funcionario & "'"
Set DB = CurrentDb
Set RS = DB.OpenRecordset(strsql)
If Not RS.BOF Then
Me.Nivel_Usuario_Funcionario = RS("nivel_usuario")
RS.Close
Set RS = Nothing
DB.Close
Set DB = Nothing
End If
Me.Qtd_Colunas = "Número de registro : " & Me.List_funcionario.ListCount
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim strsql As String
strsql = "Select * from tabela_usuarios where login_usuario = '" & Me.Nome_Usuario_Funcionario & "'"
Set DB = CurrentDb
Set RS = DB.OpenRecordset(strsql)
If Not RS.BOF Then
Me.Nivel_Usuario_Funcionario = RS("nivel_usuario")
RS.Close
Set RS = Nothing
DB.Close
Set DB = Nothing
End If
Me.Qtd_Colunas = "Número de registro : " & Me.List_funcionario.ListCount