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


    [Resolvido]Update em todos os registros da Tabela via VBA

    avatar
    Convidado
    Convidado


    [Resolvido]Update em todos os registros da Tabela via VBA Empty Update em todos os registros da Tabela via VBA

    Mensagem  Convidado 2/7/2011, 18:48

    Amigos estou tentando mas não estou a conseguir...

    'Modifica o status do campo selecionado na tebela voltando todos ao status "Desmarcado"

    db.Execute "UPDATE Contatos SET Selecionado=1 WHERE Selecionado = -1;"

    MsgBox "Registro alterado com sucesso.", vbOKOnly + vbInformation, "Alterado"

    Tenho essa mesma função para um registro mas gostaria de atualizar todos os registros no campo Selecionado

    COmo fazer?

    Grato

    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]Update em todos os registros da Tabela via VBA Empty Re: [Resolvido]Update em todos os registros da Tabela via VBA

    Mensagem  criquio 2/7/2011, 18:50

    E assim:

    db.Execute "UPDATE Contatos SET Selecionado=0 WHERE Selecionado = -1;"


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


    [Resolvido]Update em todos os registros da Tabela via VBA Empty Re: [Resolvido]Update em todos os registros da Tabela via VBA

    Mensagem  Convidado 2/7/2011, 18:51

    Embarassed Embarassed hehehehehehe

    Saudações
    avatar
    Convidado
    Convidado


    [Resolvido]Update em todos os registros da Tabela via VBA Empty Re: [Resolvido]Update em todos os registros da Tabela via VBA

    Mensagem  Convidado 2/7/2011, 19:03

    Amigos... para adicionar no lugar do db.execute.. é db.AddNew??
    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]Update em todos os registros da Tabela via VBA Empty Re: [Resolvido]Update em todos os registros da Tabela via VBA

    Mensagem  criquio 2/7/2011, 19:05

    Pode usar o Execute mesmo mudando de UPDATE para INSERT INTO


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


    [Resolvido]Update em todos os registros da Tabela via VBA Empty Re: [Resolvido]Update em todos os registros da Tabela via VBA

    Mensagem  Convidado 2/7/2011, 19:19

    Não deu amigão...


    db.Execute " INSERT INTO tbl_Enviados SET Para='" & Me.emailpara.Value & "', Assunto='" & Me.cxAssunto.Value & "', Mensagem='" & Me.cxCorpo & "'," _
    & " Anexo1='" & Me.txtAnexo1 & "', Anexo2='" & Me.txtAnexo2 & "', Anexo3='" & Me.txtAnexo3 & "';"
    MsgBox "Os E-Mail's foram enviados para caixa de Saída.", vbOKOnly + vbInformation, "Enviado"
    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]Update em todos os registros da Tabela via VBA Empty Re: [Resolvido]Update em todos os registros da Tabela via VBA

    Mensagem  criquio 2/7/2011, 19:25

    Modelo para adaptar:

    db.Execute "INSERT INTO tblCaminho(Código, cmpCaminho) Values('1', """ & CaminhoApp & """);"


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


    [Resolvido]Update em todos os registros da Tabela via VBA Empty Re: [Resolvido]Update em todos os registros da Tabela via VBA

    Mensagem  Convidado 2/7/2011, 19:33

    Amigão.. utilizei um recordSet... deu certo

    StrCaixaSaida = ("SELECT * FROM tbl_Enviados")

    Set rs = db.OpenRecordset(StrCaixaSaida)

    rs.AddNew ' Abre a edição do registro

    '********PÁGINA 01*************************************************************************
    rs![Para] = Me.emailpara
    rs![Assunto] = Me.cxAssunto
    rs![Mensagem] = Me.cxCorpo
    rs![Anexo1] = Me.txtAnexo1
    rs![Anexo2] = Me.txtAnexo2
    rs![Anexo2] = Me.txtAnexo3
    ' Atualiza os dados na tabela
    rs.Update
    MsgBox "Os E-Mail's foram enviados para caixa de Saída.", vbOKOnly + vbInformation, "Enviado"
    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]Update em todos os registros da Tabela via VBA Empty Re: [Resolvido]Update em todos os registros da Tabela via VBA

    Mensagem  criquio 2/7/2011, 20:06

    Se está resolvido, resolvido está Very Happy


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


    Conteúdo patrocinado


    [Resolvido]Update em todos os registros da Tabela via VBA Empty Re: [Resolvido]Update em todos os registros da Tabela via VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 23:31