MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    avatar
    Wagner
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 15/09/2010

    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  Wagner 22/2/2012, 13:32

    Caros, preciso de uma ajuda de voces.
    Estou desenvolvendo um formulário onde cadastro uma ficha de visita, onde aparece os dados do cliente, os dodos do equipamento, e informações sobre a visita.
    Ao terminar de digitar as informações neste formulário, preciso salvar o arquivode de visita, atualizar o arquivo de cliente e atualizar o arquivo do equipamento do cliente.
    Como posso fazer isso???
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  criquio 22/2/2012, 13:35

    O que são esses arquivos a que você se refere? São tabelas no próprio aplicativo ou se trata de um arquivo externo?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Wagner
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 15/09/2010

    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  Wagner 22/2/2012, 13:41

    São tabelas criadas no próprio aplicativo.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  criquio 22/2/2012, 14:54

    Acredito que você tenha criado o formulário vinculado á tabela, certo? Quando temos tabelas relacionadas, criamos um subformulário da tabela filha dentro do formulário da tabela mãe. Nesses campos, não precisa salvar. Ao digitar os dados, eles já ficam gravados nas tabelas. É fundamental você saber o que é e como implementar os relacionamentos. Chamamos esse tipo de dados, em que os dados de uma tabela está relacionado a um campo de outra tabela, de dados relacionais. Veja aqui informações sobre isso. No F1 do Access tambem tem ótimas dicas.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Wagner
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 15/09/2010

    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  Wagner 22/2/2012, 15:06

    Na verdade não tem sub formulário, no formulário onde digito as informações coletadas na visita, há informações que se refere ao equipamento e são estas informações que preciso gravar na tabele de equipamento.
    A busca deste equipamento é através no número de série que tambem é informado no formulário.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  criquio 22/2/2012, 15:57

    Ainda não entendi. Exemplifique por gentileza. Talvez ainda seja o caso de você ler o conteúdo do link que eu passei para entender como deve estar montado um banco relacional. Lembre-se que isso é imprescindível para que consigas montar um banco eficiente.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Wagner
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 15/09/2010

    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  Wagner 24/2/2012, 00:21

    Caro, esta rotina na verdade já funcionava, só não entendi por qual motivo deixou de funcionar.

    Na hora da execução do aplicativo apresenta o senguite erro "O tipo definido pelo Usuário não foi definido" e apresenta uma tarja azul sobre a segunda linha do código seguinte;

    Private Sub CmdSalvar_Click()
    Dim rstEquipamento As DAO.Recordset
    Dim IDias As Integer

    IDias = 0

    Set rstEquipamento = CurrentDb.OpenRecordset("SELECT * FROM TBEquipamento WHERE NumeroSerie = " & Me.CmbNumeroSerie, 2)

    Select Case QdrTipoOS.Value
    Case 1 'Visita Técnica Normal
    MsgBox "foi escolhido a 1a. opção", vbInformation
    With rstEquipamento
    .Edit
    If Horimetro < !Horimetro Then
    !Horimetro = Me.Horimetro
    End If
    !DataUltimaManutencao = Me.DataVisita
    .Update
    .Close
    End With

    Case 2 'Visita Técnica de Troca de 1000 horas
    With rstEquipamento
    .Edit
    IDias = (1000 / !HorasTrabalho)
    If (Me.DataVisita IDias) > !DataProximaTroca3000 Then
    !DataProximaTroca1000 = !DataProximaTroca3000
    Else
    !DataProximaTroca1000 = (Me.DataVisita IDias)
    End If
    If Horimetro < !Horimetro Then
    !Horimetro = Me.Horimetro
    End If
    !DataUltimaManutencao = Me.DataVisita
    .Update
    .Close
    End With

    Case 3 'Visita Técnica de Troca de 3000 horas

    With rstEquipamento
    .Edit
    IDias = (3000 / !HorasTrabalho)
    !DataProximaTroca3000 = (Me.DataVisita IDias)
    If Horimetro < !Horimetro Then
    !Horimetro = Me.Horimetro
    End If
    !DataUltimaManutencao = Me.DataVisita
    .Update
    .Close
    End With
    Case 4 'Visita Técnica de Revisão da Unicade compressora
    With rstEquipamento
    .Edit
    !VidaUnidade = (!VidadeUnidade 1)
    If Horimetro < !Horimetro Then
    !Horimetro = Me.Horimetro
    End If
    !DataUltimaManutencao = Me.DataVisita
    .Update
    .Close
    End With

    Me.NumeroRelatorio.SetFocus
    End Select
    End Sub
    avatar
    Wagner
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 15/09/2010

    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  Wagner 24/2/2012, 00:24

    Dei uma lida no material sobre relacionamento, mas não é o caso aqui as tabelas estão relacionadas corretamente no banco.
    avatar
    Convidado
    Convidado


    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  Convidado 24/2/2012, 01:18

    Boa noite colega Wagner, tudo bem....
    Nos formulários de pesquisa, onde estarão esses dados evento "no atual"
    Private Sub Form_Current()
    Me.Requery
    End Sub

    e o botão salvar..
    If (Me.Dirty = True) Then
    X = MsgBox("Salvar registro no sistema ?", vbYesNo, "CADASTRO DE CLIENTES")
    If X = vbNo Then
    Me.Undo
    Exit Sub
    Else
    RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
    Exit Sub
    End If
    End If

    If (Me.Dirty = False) Then
    MsgBox "Registro já salvo...", vbCritical, "Atenção"
    Exit Sub
    End If

    Assim os registros estaram salvos nas "tabelas"...
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 713
    Registrado : 07/05/2010

    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  Jungli 24/2/2012, 11:19

    bom dia, tente assim,

    Dim campoTemp
    campoTemp = Me.CmbNumeroSerie
    Me.Repaint

    Set rstEquipamento = CurrentDb.OpenRecordset("SELECT * FROM TBEquipamento WHERE NumeroSerie = " & campoTemp & ";", 2)


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles
    avatar
    Wagner
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 15/09/2010

    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  Wagner 24/2/2012, 12:11

    Caros colegas, eu preciso saber o porque está aparecendo a mensagem "O tipo definido pelo Usuário não foi definido", referente a linha de comando ( Dim rstEquipamento As DAO.Recordset ).
    A mensagem aparece em tempo de execução do aplicativo. Antes não dava esta mensagem.
    O que deve ter ocorrido para que esta mensagem aparece agora???
    avatar
    Convidad
    Convidado


    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  Convidad 24/2/2012, 12:28


    Olá!

    Confirme se a referência Microsoft DAO 3.6 Object Library está marcada.
    avatar
    Wagner
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 15/09/2010

    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  Wagner 24/2/2012, 12:50

    Olá amigo, desculpe-me a ignorância, mas onde verifico se a referência Microsoft DAO 3.6 Object Library está marcada????

    avatar
    Convidad
    Convidado


    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  Convidad 24/2/2012, 13:06


    Para definir referências, abra qualquer módulo vba do seu bd. Na Barra de Menus, clique em Ferramentas > Referências.

    A janela exibe a lista de refs's disponíveis e as marcadas são as habilitadas.

    A biblioteca DAO é habilitada por padrão, mas não custa verificar.
    Se estiver desmarcada, marque e clique OK.

    Conteúdo patrocinado


    [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha Empty Re: [Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:09