[Resolvido]Atualizar campo

Boa tarde,

Estou a desenvolver um sistema de controlo de Terminal Radio Frequência de uma empresa (entrada e saída dos mesmos) já estou quase na reta final. Mas encontrei um problema e serei grato pela vossa ajuda. Sou novo na matéria sobre access só tenho noçõesinha.

Resumo: o problema é que não consigo criar Relatório ou Consulta que me retorna SOMENTE os Terminais que não foram entregues/devolvidos naquela data.
Obs: De referir que um determinado Terminal pode ser levantada e devolvida e mais tarde ser levantada outra vez na mesma data. a data é inserido por parâmetro.

Já tentei muito mas está acontecer o seguinte:
"Exemplo: Suponhamos que Fernando levante um Terminal 15, e em seguida dá a entrada do mesmo, o sistema vai registar que ao Terminal foi levantado e devolvido pelo Fernando. O problema é que quando o Francisco fazer o levantamento do mesmo terminal o sistema vai registar que o terminal foi levantado pelo Francisco, mas devolvido pelo Fernando." (a consulta está guardada como RESUMO).

Em anexo envio o BD zipado.
user: admin
password:12345678
ou tecle shift+enter

OBRIGADO!

Obrigado!
já inserido o ficheiro.

agradeço deste já a vossa ajuda

boa noite,

Sff, alguém pode me ajudar?

help

help me!

up

Alguém pode me dar uma ideia

Up

boa tarde a todos,

sou novato em vba e solicito a vossa ajuda,
tenho uma bd de controlo de terminal rf e estou usar o codigo abaixo.
quero atualizar uma determinada tabela "Tbl_Detalhes de Levantamento" onde tenho o campo "Id_DetLv", "Id_Lev", "Nome interno" e "Estado".
pretendo que ao clicar no botão guardar (já escolhido os terminal rf para dar entra) no Campo "Estado" atualiza somente onde Id_DetLv seja igual o novo Id_DetLv mas está atualizar tudo.

Private Sub Guardar_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [Tbl_Detalhes de Levantamento] Set [Tbl_Detalhes de Levantamento].[Estado] = Levantdado WHERE [Tbl_Detalhes de Levantamento].[ID_DetLv] = [ID_DetLv]"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.SetWarnings True

End Sub

Obrigado.

up

por favor alguém ajuda nessa situação

Ola amigo pra ser bem mais fácil do pessoal ajuda-lo,poste o bd.
Abçs.

em anexo segue a bd.

por lapso, não é a tabela "detalhes de Terminal rf" que pretendo atualizar mas sim a tabela "Terminal rf".

pretendo que ao clicar no botão guardar atualiza a tabela "terminal rf" no campo "estado" para lev ou levantado somente nos terminais levantado. mas está atualizar tudo.

Private Sub Guardar_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [TERMINAL RF] Set [TERMINAL RF].[Estado] = Lev WHERE [TERMINAL RF].[NOME INTERNO] = [Tbl_Detalhes de Levantamento].[NOME INTERNO]"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.SetWarnings True
End Sub

agradeço desde já ajuda de todos.
Obrigado

Meu amigo, tem duas Formas de Fazer isso:

1ª Mais Simples:
É colocando o Comando para atualizar no Evento Apos atualizar do Campo

NOME INTERNO Do subformulario. Coloque:

Código:


CurrentDb.Execute "UPDATE [TERMINAL RF] Set [Estado] = 'Lev' WHERE [NOME INTERNO] = '" & Me.NOME_INTERNO.Column(1) & "'"


2ª A outra forma é Como vc pretende, com o comando no Botão salvar!

Coloque este Comando no Botão Salvar:

Código:


Private Sub Guardar_Click()
'-------------------------------------'
'Criado por Fabio Paes em 27/05/2016  '
'Livre para o Aprendizado            '
'-------------------------------------'

'Declaração das Variaveis
Dim DB As Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset

Set DB = CurrentDb()

    'Percorre a Tabela e Selecoina os Dados
    Set rs = DB.OpenRecordset("SELECT * FROM [Tbl_Detalhes de Levantamento] WHERE ID_LEV = " & Me.ID_LEV & "")
   
    'Define a quantidade de Vez que ira Repetir (Loop)
    Do While Not rs.EOF
   
    'Seleciona TERMINAL RF Para atualizar o Estado, Compara o ID_RG com o que foi Lançaod no Subformulario
    Set rs1 = DB.OpenRecordset("SELECT * FROM [TERMINAL RF] WHERE [ID_RF] = " & rs![NOME INTERNO] & "")
        'Inicia a Atualização dos Dados.
        rs1.Edit
        rs1("Estado") = "LEVANTADO"
        rs1.Update
    rs.MoveNext
    Loop
    'Fecha as conexoes
    rs.Close
    rs1.Close
    DB.Close
End Sub


Todas fazem a mesma coisa, a diferença e que uma atualiza a medida que Seleciona o Terminal, e a Outra atualizar ao Final, quando Clica no Botão Salvar.

valeu deu certo. muito obrigado a todos especialmente FabioPaes. este forum é demais rapidez nas respostas o melhor que encontrei.
de referir que os dois codigos estão a funcionar corretamente como pretendido mas implemente mesmo o 2º.

mas encontrei outro problema que postarei no outro topito.
compartilho a bd.

Obrigado.

conforme ja disse no topico anterior, o problema é que estou com dificuldade de criar Relatório ou Consulta que me retorna somente os Terminais rf que não foram entregue/devolvidos naquela data. De referir que um determinado Terminal pode ser levantada e devolvida e mais tarde ser levantada outra vez na mesma data. a data é inserido por parâmetro.

resumindo: por exemplo se o terminal rf "113_rf12" for levantado por um colaborador e for devolvido por o mesmo ou outro colaborador e mais tarde for levantado novamente na mesma data, já não devolve o terminal rf "113_rf12".

SELECT *
FROM [Levantamento por Data]
WHERE ((Tbl_Levantamento.DATA)=[digite a data]) AND [Levantamento por Data].[NOME INTERNO] NOT IN (SELECT [Devolução por Data].[NOME INTERNO] FROM [Devolução por Data] WHERE ((Tbl_Devolução.DATA)=[digite a data]));

agradeço desde já ajuda de todos.

valeu

up

sff, alguém pode me ajuda nessa situação

por favor, alguém me ajuda

up

up

boa tarde,

agradeço ajuda de todos desde já.
tenho uma bd "controle de terminal rf", gostaria que ao clicar no botão guardar, excluir ou substitui o (s) terminal rf que já estão lançado ou gravado na tabela "Tbl_Detalhes de Levantamento" no campo "nome interno" e grave o (s) novo terminal rf que está sendo levantado.

de referir que, estou adaptar o codigo do mestre JPaulo não está funcionando como gostaria, está sempre a duplicar os terminal rf que uma vez levantado e devolvido e depois levantado novamente.

Private Sub Guardar_Click()
Call DeletaRegistrosDuplicados("[Tbl_Detalhes de Levantamento]")
End Function

Coloquei num módulo novo e salvei:

Public Function DeletaRegistrosDuplicados(strTabela As String)
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, rst2 As DAO.Recordset
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim strSQL As String
Dim varX As Variant

Set tdf = DBEngine(0)(0).TableDefs(strTabela)
strSQL = "SELECT * FROM " & strTabela & " ORDER BY "
For Each fld In tdf.Fields
If (fld.Type <> dbMemo) And (fld.Type <> dbLongBinary) Then
strSQL = strSQL & fld.Name & ", "
End If
Next fld

strSQL = Left(strSQL, Len(strSQL) - 2)
Set tdf = Nothing

Set rst = CurrentDb.OpenRecordset(strSQL)
Set rst2 = rst.Clone
rst.MoveNext
Do Until rst.EOF
varX = rst.Bookmark
For Each fld In rst.Fields
If fld.Value <> rst2.Fields(fld.Name).Value Then
GoTo NextRecord
End If
Next fld
rst.Delete
GoTo SkipBookmark
NextRecord:
rst2.Bookmark = varX
SkipBookmark:
rst.MoveNext
Loop
rst.Close
MsgBox "Registros duplicados encontrado(s) e deletados com sucesso...", vbInformation
End Function

up

Boa noite,
Dê todos os detalhes
Abri a bd e nem sei como chegar à sua dúvida

ok. obrigado Alexandre.

o objectivo é substituir o antigo terminal rf levantado pelo novo na tabela "Tbl_Detalhes de Levantamento" no campo "nome interno".
por exemplo: na bd enviado em anexo está repetido o terminal 113_rf12, um que foi levantado ás 19:25 e o outro ás 20:00 na mesma data (28-05-2016). gostaria que ao clicar no botão guardar, guardasse o terminal rf ex. 113_rf12 levantado às 20h:00 mas substituindo/eliminando o mesmo terminal ex. 113_rf12 já levantado às 19h:25min.

obs: De referir que, um determinado terminal pode ser levantada e devolvida e mais tarde ser levantada outra vez na mesma data.

agradeço desde já.

Boa noite
Dê todos os detalhes
Fala em botão guardar. Qual botão guardar?
Fala em substituindo/eliminando. Quer substituir ou eliminar?
Explique tudo

ok.

estou a me referir do botão guardar do formulário "Frm_Levantamento",
o objectivo é substituir qualquer terminal já existente a tabela "Tbl_Detalhes de Levantamento" no campo "nome interno" com o mesmo nome interno. exemplo terminal rf 113_rf12 já explicado acima. estou utilizando o access 2010.

obrigado.

Bom dia,
Respeite as regras

1º Não prolifere a mesma dúvida
Sempre que der por resolvida, se essa dúvida vier a persistir, reabra-a (pressionando no botão "Resolvido" (abre/fecha))

2º uni as suas dúvidas relacionadas e retirei o Resolvido

3º a função que o Mestre JPaulo lhe passou não funcionou aqui no seu bd, porque não respeitou as boas práticas de numenclatura de campos

4º cole num módulo e chame-o no botão Guardar

Código:

Sub EliminaRegistosAnteriores()
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim Rst As DAO.Recordset, strNomeAnterior As String
    Set Rst = CurrentDb.OpenRecordset("SELECT * FROM [Tbl_Detalhes de levantamento] ORDER BY [Nome interno], ID_DetLv DESC")
   
    Do While Not Rst.EOF
        If Rst("nome interno") = strNomeAnterior Then
            Rst.Delete
        Else
            strNomeAnterior = Rst("nome interno")
        End If
        Rst.MoveNext
    Loop
    Set Rst = Nothing
End Sub

obrigado mestre Alexandre, o código funciona como o previsto, és o máximo.

com relação a chamada de atenção no 1º ponto e demais, farei a questão de reler novamente as regras do forúm e respeitar as regras, valeu pelas dicas e ajuda.

muito obrigado.