'Segue o codigo que utilizo no Modulo para abrir o banco.
Option Explicit
Public WrkSpaceBDSAM As Workspace
Public BancoSAM As Database
Public vTbTrechoOcias As Recordset
Public Sub AbrirBancoDeDados()
On Error GoTo TrataErro
Set WrkSpaceBDSAM = DBEngine.Workspaces(0)
Set BancoSAM = OpenDatabase("T:samdb.mdb")
Set vTbTrechoOcias = BancoSAM.OpenRecordset("tbTrechoOcorrencias", dbOpenTable)
End Sub
'Este é o codigo do formulario utilizado para atualizar os registro que eu preciso
Option Explicit
dim vTreCod as Integer
dim vOciCod as Integer
dim vTreOciSeq as Integer
Private Sub CmdAlterarOciaTrecho_Click()
On Error GoTo TrataErro
If vTreCod = 0 Then
MsgBox "Digito o código do Trecho", vbExclamation + vbOKOnly
TxtTrechoCod.SetFocus
Exit Sub
End If
If vOciCod = 0 Then
MsgBox "Selecione a Ocorrência", vbExclamation + vbOKOnly
CboOciasDes.SetFocus
Exit Sub
End If
vTbTrechoOcias.Seek "=", vTreCod, vOciCod 
If vTbTrechoOcias.NoMatch Then
MsgBox "Ocorrencia não cadastrada no Trecho.", vbInformation
Resp = MsgBox("Deseja cadastrar a Ocorrência no Trecho?", vbYesNo + vbQuestion)
If Resp = vbYes Then
vTbTrechoOcias.AddNew
vTbTrechoOcias.Fields("trechocod") = vTreCod
vTbTrechoOcias.Fields("ociascod") = vOciCod
vTbTrechoOcias.Fields("trechoociasseq") = vTreOciSeq
vTbTrechoOcias.Update
End If
Else
Resp = MsgBox("Confirma alterações?", vbQuestion + vbYesNo + vbDefaultButton1)
If Resp = vbYes Then
vTbTrechoOcias.Edit
' vTbTrechoOcias.Fields("trechocod") = vTreCod
' vTbTrechoOcias.Fields("ociascod") = vOciCod
vTbTrechoOcias.Fields("trechoociasseq") = vTreOciSeq
vTbTrechoOcias.Update
End If
End If
Call LimparOcia
CboTpOciasDes.SetFocus
Else
TxtSeq.SetFocus
End If
Exit Sub
TrataErro:
TratamentoErros (Err.Number)
End Sub
Minha duvida surgiu na linha em negrito quando deu erro, então tentei utilizar outras maneiras de me posicionar no banco para fazer a atualização ou a exclusão necessaria. Mas não obtive sucesso se alguém puder me ajudar.
Obrigado pela atenção.
