[Resolvido]erro 3251 help depois que divisão de bd

droga tava tudo indo bem foi eu dividir para rede ja eraerro 3251 tem solução

Private Sub Comando12_Click()
Dim rs As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_usuarios")
rs.Index = "PrimaryKey"
rs.Seek "=", Me.Texto13 erro aqui
If rs.NoMatch = True Then
MsgBox "Usuário não cadastrado, Acesso Negado", , "Aviso"
Me.txtFunc.SetFocus
Exit Sub
Else
If Me.txtSenha = rs("txtSenha") Then
MsgBox "Senha Confirmada com Sucesso", , "Aviso"
Me.Usuário = Me.txtFunc.Column(1)
Nivel = rs("nivel")
Select Case Nivel

Case Is = "ADM"

DoCmd.OpenForm "Administrador"

Case Is = "OP1"

DoCmd.OpenForm "MENU PRINCIPAL"

Case Is = "OP2"

DoCmd.OpenForm "MENU PRINCIPAL", acNormal, "", "", acReadOnly, acNormal


End Select

Else
MsgBox "Senha Inválida Acesso Negado", , "Aviso"
Me.txtSenha.SetFocus
DoCmd.Quit
End If
End If

rs.Close
DoCmd.Close acForm, "frmLogin"

End Sub

Private Sub Comando12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MouseCursor(32649)
End Sub

Private Sub Comando2_Click()
On Error GoTo Err_Comando2_Click

DoCmd.Close

Exit_Comando2_Click:
Exit Sub

Err_Comando2_Click:
MsgBox Err.Description
Resume Exit_Comando2_Click

End Sub
Private Sub Comando27_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MouseCursor(32649)
End Sub
Private Sub Form_Open(Cancel As Integer)
Nivel = ""
Call FSetAccessWindow(SW_HIDE)
DoCmd.Restore
End Sub
Private Sub Comando27_Click()
On Error GoTo Err_Comando27_Click

DoCmd.Quit

Exit_Comando27_Click:
Exit Sub

Err_Comando27_Click:
MsgBox Err.Description
Resume Exit_Comando27_Click

End Sub

O erro não está nesta linha não?
rst.Index = "PrimaryKey"

Sds,

Seek e Index não funcionam em tabelas vinculadas. Há muito achei um POG para resolver.

Dê uma olhada neste tópico.

como ficaria na minh função.

tenei e deu isso

Presumo que essa função tem que ir para um módulo e depois ser chamada

ja passeia a etapa a cima agora esta pedindo para selecionar fontes de dados (rede e o meu fraco) help

A fonte de dados será o back end. Verifique a ligação das tabelas

tem outra maneira de colocar ele em rede pois o mesmo erro da imagem acima

A colocação em rede é Back End em servidor e Front End nos postos de trabalho.

tem outro modo de substitui a função rs.index e rs.seek pois o erro esta na forma do chamado do campo

Pode que alguém que tenha tido um problema igual possa responder, aguarde.

Algumas perguntas:

1º Você já retirou a função do VBA do form e inseriu-a num modulo ?

2º Na abertura do recordset, você fez o que o Professor Osmar passou ?

Dim rst as Recordset
set rst=OpenForSeek("NomeDaTabela")

Aguardo...

A função deve, obrigatoriamente, estar em um módulo padrão, não vinculado a formulários e relatórios.

olha resolvi optar por fazer login diferende e deu certo. mais uma duvida quando divido o BD qual vai para rede e se é para copia atalho ou o proprio em cada micro.

Coloque o Back End numa única máquina tipo servidor. Os fronts instale um em cada máquina do utilizador e ligue as tabelas.

ok obrigado mais uma vez.

Bom trabalho e saúde