Olá amigos, tudo bem? Preciso de uma ajuda de vocês.
Tenho um BD access na versão 2003! Instalei em uma das máquinas a versão 2010 para migração. Se eu utilizar o BD em 2003 sem converter, no office 32 bits e não no office 64, ele roda normalmente no access 2010, mas ainda na versão 2003.
Quando eu converto para 2010, a função seek dá erro. Mas que engraçado: se o arquivo estiver ainda em 2003, ele roda normalmente no office 2010. O PROBLEMA É SE eu converto , dá um erro no comando seek. Alguém já passou por isso? Tenho que habilitar alguma biblioteca nas referências? Vou colar meu código para entendimento. Seria o campo que o usuario digita para buscar o nome dele na tbl_login.
Private Sub CODIGO_AfterUpdate()
Dim dbs As Database, rstmov As Recordset
Set dbs = OpenDatabase("D:\Redsystem\Back\bend.mdb")
Set rstmov = dbs.OpenRecordset("tbl_login")
rstmov.Index = "primarykey"
rstmov.Seek "=", Forms![frm_login]![Codigo]
If rstmov.NoMatch Then...........................................(((((AQUI DÁ O ERRO, E FICA AZUL NA PALAVRA NOMACH))))))))))))))
MsgBox "Código não encontrado!", vbCritical
Codigo.SetFocus
Me.localfoto1 = Null
Me.Foto1.Picture = ""
DoCmd.CancelEvent
Exit Sub
Exit Sub
Else
Me.Nome = rstmov![Nome]
Me.nivel = rstmov![NivelAcesso]
Me.senha1 = rstmov![senha]
Me.codigo1 = rstmov![Codigo]
Me.Inativo1 = rstmov![Inativo]
Me.localfoto1 = rstmov![localfoto1]
Me.Econsultora = rstmov![Econsultora]
Me.Email1 = rstmov![Email]
Me.subonline.Requery
Me.senha.Enabled = True
End If
rstmov.Close
Me.ok.Enabled = False
End Sub
Tenho um BD access na versão 2003! Instalei em uma das máquinas a versão 2010 para migração. Se eu utilizar o BD em 2003 sem converter, no office 32 bits e não no office 64, ele roda normalmente no access 2010, mas ainda na versão 2003.
Quando eu converto para 2010, a função seek dá erro. Mas que engraçado: se o arquivo estiver ainda em 2003, ele roda normalmente no office 2010. O PROBLEMA É SE eu converto , dá um erro no comando seek. Alguém já passou por isso? Tenho que habilitar alguma biblioteca nas referências? Vou colar meu código para entendimento. Seria o campo que o usuario digita para buscar o nome dele na tbl_login.
Private Sub CODIGO_AfterUpdate()
Dim dbs As Database, rstmov As Recordset
Set dbs = OpenDatabase("D:\Redsystem\Back\bend.mdb")
Set rstmov = dbs.OpenRecordset("tbl_login")
rstmov.Index = "primarykey"
rstmov.Seek "=", Forms![frm_login]![Codigo]
If rstmov.NoMatch Then...........................................(((((AQUI DÁ O ERRO, E FICA AZUL NA PALAVRA NOMACH))))))))))))))
MsgBox "Código não encontrado!", vbCritical
Codigo.SetFocus
Me.localfoto1 = Null
Me.Foto1.Picture = ""
DoCmd.CancelEvent
Exit Sub
Exit Sub
Else
Me.Nome = rstmov![Nome]
Me.nivel = rstmov![NivelAcesso]
Me.senha1 = rstmov![senha]
Me.codigo1 = rstmov![Codigo]
Me.Inativo1 = rstmov![Inativo]
Me.localfoto1 = rstmov![localfoto1]
Me.Econsultora = rstmov![Econsultora]
Me.Email1 = rstmov![Email]
Me.subonline.Requery
Me.senha.Enabled = True
End If
rstmov.Close
Me.ok.Enabled = False
End Sub