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]Exclusão e alteração de dados da tabela utilizado um formulário

    Jerecardoso
    Jerecardoso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 12/07/2013

    [Resolvido]Exclusão e alteração de dados da tabela utilizado um formulário Empty [Resolvido]Exclusão e alteração de dados da tabela utilizado um formulário

    Mensagem  Jerecardoso 16/10/2014, 15:11

    Pessoal Bom dia !!
    novamente estou aqui para tirar Duvidas e confesso que tenho muitas ...
    desde já agradeço a todos do forum ..

    Bem vamos la.

    estou tentando editar e excluir dados de uma tabela de forma automática.
    tenho um código para inclusão destes dados e estou tentando adptar o mesma para a edção ou exclusão destes dados.

    seria possível
    se alguém souber
    plz

    Segue o código

    **************************************************************
    Dim BCO As Database
    Dim TAB1 As Recordset
    Dim dtInicio As Date
    Dim dtFinal As Date
    Dim strNome As String
    Dim strSQL As String



    strNome = Nome
    dtInicio = Datainicio
    dtFinal = DataVolta


    intDias = DateDiff("d", dtInicio, dtFinal)

    For X = 0 To intDias
    Set BCO = CurrentDb()
    Set TAB1 = BCO.OpenRecordset("TabLinhaTempo")
    If Me!Nome > 0 Then
    TAB1.AddNew
    TAB1![Nome] = "" & Me!Nome & ""
    TAB1![Data] = datacan("d", X, dtInicio)
    TAB1.Update
    End If
    Next

    End Sub

    *******************************************************************





    .................................................................................
    affraid affraid É isso ai affraid affraid
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exclusão e alteração de dados da tabela utilizado um formulário Empty Re: [Resolvido]Exclusão e alteração de dados da tabela utilizado um formulário

    Mensagem  Dilson 27/10/2014, 16:17

    Olá,

    Para esse código que postou recomendaria setar o banco e o recordset antes do laço (For), pois dentro do laço a cada passada estará setando o mesmo recordset sem necessidade. Então ficaria assim:

    Set BCO = CurrentDb()
    Set TAB1 = BCO.OpenRecordset("TabLinhaTempo")

    For ...

    Quanto ao Delete por recordset, veja um exemplo:
    http://msdn.microsoft.com/en-us/library/bb243799(v=office.12).aspx

    Já para update, mudará:

    De: TAB1.AddNew
    Para: TAB1.Edit

    Espero ter ajudado.


    Jerecardoso
    Jerecardoso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 12/07/2013

    [Resolvido]Exclusão e alteração de dados da tabela utilizado um formulário Empty Re: [Resolvido]Exclusão e alteração de dados da tabela utilizado um formulário

    Mensagem  Jerecardoso 13/11/2014, 04:44

    Parceiro ..
    Utilizei este Código
    Obrigado pela Ajuda

    Dim dia As Integer
    Dim fim As Date
    Dim dtInicio As String
    Dim dtFinal As String


    dia = Me.Numerodias
    fim = DateAdd("d", dia - 1, Datainicio)
    Me!DataFim = Format(fim, "dd/mm/yyyy")
    Me.DataFim.Requery
    'Me.DataFim = Me.Datainicio + 29


    dtInicio = DtaInicio
    dtFinal = DtaFim

    intDias = DateDiff("d", Datainicio, DataFim)

    DoCmd.SetWarnings False ' Aqui eu desligo o aviso de alteração na tabela
    DoCmd.RunSQL " DELETE FROM [Tab_Ferias_Solicitacao] WHERE Codigo = " & Codigo & ""
    DoCmd.SetWarnings True ' Aqui eu ativo os avisos de alterações em tabelas

    For X = 0 To intDias

    DoCmd.SetWarnings False ' Aqui eu desligo o aviso de alteração na tabela
    DoCmd.RunSQL " DELETE FROM [TabLinhaTempo] WHERE Codigo = " & Codigo & ""
    DoCmd.SetWarnings True ' Aqui eu ativo os avisos de alterações em tabelas


    Next
     

    End Sub


    .................................................................................
    affraid affraid É isso ai affraid affraid

      Data/hora atual: 3/12/2022, 06:08