MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Delete IDLotação <>

    Compartilhe

    cakanilo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 09/04/2011

    Delete IDLotação <>

    Mensagem  cakanilo em Sex 06 Jun 2014, 18:43

    Boa tarde,

    gostaria de fazer um delete IDLotacao na tabela de lotação quando na mesma tabela o IDLotacao fosse diferente do IDLotacaoPai e IDUorgAgrupadora.

    exp:




    IDLotacaoPai lotacao                                        IDUorgPai            IDUorgAgrupadora1
    1              GABINETE DO MINISTRO                      431                             431
    362 COORDENAÇÃOGERAL DE APOIO ADMINISTRAT      1                                 1
    363 COORDENAÇÃO/CGAA/GM                                    362                        362
    364 DIVISÃO/COORD/CGAA/GM                    363                        362
    365 COORDENAÇÃO/CGAA/GM                                     362                         362


    o IDLotacaoPai 364 em negrito não existe na coluna IDUorgPai e nem na IDUorgAgrupadora1 em nenhuma posição. O meu while consiste nisso quando o IDLotacaoPai não existir na colunas IDUorgPai e nem na IDUorgAgrupadora1 em nenhuma posição é executado o delete do registro em questão.

    eis o meu código:


    Dim var1 As String
    Dim var2 As String
    Dim var3 As String

    'Busca informações na TBFolha_Pagamento para o usuário não inserir a mesma informação
    var1 = DLookup("[IDLotacaoPai]", "TBLotacaoPai")

    'Tratamento de erro
    On Error GoTo ErrHandle

    'Abre um recordset
    Set RsFolha = CurrentDb.OpenRecordset("TBLotacaoPai")

    'Laço para ir de registro em registro, listando todos os estagiários da tabela.

    While Not RsFolha.EOF

    'Busca informções na tabela para inserir na tabela de folha de pagamento -----------

    var2 = RsFolha.Fields("IDUorgPai")
    var3 = RsFolha.Fields("IDUorgAgrupadora1")

    'Delete
    CurrentDb.Execute "delete * from TBLotacaoPai where var1 <> var2 and var1 <> var3"

    'Tira o objeto da memória
    Set ObjNewStrSQL = Nothing


    'Move para o próximo Insert na tabela
    RsFolha.MoveNext

    Wend

    'Tira o recordset da memória
    Set RsFolha = Nothing


    ErrHandle:

    'Caso ocorra um erro
    If Err.Number <> 0 Then
    MsgBox Err.Description, vbInformation, "Erro número: " & Err.Number
    End If

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 520
    Registrado : 29/08/2012

    Re: Delete IDLotação <>

    Mensagem  clebergyn em Sex 06 Jun 2014, 20:10

    poste seu banco zipado para melhor te ajudar, acabei de fazer um parecido

    cakanilo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 09/04/2011

    Re: Delete IDLotação <>

    Mensagem  cakanilo em Sex 06 Jun 2014, 20:20

    quando vou postar sempre dá essa mensagem:


    O arquivo adicionado não é valido: nome do arquivo incorreto.

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 520
    Registrado : 29/08/2012

    Re: Delete IDLotação <>

    Mensagem  clebergyn em Sex 06 Jun 2014, 22:30

    winrar
    vc zipou o arquivo? tem que buscar no procurar e depois no enviar consulta, nao pode ser no zip 7, tenta com o winrar


    Mas pode deixar que vou fazer com sua tabela e depois voce implanta
    Qual Access voce usa? 2003, 2007 etc ?

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 520
    Registrado : 29/08/2012

    Re: Delete IDLotação <>

    Mensagem  clebergyn em Sab 07 Jun 2014, 02:20

    estou enviando pra voce o resultado em anexo em access 2003
    "a medida que se vai deletando vai aparecendo mais registros na mesma condição de deletar"
    meu access 2003 ta com problemas, veja se o anexo vai funcionar
    Anexos
    deletarlotação 2003.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 4 vez(es)


    Última edição por clebergyn em Sab 07 Jun 2014, 03:10, editado 1 vez(es)

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 520
    Registrado : 29/08/2012

    Re: Delete IDLotação <>

    Mensagem  clebergyn em Sab 07 Jun 2014, 03:08

    em access 2010
    Anexos
    deletarlotaçao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 2 vez(es)

      Data/hora atual: Dom 11 Dez 2016, 00:14