MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 : 08/04/2011

    Delete IDLotação <>

    Mensagem  cakanilo em Sex 06 Jun 2014, 14: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 : 654
    Registrado : 29/08/2012

    Re: Delete IDLotação <>

    Mensagem  clebergyn em Sex 06 Jun 2014, 16: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 : 08/04/2011

    Re: Delete IDLotação <>

    Mensagem  cakanilo em Sex 06 Jun 2014, 16: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 : 654
    Registrado : 29/08/2012

    Re: Delete IDLotação <>

    Mensagem  clebergyn em Sex 06 Jun 2014, 18:30

    [Você precisa estar registrado e conectado para ver este link.]
    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 : 654
    Registrado : 29/08/2012

    Re: Delete IDLotação <>

    Mensagem  clebergyn em Sex 06 Jun 2014, 22: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 Sex 06 Jun 2014, 23:10, editado 1 vez(es)

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Delete IDLotação <>

    Mensagem  clebergyn em Sex 06 Jun 2014, 23: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: Sab 18 Nov 2017, 11:55