[Resolvido]Preenchimento de campos

Boas,

Tenho uma tabela com os campos:
ID                         (Numérico)
Serial                    (Texto)
Inventario              (Numérico)
Tipo
Marca
Modelo

Tabela Movimentos:
Artigo
Inventario
Serial


Tenho um form de Movimentos que quando introduzo um valor no campo Inventario precisava que este coloque o valor no campo serial e ID se existir.
Não posso usar uma combo box  porque o campo inventario será usado para inserir através de um leitor de código de barra e tem que ser numérico.

Precisava de ajuda para resolver este problema.

Muller,

porque quando você insere o número do patrimônio com o leitor de barras faz uma pesquisa na base, se existir atualiza a base, se não existir insere e mostra mensagem de novo registro.
Abs

O que pretendia era que quando fosse introduzido o Serial ou o Inventario este preenche-se os campos Artigo, Tipo, Marca e Modelo.

Eu consigo fazer isso atravez de uma combobox artigo, mas queria conseguir fazer este tratamento sem a combobox.

Eu uso uma instrução para pesquisar e consigo se não existir pedir para criar o artigo, mas se existir não consigo criar a expressão para preencher os restantes campos automaticamente.

Muller

Vamos analisar, vai usar o serial do equipamento nas duas tabelas.
Acredito, que tenha como saber o serial de todos os equipamentos que serão cadastrados.

A primeira tabela, como não disse o nome vou chama-la de:  tbl_Equipamentos
Serial       (Texto) ' como cada equipamento tem o serial único,
                         ' pode ser chave primaria (lado 1 do relacionamento de tabelas).
Inventario (Numérico) ' não sei que dado será inserido aqui
Tipo
Marca
Modelo

tabela Movimento
Serial  (lado Muitos do relacionamento das tabelas)
Artigo

Portanto, o relacionamento será de um para muitos, tendo o serial como ligação entre as duas tabelas.

Quanto ao inventário, como não sei do que se trata, terá que verificar em qual tabela deve ficar esse campo.
Se ele muda a cada movimento, deve ficar nessa tabela. se for fixo(o que duvido muito ), na primeira tabela.  

Esse é o ponto de partida.

[ ]'s

Boas,

Eu tenho a tabela artigo a qual constam os campos : ID, Tipo, Marca, Modelo, Serial, Inventario.

Na tabela de movimentos tenho estes campos, mas o que pretendia era que quando fosse colocado ou o numero de serie ou o inventario este preenche-se os restantes campos.

Eu já tenho esta expressão mas não consigo colocar os respectivos campos após a inserção do numero serial ou inventario.

Dim IDsEncontrados As Recordset
If Not IsNull(Me.Inventario) Then
strSQL = "SELECT Inventario FROM Artigo WHERE Inventario = " & Me.Inventario & ""
Set IDsEncontrados = CurrentDb.OpenRecordset(strSQL)
If IDsEncontrados.RecordCount = 0 Then
Inventario = vbNullString
If MsgBox("Inventario Nao Existe: '" & NewData & "'" & vbCrLf _
& "Deseja Abrir Artigo?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "Artigo", , , , acFormAdd, _
acDialog, NewData
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End If
End If

Bem, agora como se diz aqui no Brasil, você "abriu o jogo",

ou seja, está contando o que realmente deseja.

Para poder gravar numa outra tabela, terá que usar consulta atualização

ou código vba.

Usando teu exemplo:

strSQL = "SELECT Inventario FROM Artigo WHERE Inventario = " & Me.Inventario & ""
Set IDsEncontrados = CurrentDb.OpenRecordset(strSQL)
If IDsEncontrados.RecordCount = 0 Then

  IDsEncontrados.Edit
  IDsEncontrados!NomeDocampo
  IDsEncontrados.Update ' esse comando grava na tabela.
endif  

Isso é apenas um esboço, para saber o que procurar.

Outra coisa:

Não sei onde está usando o código apresentado

Response = acDataErrAdded
Else
Response = acDataErrContinue

Response só pode ser usado se ele estiver no argumento da sub

ou seja, entre parenteses assim, por exemplo:

Private Sub Colors_NotInList(NewData As String, Response As Integer)

[ ]'s

Muller,

eu tenho um form onde na saída da caixa texto faço uma pesquisa na base de dados, se existir o registro ele preenchi o form com os dados do registro.
Se não existir ele exibe uma mensagem que não encontrou o registro.
Você pode adaptar para seu uso.
Segue código abaixo:

Set db = CurrentDb
Set rs = db.OpenRecordset("suatabela", dbOpenDynaset)

achou = "nao"
Do Until rs.EOF

If IsNull(Me.seucampotexto) Or Me.seucampotexto.Value = "" Then
qry = MsgBox("Campo deve ser preenchido.", vbInformation, "Campo")
Exit Sub
End If

If (rs!campo_da_tabela = Val(Me.seucampotexto)) Then
qry = " SELECT * FROM suatabela WHERE (([campo_da_tabela]) = " & Val(seucampotexto) & ")"

Me.txt1 = rs_os!registro1
Me.txt2 = rs_os!registro2
Me.txt3 = rs_os!registro3
Me.txt4 = rs_os!registro4
.
.
.

achou = "sim"

Exit Do
Else
rs.MoveNext
End If
Loop
If (achou = "nao") Then
MsgBox "não encontrado!", vbInformation, "Campo2"
Me.seucampotexto.SetFocus
End If

Set rs = Nothing
db.Close
End Sub

Boas,

Graças a vossa ajuda consegui ultrapassar o meu problema.

Obrigado.

Muller

Sempre é bom, dizer qual foi a solução.

Assim outros membros que também que tiverem

o mesmo problema que teve, poderão se beneficiar dela.

Boas,

Não coloquei por falta de experiência.

Mas com a vossa ajuda consegui perceber que estava a aplicar incorrectamente aquilo que pretendia.

E usei neste caso especifico esta situação e aproveitei uma parte para outras 2 situações quase idênticas.

Set db = CurrentDb
Set rs = db.OpenRecordset("Artigo", dbOpenDynaset)

Existe = "No"
Do Until rs.EOF

If IsNull(Me.Inventario) Or Me.Inventario.Value = "" Then
qry = MsgBox("Campo deve ser preenchido.", vbInformation, "Campo")
Exit Sub
End If

If (rs!Inventario = Val(Me.Inventario)) Then
qry = " SELECT * FROM Artigo WHERE (([Inventario]) = " & Val(Inventario) & ")"

Me.Inventario = rs!Inventario
Me.Serial = rs!Serial
Me.Artigo = rs!ID
Me.Tipo = rs!Tipo
Me.Marca = rs!Marca
Me.Modelo = rs!Modelo

achou = "Yes"

Exit Do
Else
rs.MoveNext
End If
Loop
If (Existe = "No") Then
MsgBox "Não existe o Inventario!", vbInformation, "Campo2"
Me.Inventario.SetFocus
End If

Set rs = Nothing
db.Close

Mais uma vez, obrigado pela vossa ajuda, já andas a mais de 2 semanas a volta do problema.

Ótimo

Assim fica registrado a solução.

Valeu pelo retorno.

Sempre que solucionar uma dúvida,

coloque o Resolvido no título do tópico.

Dessa vez eu coloco pra você.

Boa sorte!