VINCULO

Citação:

CRISTIANOLIVE escreveu:
No evento lost focus do campo linha de produção fiz assim:
Private Sub txtPack_LostFocus()
If txtPack.Text <> [Ô][Ô] Then
cmdOk.Visible = True aqui é para salvar
cmdSalvar.Visible = False aqui para atualizar
txtESN1.SetFocus
CmdOK_Click
txtPack.Enabled = False
Else
MsgBox ([Ô]Por favor, insira sua linha[Ô])
txtPack.SetFocus
cmdLimpar.Visible = False
cmdOk.Visible = False
mnuSalvar.Enabled = False
cmdSalvar.Visible = True
End If
End Sub

o CmdOK_click faz a chamada abaixo:

Private Function AtualizaCampos()
TBRelatório.AddNew
TBRelatório([Ô]Usuário[Ô]) = frmEntrada.lblRegistro.Caption
TBRelatório([Ô]Hora[Ô]) = Time
TBRelatório([Ô]Data[Ô]) = DTPicker1
TBRelatório([Ô]Qtd[Ô]) = txtQtd
TBRelatório([Ô]Amostras[Ô]) = txtSample
TBRelatório([Ô]Modelo[Ô]) = txtModelo
TBRelatório([Ô]Cor[Ô]) = txtCor
TBRelatório([Ô]Cliente[Ô]) = txtCliente
End Function

O que acho estranho é que se eu estiver imputando os dados apenas de um micro tudo funciona normal, se eu começar a trabalhar com outras máquinas, os dados imputados por uma máquina é substituído por dados de outra máquina.

Se alguém souber por favor me ajude,

Desde já muito obrigado a todos pela ajuda

Private Sub Form_Load()

BancodeDados.Provider = "Microsoft.Jet.OLEDB.3.51"
BancodeDados.Open ("\\136.166.34.17\Dados\DQA\OQC\Monitor\00 - Relatorios\Diario\SOQ.MDB"), False, False

With TBDados
     .CursorLocation = adUseClient
     .CursorType = adOpenDynamic
     .LockType = adLockOptimistic
End With

With TBRelatório
     .CursorLocation = adUseClient
     .CursorType = adOpenDynamic
     .LockType = adLockOptimistic
End With

TBDados.Open "SELECT * FROM Dados"
TBRelatório.Open "SELECT * FROM Relatório"

End Sub