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

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

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

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

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

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.

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

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

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

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

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

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

de um duplo click na lst_Abastecimento...

Grato

[Você precisa estar registrado e conectado para ver este link.]

Olharei ainda hoje,creio.

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) & ";"

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

Ops! Resolvido

Ótimo! Se está resolvido, resolvido está