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


2 participantes

    [Resolvido]critério na consulta (parametrizada)

    avatar
    yhohnan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 3
    Registrado : 12/01/2011

    [Resolvido]critério na consulta (parametrizada) Empty [Resolvido]critério na consulta (parametrizada)

    Mensagem  yhohnan 12/1/2011, 06:51

    Ola a todos;)

    Ainda sou iniciante nisto... Alguém me poderia ajudar a fazer uma consulta de actualização em que obtivesse os dados de um formulário.
    Sem o formulário tinha assim:

    UPDATE animal SET animal.cota = (animal.cota*1.1)
    WHERE animal.cota Like "*" & [Inserir cota];

    O que eu queria poder seleccionar os valores de animal.cota, tanto o que vou alterar como o novo valor a partir de um formulario. (ignorando o novo valor que coloquei animal.cota*1,1)
    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]critério na consulta (parametrizada) Empty Re: [Resolvido]critério na consulta (parametrizada)

    Mensagem  criquio 12/1/2011, 11:24

    Olá Johanna, seja bem vinda ao forum. Você pode fazer isso usando RecordSet. O que você precisa é atualizar registros já existentes e não inserir novos registros na tabela, certo? Seria algo mais ou menos assim, no evento "Ao clicar" de um botão:

    Dim DB As Database
    Dim RS As Recordset

    If MsgBox("Gravar registro?", vbYesNo, "Opções") = vbYes Then
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("NomeDaTabela", dbOpenDynaset)

    RS.FindFirst "Código = " & txtCodigo
    If RS.NoMatch Then 'Não existe
    RS.AddNew
    Else
    RS.Edit
    End If

    RS("Nome") = Me!txtNome
    RS("Sobrenome") = Me!txtSobrenome

    RS.Update
    RS.Close
    Set RS = Nothing
    Set DB = Nothing

    Me.txtNome = Null
    Me.txtSobrenome = Null

    MsgBox "Registo gravado com sucesso", vbInformation, "Concluído"
    Me.txtNome.SetFocus
    End If


    O código acima é só um exemplo, adapte para o seu caso. Nome em azul se referem aos campos da tabela e nomes em vermelho se referem aos campos do formulário que serão gravados nos seus respectivos campos da tabela.


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 3
    Registrado : 12/01/2011

    [Resolvido]critério na consulta (parametrizada) Empty Re: [Resolvido]critério na consulta (parametrizada)

    Mensagem  yhohnan 12/1/2011, 22:07

    So agora é que pude ver a resposta. Vou tentar utilizar este código, então. Obrigada
    avatar
    yhohnan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 3
    Registrado : 12/01/2011

    [Resolvido]critério na consulta (parametrizada) Empty Re: [Resolvido]critério na consulta (parametrizada)

    Mensagem  yhohnan 12/1/2011, 22:27

    Obrigada pela resposta Criquio!

    Bem, eu sou mesmo novata nisto Smile
    Estou a estudar e a fazer um trabalho para a cadeira de base de dados, mas ainda so sei praticamente fazer consultas basicas e em relação a executar funções de botões estou completamente a zero.

    Eu tenho no formulário um botão de combinação, em que gostava de seleccionar ou escrever uma nova cota (valor em €) para alterar uma já existente. Foi-me pedido que ao fazer a tal consulta de actualização, em vez de me surgir uma janela para inserir o valor eu o pudesse ir seleccionar a um formulário.

    Ou fiz mal, ou penso que este código não é exactamente o que preciso... Tenho solução? (isto com os meus conhecimentos básicos)

    Conteúdo patrocinado


    [Resolvido]critério na consulta (parametrizada) Empty Re: [Resolvido]critério na consulta (parametrizada)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 04:13