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


4 participantes

    Alterar valor padrão de um campo

    avatar
    MAZZONJR
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 21/06/2013

    Alterar valor padrão de um campo Empty Alterar valor padrão de um campo

    Mensagem  MAZZONJR 21/6/2013, 13:57

    Bom dia a todos. Gostaria da ajuda de vcs quanto a esta dúvida.
    Tenho um sistema em que , em um de seus formulários existe um campo que contém um valor padrão (definido nas propriedades do campo).
    Este campo não pode ser alterado por qquer um , apenas alguem que saiba que, clicando 2 vezes no label do campo, este campo deixa de estar bloqueado e pode ser feita a alteração do valor.
    Minha dúvida é ... como fazer com que este novo valor digitado passe a ser o novo valor padrão do campo ?
    Obrigado a todos.


    Última edição por Leandro em 21/6/2013, 14:05, editado 1 vez(es) (Motivo da edição : **********Não escrever em letra maiúscula**********)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Alterar valor padrão de um campo Empty Re: Alterar valor padrão de um campo

    Mensagem  JPaulo 21/6/2013, 17:16

    Ola seja bem vindo ao forum;

    Penso que alterar definitivamente, só é possivel abrindo o form em modo estrutura mesmo que seja por VBA.

    Alterar o Valor Padrão provisório, será assim;

    Private Sub SeuCampo1_DblClick(Cancel As Integer)
     Me.SeuCampo2.DefaultValue = Chr(34) & Me.SeuCampo1 & Chr(34)
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Alterar valor padrão de um campo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Alterar valor padrão de um campo Folder_announce_new 102 Códigos VBA Gratuitos...
    Alterar valor padrão de um campo Folder_announce_new Instruções SQL como utilizar...
    avatar
    MAZZONJR
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 21/06/2013

    Alterar valor padrão de um campo Empty Re: Alterar valor padrão de um campo

    Mensagem  MAZZONJR 21/6/2013, 18:14

    Não deu certo não ... pensei em colocar um código no evento ao atualizar do campo para que este leia o último valor gravado na tabela e o coloque como padrãio.
    Este campo no formulário está bloqueado ... então fiz assim :

    Criei um botão ao lado do campo com este código :

    Private Sub Caixa107_DblClick(Cancel As Integer)
            Me.TempoDeCiclo.Locked = False
            Me.TempoDeCiclo.BackColor = vbRed
            DoCmd.GoToControl "TempoDeCiclo"
    End Sub


    --- dessa forma consigo desbloquear o campo , colocar o fundo dele em vermelho e inserir um valor.

    no evento "depois de atualizar" deste campo , coloquei outro código:

    Private Sub TempoDeCiclo_AfterUpdate()
            Me.TempoDeCiclo.DefaultValue = Chr(34) & Me.TempoDeCiclo & Chr(34)
            Me.TempoDeCiclo.Locked = True
            MsgBox "ALTERAÇÃO CONCLUÍDA !", vbExclamation, " FPT informa :"
            Me.TempoDeCiclo.BackColor = vbBlack
            DoCmd.GoToControl "PeçasBufferInt1"
    End Sub


    --- dessa forma consigo alterar o campo , bloqueá-lo novamente , exibir uma mensagem e ir para o próximo campo

    o problema é que, quando entro neste formulário novamente , o valor do campo "TempoDeCiclo" que deveria ter como padrão o valor que inseri anteriormente , está vazio.

    Pensei em colocar um código no evento "ao abrir" do formulário onde ele lesse o último valor do campo "TempoDeCiclo" na tabela e o colocasse diretamente no campo do formulário.

    Pode me ajudar a implementar isso ?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Alterar valor padrão de um campo Empty Re: Alterar valor padrão de um campo

    Mensagem  JPaulo 21/6/2013, 18:20

    Rubens, note bem o que eu lhe disse:

    "alterar definitivamente, só é possivel abrindo o form em modo estrutura".


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Alterar valor padrão de um campo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Alterar valor padrão de um campo Folder_announce_new 102 Códigos VBA Gratuitos...
    Alterar valor padrão de um campo Folder_announce_new Instruções SQL como utilizar...
    avatar
    MAZZONJR
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 21/06/2013

    Alterar valor padrão de um campo Empty Re: Alterar valor padrão de um campo

    Mensagem  MAZZONJR 21/6/2013, 18:32

    Sim ... eu entendi o que vc quiz dizer.
    Por isso sugeri uma outra solução ...
    Ao abrir o formulário , seria lido o valor do último registro do campo TempoDeCiclo na tabela e seria inserido no campo TempDeCiclo do formulário.
    Só não sei como implentar esta solução.
    Pode ajudar ?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Alterar valor padrão de um campo Empty Re: Alterar valor padrão de um campo

    Mensagem  criquio 21/6/2013, 18:33

    Uma ideia, se me permitem. O amigo falou em pegar o último registro gravado. Se essa é a ideia, pode usar o DLast que busca direto na tabela o último registro sem precisar colocar no Default.


    .................................................................................
    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.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Alterar valor padrão de um campo Empty Re: Alterar valor padrão de um campo

    Mensagem  JPaulo 21/6/2013, 18:34

    Faça o teste assim, altere apenas para o nome do seu formulario;

    Private Sub TempoDeCiclo_AfterUpdate()
    Dim xp As AccessObject
    Dim x
    For Each xp In CurrentProject.AllForms
    If xp.Name = "SeuFormulario" Then
    x = Me.TempoDeCiclo
    DoCmd.Close acForm, xp.Name, acSaveYes
    DoCmd.OpenForm xp.Name, acDesign, WindowMode:=acHidden
    With Forms(xp.Name)
    .TempoDeCiclo.DefaultValue = Chr(34) & x & Chr(34)
    End With
    End If
    Next xp
            DoCmd.OpenForm "SeuFormulario"
            Me.TempoDeCiclo.Locked = True
            MsgBox "ALTERAÇÃO CONCLUÍDA !", vbExclamation, " FPT informa :"
            Me.TempoDeCiclo.BackColor = vbBlack
            DoCmd.GoToControl "PeçasBufferInt1"
    End Sub

    Bom final de semana.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Alterar valor padrão de um campo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Alterar valor padrão de um campo Folder_announce_new 102 Códigos VBA Gratuitos...
    Alterar valor padrão de um campo Folder_announce_new Instruções SQL como utilizar...
    avatar
    MAZZONJR
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 21/06/2013

    Alterar valor padrão de um campo Empty Re: Alterar valor padrão de um campo

    Mensagem  MAZZONJR 21/6/2013, 18:46

    Sua solução de "atualizar" o formuláriuo funcionou em termos.
    O problema é que todos os campos depois do TempoDeCiclo são de preenciento obrigatório ... aí dá erro.
    E , ao voltar o formulário , todos os registros são zerados , já que existe uma macro que funciona ao abrir o formulário , vai para novo registro.
    Mesmo tirando a macro que abre o formulário em novo registro , o formulário volta com os dados do primeiro registro.

    Talvés a outra opinião sobre o Dlast funcione ... com eu faria isso ?
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    Alterar valor padrão de um campo Empty Re: Alterar valor padrão de um campo

    Mensagem  Leandro 21/6/2013, 19:52

    Com a permissão dos mestres.

    Mazzon, eu prefiro o modo com Recordset, mas mandei os dois para que você decida.

    Abraço


    Conteúdo patrocinado


    Alterar valor padrão de um campo Empty Re: Alterar valor padrão de um campo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 02:51