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]Uso de Variáveis em conjsulta exclusão

    avatar
    Convidado
    Convidado


    [Resolvido]Uso de Variáveis em conjsulta exclusão Empty Uso de Variáveis em conjsulta exclusão

    Mensagem  Convidado 27/5/2011, 15:46

    Tenho uma consulta exclusão que pretendo usar varíaveis para fazer o filtro na linha a ser excluida...
    Colocarei o código, preciso que deem uma olhada e vejam se esta correto o uso das variaveis..
    e como aplico as mesmas no criterio da pesquisa..

    Grato

    Private Sub lst_Abastecimento_Click()
    'Coloca os campos Data, KmFinal e Litros que estão na lst_Abastecimento, em variável
    'para serem usados nas consultas de exclusão da tbl_Veículos
    Dim Linha As Integer
    Dim Data
    Dim KmFinal
    Dim Litros

    Selecionado = True

    Data = Me.lst_Abastecimento.Column(2, Linha)
    Litros = Me.lst_Abastecimento.Column(3, Linha)
    KmFinal = Me.lst_Abastecimento.Column(6, Linha)

    Linha = Me.lst_Abastecimento.ListIndex
    If Selecionado = True Then

    End If
    End Sub
    avatar
    Convidado
    Convidado


    [Resolvido]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  Convidado 27/5/2011, 15:50

    Nos critérios da pesquisa estou colocando assim:

    [Formulários]![frm_Viaturas_Abastecimento]![Data]

    [Formulários]![frm_Viaturas_Abastecimento]![Litros]

    [Formulários]![frm_Viaturas_Abastecimento]![KmFinal]


    Mas nao esta excluindo a linha

    Esse criterio condiz com as variaveis no código acima?
    COmo é esse uso

    se puderem ajudar fico Grato

    Saudações
    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]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  criquio 27/5/2011, 15:52

    Talvez dê para substituir tudo por uma única linha usando CurrentDb.Execute "DELETE...". Já pensou na hipótese?


    .................................................................................
    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]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  Convidado 27/5/2011, 16:03

    Seria ate melhor fazer a exclusão em vba.. como faço amigão?
    Tabela: Tbl_Veiculos
    Campos:

    ID_Veiculo
    Matricula
    DataVeiculo
    Litros
    KilometrosFinais

    Grato
    avatar
    Convidado
    Convidado


    [Resolvido]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  Convidado 27/5/2011, 16:25

    Pensei em usar assim

    DoCmd.RunSQL "Delete * from tbl_Veiculos where Matricula = " & Me.????a & ""

    Mas não sei ainda como aplicar os filtros que criei usando as variaveis
    Data
    Litros
    KmFinal
    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]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  criquio 27/5/2011, 16:39

    Talvez algo assim:

    DoCmd.RunSQL "Delete * from tbl_Veiculos where Matricula = " & Var1 & " And Litro=" & Var2 & " And KmFinal=" & Var3 & "

    Mais ou menos por aí. Brinque com as aspas até chegar no ponto.


    .................................................................................
    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]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  Convidado 27/5/2011, 16:44

    Poderia me traduzir essa empresão em umportugues rasgado so para eu me ambientar com as aspas e tudo mais?
    avatar
    Convidado
    Convidado


    [Resolvido]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  Convidado 27/5/2011, 16:48

    Dim msg
    Dim Itens As Integer
    Dim Linha As Integer

    Dim Data
    Dim KmFinal
    Dim Litros

    Data = Me.lst_Abastecimento.Column(2, Linha)
    Litros = Me.lst_Abastecimento.Column(3, Linha)
    KmFinal = Me.lst_Abastecimento.Column(5, Linha)


    Linha = Me.lst_Abastecimento.ListIndex
    If Me.lst_Abastecimento.Column(1, Linha) = "" Then Exit Sub
    msg = MsgBox("Confirma a exclusão deste lançamento ?" & Chr(10) & Chr(10) & "Data ..: " & Me.lst_Abastecimento.Column(2, Linha) & Chr(10) & "Litros .: " & Me.lst_Abastecimento.Column(3, Linha), vbExclamation + vbYesNo + vbDefaultButton2, "SysVen")
    If msg = vbNo Then Exit Sub
    Me.lst_Abastecimento.SetFocus
    DoCmd.SetWarnings False

    'Essa consulta pede o código do lançamento para excluir o mesmo
    'DoCmd.OpenQuery "cnsExcluir_Item"
    DoCmd.RunSQL "Delete * from tbl_Veiculos where Matricula = " & Var1 & " And Litro=" & Var2 & " And KmFinal=" & Var3 & ""

    DoCmd.SetWarnings True

    Me.lst_Abastecimento.Requery
    Me.lst_Abastecimento.Selected(Me.lst_Abastecimento.ListCount - 1) = True
    Me.lst_Abastecimento.Requery


    Fala que a variavel nao foi definida Var1 etc...
    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]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  criquio 27/5/2011, 16:53

    No lugar de Var1, Var2 e Var3, você coloca as suas varáveis, ou os campos a serem usados no filtro.


    .................................................................................
    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]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  Convidado 27/5/2011, 16:56

    Amigão vou te colocar os 3 eventos

    Evento Click
    Evento DblClick (aqui chama a funcao CmdExcluirClik)


    Private Sub lst_Abastecimento_Click()
    'Coloca os campos Data, KmFinal e Litros que estão na lst_Abastecimento, em variável
    'para serem usados nas consultas de exclusão da tbl_Veículos
    Dim Linha As Integer
    Dim Data
    Dim KmFinal
    Dim Litros

    Data = Me.lst_Abastecimento.Column(2, Linha)
    Litros = Me.lst_Abastecimento.Column(3, Linha)
    KmFinal = Me.lst_Abastecimento.Column(5, Linha)

    Selecionado = True

    Linha = Me.lst_Abastecimento.ListIndex
    If Selecionado = True Then
    End If
    End Sub


    Private Sub lst_Abastecimento_DblClick(Cancel As Integer)
    cmdExcluir_Click
    End Sub


    Private Sub cmdExcluir_Click()
    On Error Resume Next
    Dim msg
    Dim Itens As Integer
    Dim Linha As Integer


    Linha = Me.lst_Abastecimento.ListIndex
    If Me.lst_Abastecimento.Column(1, Linha) = "" Then Exit Sub
    msg = MsgBox("Confirma a exclusão deste lançamento ?" & Chr(10) & Chr(10) & "Data ..: " & Me.lst_Abastecimento.Column(2, Linha) & Chr(10) & "Litros .: " & Me.lst_Abastecimento.Column(3, Linha), vbExclamation + vbYesNo + vbDefaultButton2, "SysVen")
    If msg = vbNo Then Exit Sub
    Me.lst_Abastecimento.SetFocus



    DoCmd.SetWarnings False

    'Essa consulta pede o código do lançamento para excluir o mesmo
    'DoCmd.OpenQuery "cnsExcluir_Item"
    DoCmd.RunSQL "Delete * from tbl_Veiculos where Matricula = " & Var1 & " And Litro=" & Var2 & " And KmFinal=" & Var3 & ""

    DoCmd.SetWarnings True

    Me.lst_Abastecimento.Requery
    Me.lst_Abastecimento.Selected(Me.lst_Abastecimento.ListCount - 1) = True
    Me.lst_Abastecimento.Requery

    End Sub
    avatar
    Convidado
    Convidado


    [Resolvido]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  Convidado 27/5/2011, 17:17

    coloquei as variaveis

    DoCmd.RunSQL "Delete * from tbl_Veiculos where Matricula = " & Matricula & " And Litros=" & Litros & " And KilometrosFinais=" & KmFinal & ""


    Mas na hora que executa, ele abre uma MsgBox

    Inserir Valor do Parametro
    KGB1234 (que e a matricula do veiculo)
    Aparece a caixa texto para digitar algum paramentro...

    avatar
    Convidado
    Convidado


    [Resolvido]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  Convidado 27/5/2011, 17:30

    Amigão, se puder de uma olhada ai,...
    E o frm_Viaturas_Abastecimento..

    de um duplo click na lst_Abastecimento...

    Grato

    https://www.dropbox.com/s/8ff1gs0cn52tbt1/SYSPEN.rar
    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]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  criquio 27/5/2011, 17:53

    Olharei ainda hoje,creio.


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

    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]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  criquio 27/5/2011, 23:24

    Olha só, você tem um campo ID na tabela. Basta usá-lo assim na linha de exclusão:

    CurrentDb.Execute "Delete * from tbl_Veiculos where Id_Veiculo = " & Me.lst_Abastecimento.Column(0) & ";"


    .................................................................................
    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
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  ton0612 28/5/2011, 00:27

    Boa noite amigos, desculpe a intromissão, mas neste caso a parte da matricula esta em formato de texto, nao seria o caso de mudar as aspas para "'"

    DoCmd.RunSQL "Delete * from tbl_Veiculos where Matricula = '" & Me.Matricula & "'" And Litros=" & Me.Litros & " And KilometrosFinais=" & Me.KmFinal & ""

    Desculpe, nao pude abrir o seu banco para testar, pois esta numa versao superior ao que estou utilizando.

    Abraços
    avatar
    Convidado
    Convidado


    [Resolvido]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  Convidado 28/5/2011, 09:22

    Simples e prático, Obrigado criquio, estavas as dar voltas com variaveis para identificar a linha, quando a solução em verdade era mais prática

    Grato
    avatar
    Convidado
    Convidado


    [Resolvido]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  Convidado 28/5/2011, 09:22

    Ops! Resolvido
    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]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  criquio 28/5/2011, 09:32

    Ótimo! 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]Uso de Variáveis em conjsulta exclusão Empty Re: [Resolvido]Uso de Variáveis em conjsulta exclusão

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:14